Excel加载项上运行时错误1004：未知文件路径

Question

有几台计算机使用我自己创建的加载项。但是，每当我运行此加载项的代码以保存加载项工作簿时，有一台计算机会弹出一条错误消息。

翻译：

运行时错误'1004'：
1.文件名或路径不存在 2.该文件正在被其他程序使用 3.您要保存的工作簿与其他工作簿的名称相同

我相信什么是导致这是数字1的原因。因为没有名为'60E80500'的文件。请注意，如果我再次运行相同的代码，则会显示带有diferente文件名的错误消息。

以下是导致错误的代码：

Private Sub LoginButton_Click()

    'Functions to change the add-in's worksheet
    setLoginCom (loginComTextBox)
    setPassCom (passComTextBox)


    'Close login form
    Unload Me

    'Save WorkBook add-in
    Application.DisplayAlerts = False
    ThisWorkbook.Save
    Application.DisplayAlerts = True

End Sub

加载项完整路径为：
C：PROGRAMFILES \ Comdinheiro \ Comdinheiro.xlam

我想知道为什么Excel使用以下路径：

C：PROGRAMFILES \ Comdinheiro \ 60E80500

除了此错误消息外，加载项工作正常。

Answer 1

我建议使用以下语法：

myFileName = Application.ActiveWorkbook.FullName
ActiveWorkbook.SaveAs Filename:=myFileName, FileFormat:=xlWorkbookNormal

我发现用vba越明确你就越不容易出错