マクロは「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)

し、再試行してください：

は、このような日付を変更してください。これは、ファンシー設定の部分を削除します。