Question

我目前遇到一个奇怪的错误。我们已经开发出一种可供许多人使用的工具，其中一人在购买新计算机后出现问题。宏打开位于网络上的PPT文件（用户可以访问演示文稿 - 我对此进行了测试）。

以下是代码：

Dim ppapp As PowerPoint.Application
Dim PPPres As PowerPoint.Presentation
Dim MyPath
MyPath = Workbooks("MyTool.xls").Sheets("Update").Range("start")

Set ppapp = New PowerPoint.Application
ppapp.WindowState = ppWindowMinimized
ppapp.Visible = True
Set PPPres = ppapp.Presentations.Open(MyPath, msoTrue, msoTrue)

宏在此行失败：

Set PPPres = ppapp.Presentations.Open(MyPath, msoTrue, msoTrue)

运行时错误-2147467259（80004005）：PowerPoint无法打开该文件奇怪的是它适用于除一个用户之外的所有用户。该平台是Win7和Excel 2010。

非常感谢任何帮助！

Answer 1

对我的答案免责声明，对编程和VBA知识有限。我唯一的经验是通过excel和word。

Office excel引用库是一个问题吗？如果你让程序进入不同的系统，那么使代码延迟绑定而不是早期绑定可能会更好。

将Powerpoint应用程序和演示文稿变暗为对象并更改对其数值的引用。

Dim ppapp As Object
Dim PPPres As Object
Dim MyPath
MyPath = Workbooks("MyTool.xls").Sheets("Update").Range("start")

Set ppapp = New PowerPoint.Application
ppapp.WindowState = 2 'this would have to be changed to the numerical code; ppWindowMinimized = 2
ppapp.Visible = True
Set PPPres = ppapp.Presentations.Open(MyPath, -1, -1) 'these would also may have to be changed, not sure though - -1 = msoTrue.

从Excel打开PowerPoint时VBA运行时错误

1 个答案: