Conectar SAP COm LIBREOFFICE

[hdl]

Boa tarde,
Segue abaixo meu codigo no excel 32 bits funciona, mas no libra office da erro “Erro de execução do BASIC.
'35’GetObjec sou leigo em vba rs”

Option Explicit

Private Sub btAcessar_Click()

   
    
    Dim iUserSAP As String
    Dim iSenhaSAP As String
    
    
    Dim sapConn, WshShell, proc, SapGui, Appl, Connection, session, appSAP, SapGuiAuto, WScript

    If cdUsuario = "" Or cdSenha = "" Then
        MsgBox "Campos 'Usuário' e 'Senha' são obrigatórios. Verifique!", vbExclamation, "Informação de Acesso"
        Exit Sub
    End If

    iUserSAP = cdUsuario
    iSenhaSAP = cdSenha

    Set WshShell = CreateObject("WScript.Shell")

    Set proc = WshShell.Exec("C:\Program Files (x86)\SAP\FrontEnd\SAPgui\saplogon.exe")
    
    Application.Wait Now + TimeValue("0:00:02")
    Set SapGui = GetObject("SAPGUI")
    Set Appl = SapGui.GetScriptingEngine
    
    Set sapConn = CreateObject("SAP.Functions") 'Cria o objeto ActiveX
        sapConn.Connection.ApplicationServer = "Server URL"
        sapConn.Connection.Client = "800" 'Mandante (Host)
        sapConn.Connection.User = iUserSAP 'Usuario
        sapConn.Connection.System = "SAP_Login" 'Descrição do Sistema
        sapConn.Connection.Password = iSenhaSAP 'Senha SAP
        sapConn.Connection.Language = "PT"
        Set Connection = Appl.openconnection("SAP_Login", True)
    
    Set session = Connection.Children(0)
        session.findById("wnd[0]").maximize
        session.findById("wnd[0]/usr/txtRSYST-BNAME").Text = sapConn.Connection.User
        session.findById("wnd[0]/usr/pwdRSYST-BCODE").Text = iSenhaSAP
        session.findById("wnd[0]/usr/txtRSYST-LANGU").Text = sapConn.Connection.Language
        session.findById("wnd[0]").sendVKey 0
    
    'Rodar a transação do SAP
    'Aqui você pode colocar o script de uma transação

    'Sair do Sap
    If cdAcessarSair.Value = True Then
        session.findById("wnd[0]/tbar[0]/btn[15]").press
        session.findById("wnd[1]/usr/btnSPOP-OPTION1").press
    End If
    
    Unload Me

End Sub

Private Sub btCancelar_Click()
 Unload Me
End Sub

Private Sub Label1_Click()

End Sub

Private Sub UserForm_Click()

End Sub