Wyciąganie danych z Sap do excel

W tym dziale znajdują się posty z zakresu modułów finansowych systemu SAP...
davis79
Posty: 3
Rejestracja: śr mar 06, 2019 1:05 pm

Wyciąganie danych z Sap do excel

Post autor: davis79 » śr mar 13, 2019 9:06 am

Witam.

Próbuję zrobić makro w excel , które będzie wyciągać dane z sap. Niestety moje makro nie działa. Gdy ręcznie wyciągam dane z sap to są one ładowane do pliku excel, a gdy chcę to zrobić z makro to dostaję pusty plik excel.

gorg6
Posty: 40
Rejestracja: czw sty 22, 2015 3:00 pm
Has thanked: 2 times
Been thanked: 10 times

Re: Wyciąganie danych z Sap do excel

Post autor: gorg6 » śr mar 13, 2019 9:51 am

Witam,
Co konkretnie próbujesz zrobić?
Chcesz użyć GUI scripting w makrze?
Pozdrawiam
Gorg6

davis79
Posty: 3
Rejestracja: śr mar 06, 2019 1:05 pm

Re: Wyciąganie danych z Sap do excel

Post autor: davis79 » śr mar 13, 2019 10:00 am

Kod: Zaznacz cały


Sub sap_to_excel()

Call Shell("C:\Program Files (x86)\SAP\FrontEnd\SAPgui\saplogon.exe")

Application.Wait (Now + TimeValue("00:00:05"))

Set SapGui = GetObject("SAPGUI")
Set Appl = SapGui.GetScriptingEngine
Set Connection = Appl.Openconnection("ECC6 SAP Prod - P02", True)
Set session = Connection.Children(0)

session.FindById("wnd[0]").maximize
session.FindById("wnd[0]/usr/txtRSYST-BNAME").Text = "xxxxxx"
session.FindById("wnd[0]/usr/pwdRSYST-BCODE").Text = "xxxxxx"
session.FindById("wnd[0]/usr/pwdRSYST-BCODE").SetFocus
session.FindById("wnd[0]/usr/pwdRSYST-BCODE").caretPosition = 9
session.FindById("wnd[0]/tbar[0]/btn[0]").press

Dim data, lokalizacja

data = Date
lokalizacja = "C:\Users\stasinda\Desktop\" & "StockData" & data & ".xls"

session.FindById("wnd[0]").maximize
session.FindById("wnd[0]/usr/cntlIMAGE_CONTAINER/shellcont/shell/shellcont[0]/shell").doubleClickNode "F00002"
session.FindById("wnd[0]/tbar[1]/btn[17]").press
session.FindById("wnd[1]/tbar[0]/btn[8]").press
session.FindById("wnd[1]/usr/cntlALV_CONTAINER_1/shellcont/shell").CurrentCellColumn = "TEXT"
session.FindById("wnd[1]/usr/cntlALV_CONTAINER_1/shellcont/shell").selectedRows = "0"
session.FindById("wnd[1]/usr/cntlALV_CONTAINER_1/shellcont/shell").DoubleClickCurrentCell
session.FindById("wnd[0]/tbar[1]/btn[8]").press
Application.Wait (Now + TimeValue("00:00:25"))
ChDir "C:\Users\stasinda\Desktop"
ActiveWorkbook.SaveAs Filename:= _
lokalizacja, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

ActiveWorkbook.Close
session.FindById("wnd[0]/tbar[0]/btn[15]").press
session.FindById("wnd[0]/tbar[0]/btn[15]").press

Tu jest moje makro które ma wyciągać te dane.

davis79
Posty: 3
Rejestracja: śr mar 06, 2019 1:05 pm

Re: Wyciąganie danych z Sap do excel

Post autor: davis79 » czw mar 14, 2019 9:01 am

Nikt nic ?

ODPOWIEDZ