用于保存，打印和关闭文件的Excel 2013 VBA脚本在我的计算机上运行，​​但在其他计算机上不运行

Question

作为序言，我是VBA的超级新手。

正如标题所示，我在Excel 2013中创建了一个VBA脚本，以便在用户单击按钮时保存，打印和关闭文件。它适用于我的计算机，但当我将其导出到运行Excel 2010的另一台计算机时，它无法运行。我收到一个错误，当我看到它时，它已将当前月份和日期附加到我指定要保存到的目录中，由于某种原因，这导致错误。请参阅下面的错误和我正在使用的VBA代码

运行脚本时出错：

运行时错误＆＃39; 1004＆＃39;：

Microsoft Excel无法访问该文件 ＆＃39; C：\ Users \ eMAR \ Desktop \ Hardware Sign-Off Forms \ 2 \ 17 \＆＃39;。有几个可能的原因：

• 文件名或路径不存在。
• 该文件正由另一个程序使用。
• 您尝试保存的工作簿与
同名

VBA代码：

Sub Button43_Click()

Dim Path As String
Dim FileName1 As String
Dim FileName2 As String
Dim FileName3 As String
Dim FileName4 As String

Path = "C:\Users\" & Environ$("Username") & _
"\Desktop\Hardware Sign-Off Forms\"

FileName1 = Range("B6")
FileName2 = Range("B7")
FileName3 = Range("E7")
FileName4 = Range("A10")

Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:=Path & FileName1 & "_" & FileName2 & "_" &    FileName3 & "_" & FileName4 & ".xls", FileFormat:=xlNormal

Application.DisplayAlerts = True

Sheet1.PrintOut

Sheet1.PrintOut

Application.Quit

End Sub