從Excel打開PowerPoint時的VBA運行時錯誤

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.