Excel VBScript не активирует окно ECC 6.0 - PullRequest
Новая
       6

Excel VBScript не активирует окно ECC 6.0

0 голосов
/ 22 октября 2018

Вложенный скрипт предварительно записан в ECC 6.0 (более новая версия SAP) с незначительными изменениями.Скрипт работает нормально, однако, когда он копируется в Excel VBA, макрос не вызывает окно ECC 6.0.Может кто-нибудь помочь, что не хватает?

Sub Test()      

If Not IsObject(SAPGuiApp) Then    
Set SAPGuiAuto = GetObject("SAPGUI")    
Set SAPGuiApp = SAPGuiAuto.GetScriptingEngine    
End If    
If Not IsObject(Connection) Then    
Set Connection = SAPGuiApp.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 SAPGuiApp, "on"    
End If    

session.findById("wnd[0]").resizeWorkingPane 134, 23, False    
session.findById("wnd[0]/tbar[0]/okcd").Text = "/n/sapapo/mdo4"    
session.findById("wnd[0]").sendVKey 0 

End Sub
...