使用 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