filmov
tv
Log into SAP from Excel with SAP GUI Scripting API

Показать описание
Learn how to enable the SAP GUI Scripting API in Excel. I will also provide and explain a VBA code to automatically log into SAP from Excel.
👍 Don't forget to like, comment, and subscribe to support the channel! Thank you for your incredible support! 🙌
▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬
👨💻 VBS Code:
Sub SAPLogin()
Dim SapGui As Object
Dim App As SAPFEWSELib.GuiApplication
Dim Conn As SAPFEWSELib.GuiConnection
Dim Session As SAPFEWSELib.GuiSession
Set SapGui = GetObject("SAPGUI")
If IsObject(SapGui) Then
Set App = SapGui.GetScriptingEngine
If IsObject(App) Then
Set Conn = App.OpenConnection("ABAP Platform 1909 Trial")
If IsObject(Conn) Then
Set Session = Conn.Children(0)
Session.FindById("wnd[0]/usr/txtRSYST-MANDT").Text = "001"
Session.FindById("wnd[0]/usr/txtRSYST-BNAME").Text = "DEVELOPER"
Session.FindById("wnd[0]/usr/pwdRSYST-BCODE").Text = "Htods70334"
Session.FindById("wnd[0]/usr/txtRSYST-LANGU").Text = "EN"
Session.FindById("wnd[0]").SendVKey 0
Session.StartTransaction ("SE16")
End If
End If
End If
End Sub
▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬
🎬 Content Timestamps:
00:00 - Intro
01:14 - Activate Developer ribbon
02:00 - Include SAP GUI Scripting API
04:05 - VBA to SAP Login from Excel
08:02 - Insert form control
08:23 - Excel to SAP Login
08:45 - Outro
▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬
🎵 Music Credits:
"Oh My" by Patrick Patrikios
"Feels" by Patrick Patrikios
▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬
🔗 Useful Links:
🙏 Support ERP UP:
🔗 Connect with Andreas Geiger:
▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬
Feel free to engage with the content and support the channel through the provided links. Your support is greatly appreciated! 🌟
👍 Don't forget to like, comment, and subscribe to support the channel! Thank you for your incredible support! 🙌
▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬
👨💻 VBS Code:
Sub SAPLogin()
Dim SapGui As Object
Dim App As SAPFEWSELib.GuiApplication
Dim Conn As SAPFEWSELib.GuiConnection
Dim Session As SAPFEWSELib.GuiSession
Set SapGui = GetObject("SAPGUI")
If IsObject(SapGui) Then
Set App = SapGui.GetScriptingEngine
If IsObject(App) Then
Set Conn = App.OpenConnection("ABAP Platform 1909 Trial")
If IsObject(Conn) Then
Set Session = Conn.Children(0)
Session.FindById("wnd[0]/usr/txtRSYST-MANDT").Text = "001"
Session.FindById("wnd[0]/usr/txtRSYST-BNAME").Text = "DEVELOPER"
Session.FindById("wnd[0]/usr/pwdRSYST-BCODE").Text = "Htods70334"
Session.FindById("wnd[0]/usr/txtRSYST-LANGU").Text = "EN"
Session.FindById("wnd[0]").SendVKey 0
Session.StartTransaction ("SE16")
End If
End If
End If
End Sub
▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬
🎬 Content Timestamps:
00:00 - Intro
01:14 - Activate Developer ribbon
02:00 - Include SAP GUI Scripting API
04:05 - VBA to SAP Login from Excel
08:02 - Insert form control
08:23 - Excel to SAP Login
08:45 - Outro
▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬
🎵 Music Credits:
"Oh My" by Patrick Patrikios
"Feels" by Patrick Patrikios
▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬
🔗 Useful Links:
🙏 Support ERP UP:
🔗 Connect with Andreas Geiger:
▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬
Feel free to engage with the content and support the channel through the provided links. Your support is greatly appreciated! 🌟
Комментарии