SAP Programından Excele Otomatik Veri Çekme

Sub Sap()
Set WshShell = CreateObject("WScript.Shell")
Set proc = WshShell.Exec("C:\Program Files (x86)\SAP\FrontEnd\SAPgui\saplogon.exe")
Set SapGui = GetObject("SAPGUI")
Set Appl = SapGui.GetScriptingEngine
Set Connection = Appl.OpenConnection("PR2 ( CANLI )")
Set session = Connection.Children(0)
'^^^^^^^^^^^^^^^^^^^^^^^^^'
session.findById("wnd[0]/usr/txtRSYST-BNAME").Text = "kullanıxı"
session.findById("wnd[0]/usr/pwdRSYST-BCODE").Text = "sıfre"
session.findById("wnd[0]/usr/pwdRSYST-BCODE").SetFocus
session.findById("wnd[0]/usr/pwdRSYST-BCODE").caretPosition = 6
session.findById("wnd[0]").sendVKey
'^^^^^^^^^^^^^^^^^^^^^^^^^'
session.findById("wnd[0]").maximize
'^^^^^^^^^^^^^^^^^^^^^^^^^'
'MAKRO KODLARI
End Sub

https://blogs.sap.com/2014/08/04/script-recording-playback-for-dummies

https://macrostutorials.blogspot.com/2014/12/how-to-create-sap-gui-script.html