Question

当我尝试使用Excel VBA宏中的Workbooks.Open命令打开某个目标.xls文件时，将打开目标Excel文件，其中包含＆＃34; 1＆＃34;附加到文件名的末尾。此更改的文件名显示在文件窗口（）中。随着每次后续尝试（手动关闭目标Excel文件并重新运行脚本），目标文件名末尾的附加数字增加1。

目标Excel文件本身似乎没有损坏，因为我可以在Windows资源管理器中手动打开文件而不会出现任何问题。此外，当我以这种方式打开它时，文件名正确显示（没有＆＃39; 1＆＃39;附加到末尾）。看着＆＃39; Type＆＃39;在资源管理器窗口中，它显示目标文件是“Microsoft Excel 97-2003工作表”，因此文件扩展名与实际文件格式匹配。

以下是我正在使用的代码：

Public Sub Import_TD_TVs()

     Dim ActiveWB As Workbook
     Dim srcTDWB As Workbook

     Dim wkbkStr As String


          Set ActiveWB = ActiveWorkbook

          wkbkStr = "X:\sites\DTS_Data_Files.xls"

          Set srcTDWB = Workbooks.Open(wkbkStr, , False)

End Sub

非常感谢对此问题的任何帮助！

Answer 1

如果目标工作簿最初保存为模板（.xlt）文件，然后在Windows资源管理器中手动更改（到.xls）扩展名，则会发生这种情况。您可以打开目标工作簿并执行另存为...＆＃39;到.xls文件格式。

Excel 2013 VBA Workbooks.Open打开时文件名错误

1 个答案: