使用 PowerPoint VBA 打開 Excel 文件，結果不一致

Question

我有一個 PowerPoint 宏，它應該打開一個 Excel 文件。

Public Sub SortList()

Dim MyFile as String
Dim xlApp as Object
Dim xlWorkBook as Object
Set xlApp = CreateObject("Excel.Application")

With Application.FileDialog(msoFileDialogOpen)
    .AllowMultiSelect = False
    .Show
    MyFile = SelectedItems(1)
End With

xlApp.Visible = True
xlApp.Workbooks.Open MyFile
Set xlWorkBook = xlApp.Workbooks.Open(MyFile)

此代碼以前可以正常工作，沒有錯誤。 但是，我已經開始收到錯誤消息

“運行時錯誤‘-2147467259 (80004005)’：object‘工作簿’的‘打開’方法失敗。”

嘗試運行“Set”代碼行時發生錯誤。

問題是我可以看到代碼已成功打開 Excel 文件： 我嘗試過的事情（幾乎所有可能的組合）：

- 將代碼更改為此（我認為程序可能試圖打開文件兩次）：

xlApp.Visible = True
Set xlWorkBook = xlApp.Workbooks.Open(MyFile)

- 將 ReadOnly:= True 添加到兩者或其中之一。打開命令，在某一時刻，這給了我一個“自動化錯誤 - 未指定錯誤”消息，這是我以前從未見過的......

- 將 Set 行更改為此（及其變體）：

xlApp.Workbooks.Open MyFile
Set xlWorkBook = xlApp.Workbooks(Dir(MyFile))

- 確保 Excel 在運行代碼之前完全關閉

令人沮喪的是，這段代碼上周運行良好，所以我也不知道為什么它會突然停止運行。 任何幫助將不勝感激。

Answer 1

如果您在已打開的工作簿上調用Workbooks.Open可能會導致問題。

所以，不要打開兩次。 刪除以下行：

xlApp.Workbooks.Open MyFile