macros在每台计算机上工作，除了出现“1004错误”

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

我有一个macros，我分布在团队内，它完全适用于所有计算机（包括我的），除了一个。 她在同一个系统上运行相同版本的Excel，她可以使用除此之外的其他macros，我得到"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上使用自己的区域设置。 因此date格式比较有趣，例如dd/mm/yyyy ，因此不能将其保存为文件。

尝试改变这样的date：

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

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