如何处理等待另一个应用程序 (SAP) 完成 OLE 操作？

Question

我正在尝试自动化 SAP 中的流程。

我记录了一系列程序并将代码粘贴在宏表中。我使用以下命令让 Excel 读取 VBA 代码：

Dim SapGuiAuto As Object
Dim Application As Object
Dim Connection As Object
Dim Session As Object

Set SapGuiAuto = GetObject("SAPGUI")
Set Application = SapGuiAuto.GetScriptingEngine
Set Connection = Application.Children(0)
Set Session = Connection.Children(0)

对于其中一个部分，SAP 需要花费几分钟时间进行大量计算，在计算过程中，Excel 会生成以下消息：

我必须单击“确定”才能继续，然后它会不停地弹出，我必须这样做 10-15 次，这消除了自动化点。

在没有宏的情况下执行此操作时，SAP 不会给我任何错误。

我尝试用

关闭它

Application.DisplayAlerts = False

它反而给了我：

我搜索了网络和网站，但几乎没有任何有用的信息可能是因为我的问题太具体了。

一些附加信息：
1. 我的笔记本电脑下班了，未经许可我无法安装任何其他软件或更新。
2. 我尝试检查 DDE 的 Excel 选项，但是当我尝试运行脚本时它只会给我一个错误。

我的 Excel 版本是 2013。

如何实现我能想到的三个解决方案之一：
1. 禁用 OLE 的弹出窗口
2.让它每次出现时自动点击确定
3.让Excel冻结并等待SAP做它的事情？ （不知道这是否有意义。）尝试使用Application.Wait，但没有成功

Answer 1

上面的Storax实际上给出了另一个主题的链接以及问题的解决方案。

代码在这里：

Private Declare Function _
    CoRegisterMessageFilter Lib "OLE32.DLL" _
    (ByVal lFilterIn As Long, _
    ByRef lPreviousFilter) As Long

Sub KillMessageFilter()  
    '''Original script Rob Bovey  

    '''https://groups.google.com/forum/?hl=en#!msg/microsoft.public.excel.programming/ct8NRT-o7rs/jawi42S8Ci0J
    '''http://www.appspro.com/

    Dim lMsgFilter As Long

    ''' Remove the message filter before calling Reflections.
    CoRegisterMessageFilter 0&, lMsgFilter

    ''' Call your code here....

    ''' Restore the message filter after calling Reflections.
    CoRegisterMessageFilter lMsgFilter, lMsgFilter

End Sub

Answer 2

如果您使用 64 位 Microsoft Office，您应该根据 Declare Statement 稍微更改 M_Delineshev 提供的代码。尝试使用这个版本：

Private Declare PtrSafe Function _
    CoRegisterMessageFilter Lib "OLE32.DLL" _
    (ByVal lFilterIn As Long, _
    ByRef lPreviousFilter) As LongPtr


Sub KillMessageFilter() '''Original script Rob Bovey

'''https://groups.google.com/forum/?hl=en#!msg/microsoft.public.excel.programming/ct8NRT-o7rs/jawi42S8Ci0J '''http://www.appspro.com/

Dim lMsgFilter As Long

''' Remove the message filter before calling Reflections. CoRegisterMessageFilter 0&, lMsgFilter

''' Call your code here....

''' Restore the message filter after calling Reflections. CoRegisterMessageFilter lMsgFilter, lMsgFilter

End Sub

Answer 3

以下代码对我有用...

Private Declare PtrSafe Function CoRegisterMessageFilter Lib "OLE32.DLL" (ByVal lFilterIn As Long, ByRef lPreviousFilter) As Long

Sub IgnoreMessages()

Dim lMsgFilter As Long

CoRegisterMessageFilter 0&, lMsgFilter

'Write your code here

CoRegisterMessageFilter lMsgFilter, lMsgFilter

End Sub