Outro Código de entrada no sap - vba

[levi feirreira]

Boa noite,

 

Agradeço me ajudarem num código vba abaixo para entrar no SAP: sapgui, porém dar erro de "não identifica o objeto ou biblioteca"

 

Help me 

 

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