WPS官网32位新版本18608不支持VBA调用SAP

这是excel的运行截图

这是WPS的报错

这个BUG请官方尽快修复

代码如下：就是一个连接SAP的代码

Sub test()

If Not IsObject(app) Then
   Set SapGuiAuto = GetObject("SAPGUI")
   Set app = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(Connection) Then
   Set Connection = app.Children(0)
End If
    If Not IsObject(session) Then
   Set session = Connection.Children(0)
End If
If IsObject(WScript) Then
   WScript.ConnectObject session, "on"
   WScript.ConnectObject app, "on"
End If

End Sub