从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"