从 Excel VBA 打开 PowerPoint 时出错

Question

我搜索了大量的帖子，寻找 Excel 中的 VBA 代码来打开 PowerPoint 演示文稿。绝大多数人建议我使用以下代码（变量名称有所变化）。我发现了一些变体，但 none 它们都可以工作：

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

当我尝试运行时，应用程序在返回以下错误消息之前冻结了大约一分钟：

Microsoft Excel is waiting for another application to complete an OLE action

应用程序然后继续尝试运行宏，停止它的唯一方法是打开任务管理器并结束进程。这是当我尝试运行代码时打开 PowerPoint 以及关闭时的情况。

寻求有关 OLE 错误的帮助，大多数建议是将应用程序设置为 'Ignore other applications that use Dynamic Data Exchange (DDE)'，但这并不能解决我的问题。

由于这对我搜索过的论坛中的其他人来说似乎都不是问题，是否可能是我雇主的网络或计算机上的某些东西阻止了文件打开，或者我犯了一个错误某处？

Answer 1

在

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

您应该尝试打开的文件应该是 ppt 文件，而不是 excel 文件。例子

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

从 Excel VBA 打开 PowerPoint 时出错

Error when opening PowerPoint from Excel VBA

excel

vba

ole

dde