從Excel VBA打開PowerPoint時出錯

Question

我搜索了很多帖子，它們在Excel中尋找VBA代碼，從而打開PowerPoint演示文稿。 絕大多數建議我使用以下代碼（變量名有所不同）。 我發現了一些變體，但它們都不起作用：

Dim objPPT As Object
Set objPPT = CreateObject("Powerpoint.Application")
objPPT.Visible = True
objPPT.Presentations.Open "C:\Users\7233025\Desktop\Workmix Resolutions.xlsm"

當我嘗試運行此命令時，應用程序凍結大約一分鍾，然后返回以下錯誤消息：

Microsoft Excel正在等待另一個應用程序完成OLE操作

然后，應用程序繼續嘗試運行宏，而停止宏的唯一方法是打開任務管理器並結束該過程。 當我嘗試運行代碼並關閉PowerPoint時打開PowerPoint就是這種情況。

在尋求有關OLE錯誤的幫助時，大多數建議是將應用程序設置為“忽略使用動態數據交換（DDE）的其他應用程序”，但這無法為我解決問題。

對於在我搜索過的論壇中的其他任何人來說，這似乎都不是問題，這是否可能是雇主網絡或計算機上的某些文件阻止文件打開，或者我在某個地方犯了錯誤？

Answer 1

在

objPPT.Presentations.Open "C:\Users\7233025\Desktop\Workmix Resolutions.xlsm"

您應該嘗試打開的文件應該是ppt文件而不是excel文件。 例

objPPT.Presentations.Open "C:\example.pptx"