Boa tarde!

Estou precisando retirar dados automaticamente do SAP. Consigo conectar e desconectar via Excel através de macro. Não consigo utilizar o PowerQuery pois não há Oledb for OLAP. OSAP já tem os relatórios pre formados que rodam e geram os dados, gostaria de acessa-los mas não descobri como. Alguém neste fórum consegue auxiliar ou devo procurar um de SAP. Obrigado antecipadamente.

Segue a rotina que utilizo para longon e logoff, funciona normal, fico pendente em obter os dados dos relatórios.

Sub Sap_Conn()
  Dim R3Connection As Connection
  

  Set LogonControl = CreateObject("SAP.LogonControl.1")
  Set objBAPIControl = CreateObject("SAP.Functions")
  Set R3Connection = LogonControl.NewConnection

  With R3Connection
    .Client = "XXX"
    .ApplicationServer = "192.168.0.001"
    .Language = "PT"
    .User = "xxxxxxxx"
    .Password = "********"
    .SystemNumber = "00"
    .System = "XXX"
    .SystemID = ""
    .UseSAPRFCIni = False
    .HostName = "192.168.0.001"
  
    retcd = .Logon(0, True)
  End With

End sub