eai galera td certo?
eu to apanhando pra puxar uma tabela do sap pra minha planilha do excel. O código pra logar e gerar a planilha eu já consegui, porem ela gera em Basis e eu não sei como como fazer a minha planilha receber os dados da planilha gerada pelo sap. e ela fecha sosinha logo depois de extrair a tabela do sap.
*Obs. eu utlizo o SAP ERP- ECC
Sub Logontrial()
Dim SapGuiApp As Object
Dim oConnection As Object
Dim session As Object
Dim SAPCon As Object, SAPSesi As Object
Dim SAPGUIAuto As Object, SAPApp As Object
'Dim sapConnection As Object
If SapGuiApp Is Nothing Then
Set SapGuiApp = CreateObject("Sapgui.ScriptingCtrl.1")
End If
If oConnection Is Nothing Then
Set oConnection = SapGuiApp.OpenConnection("transação", True)
End If
If SAPSesi Is Nothing Then
Set SAPSesi = oConnection.Children(0)
End If
Application.DisplayAlerts = False
With SAPSesi
.findById("wnd[0]/usr/txtRSYST-MANDT").Text = "350"
.findById("wnd[0]/usr/txtRSYST-BNAME").Text = "usuario"
.findById("wnd[0]/usr/pwdRSYST-BCODE").Text = "senha"
.findById("wnd[0]/usr/txtRSYST-LANGU").Text = "pt"
.findById("wnd[0]").sendVKey 0
'daqui que sai a tabela
.findById("wnd[0]").maximize
.findById("wnd[0]/tbar[0]/okcd").Text = "iq09"
End With
Application.DisplayAlerts = False
MsgBox "After clicking OK, this SAP session is terminated."
End Sub
Postado : 25/08/2017 11:54 am