宏可以在每台计算机上运行，​​除非它给出“1004错误”

Question

免责声明：我已阅读有关错误1004的相关问题/答案，但我找不到解决方案。

我有一个我在团队中分发的宏，它在除了一个之外的所有计算机（包括我的）上都能很好地工作。她在同一个系统上运行相同版本的Excel，她可以使用除此之外的其他宏，我收到"Error 1004 SaveAs function failed"消息。这是一个非常长的镜头，但我错过了一些安全设置或是否有一些问题可能导致这个问题？这是有问题的代码：

Sub PSSaveFile()
Dim myVal2 As Variant
Dim myValn2 As String
Dim myDate As String
Dim mFilePath As String

myVal2 = InputBox("Please enter today's date in mm-dd format")
myValn2 = Replace(myVal2, "-", "\")
myDate = Date

mFilePath = "\\xxxxxxxx003\xxx_emea\TCU_REPORTS\APPS\Reports\Regional\xxxxx for PC  Web xx\2017\" & myValn2

ActiveWorkbook.SaveAs FileName:=mFilePath & "\xxxRHLogs-" & myDate & "_checked"
End Sub

Answer 1

让我猜一下 - 与另一台计算机的人来自另一个国家，因此在PC上使用他自己的区域设置。因此，日期格式有点发达，例如dd/mm/yyyy并且由于这个原因，不允许将其另存为文件。

尝试更改日期：

myDate = year(date) & month(date) & day(date)

然后再试一次。这将消除花哨的设置部分。