正在等待其它应用程式完成ole动作 如何解决

lolmuta

我这个错误是在excel中去开启powerpoint的档案时发生的。

后来查了一下，官方也有回应这个错误的解决方式
下面是繁体的
https://support.microsoft.com/zh-tw/kb/2663513

其中我是用关闭加载宏来解决这个错误。


但后来我发现其实是可以不用关闭的方式来决解，不过是满tricky的就是了。
先来看看出错的地方

下面代码是在excel中执行，引用miscrosoft powerpoint object libirary
只是单纯开启powerpoint档案，然后关闭
我的powerpoint是有一些加载宏
Public PptApp As PowerPoint.Application
Sub testOpenPPt()
Dim Pres As Presentation
Set PptApp = New PowerPoint.Application
'Application.Wait (Now + #12:00:01 AM#)
For i = 1 To 10
Set Pres = PptApp.Presentations.Open(your_ppt_File_Fullpath)
Pres.Close
Next
PptApp.Quit
End Sub

会机率性出错
现象为
excel完全卡住，按ctrl+break 无效
等了约一分多钟后出现警告讯息 "正在等待其它应用程式完成ole动作"
当按下确定后，就不断的循环，卡一分钟，又出现警告讯息....

当发生这种卡死问题时，比较好的方式为从工作管员强制将powerpoint.exe关闭，
让程式出错在
Set PptApp =New PowerPoint.Application

而跳出循环。

很明显，问题就出在那句，所以我就在那句后面加上
Application.Wait (Now + #12:00:01 AM#)
也就是我注解的那句
等待1秒再执行

然后呢：就好了…就没有问题了…

所以，为什么会这样? 就自行解读啰!

t13564865256

我用EXCEL VBA 操作EXCEL表格时候也遇到过。没啥原因。就是表格公式太多。计算时候卡住了。然后程序就出现这个提示。我只要把公式写成值就没问题了。所以这种问题会出现的情况非常多。没啥有特点或者重点一说。

sampsonpon

我现在也碰到了，到底怎么去掉这个提示啊？因为是自动运行的，不想要这种提示。

sampsonpon

怎么解决？