Strona 1 z 1
Wyciąganie danych z Sap do excel
: śr mar 13, 2019 9:06 am
autor: davis79
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.
Re: Wyciąganie danych z Sap do excel
: śr mar 13, 2019 9:51 am
autor: gorg6
Witam,
Co konkretnie próbujesz zrobić?
Chcesz użyć GUI scripting w makrze?
Pozdrawiam
Gorg6
Re: Wyciąganie danych z Sap do excel
: śr mar 13, 2019 10:00 am
autor: davis79
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.
Re: Wyciąganie danych z Sap do excel
: czw mar 14, 2019 9:01 am
autor: davis79
Nikt nic ?