on 02-22-2019 3:22 PM
We're trying to make a SAP Scripting add-in for 64bit Office but we've had no success so far.
Would anyone know if this is feasible? Any help is highly appreaciated.
Hello Caitlin,
sure, it can't work.
BNAME = your user name, BCUSER is a standard user
BCODE = your password, minisap is a the standard for BCUSER
LANGU = your language code, e.g. EN, DE is for Germany systems
Try it with
session.findById("wnd[0]/usr/txtRSYST-BNAME").Text = "caitlin" 'Here your user name
session.findById("wnd[0]/usr/pwdRSYST-BCODE").Text = "secret" 'Here your password
session.findById("wnd[0]/usr/txtRSYST-LANGU").Text = "EN" 'Here your language code
Best regards
Stefan
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
Hello Caitlin,
it is possible to use SAP GUI Scripting with 64-bit applications, also Microsoft Office VBA.
Here an example:
If I remember it right, older versions of the SAP GUI for Windows did not offer this possibility. Which version of SAP GUI for Windows do you use? If it is an older version, update to the actual release.
Best regards
Stefan
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
Hello Stefan!
We’re using SAP 7.5 patch level 2
Would you know the requirements of SAP Scripting for 64 bit Office? (Example. SAP Version, Patch Level)
Thank you
You mean you do that...
'-Begin-----------------------------------------------------------------
'-Directives------------------------------------------------------------
Option Explicit
'-Sub Main--------------------------------------------------------------
Sub Main()
'-Variables-----------------------------------------------------------
Dim SapGuiAuto As Object
Dim SapApp As SAPFEWSELib.GuiApplication
Dim connection As SAPFEWSELib.GuiConnection
Dim session As SAPFEWSELib.GuiSession
Set SapGuiAuto = GetObject("SAPGUI")
If Not IsObject(SapGuiAuto) Then
Exit Sub
End If
Set SapApp = SapGuiAuto.GetScriptingEngine
If Not IsObject(SapApp) Then
Exit Sub
End If
Set connection = SapApp.Children(2)
If Not IsObject(connection) Then
Exit Sub
End If
Set session = connection.Children(0)
If Not IsObject(session) Then
Exit Sub
End If
session.findById("wnd[0]/usr/txtRSYST-MANDT").Text = "001"
session.findById("wnd[0]/usr/txtRSYST-BNAME").Text = "BCUSER"
session.findById("wnd[0]/usr/pwdRSYST-BCODE").Text = "minisap"
session.findById("wnd[0]/usr/txtRSYST-LANGU").Text = "DE"
session.findById("wnd[0]").sendVKey 0
End Sub
'-End-------------------------------------------------------------------
... and with the execution of sendVKey 0 you get an ABAP error but if you do the same steps manually it works with the same credentials?
User | Count |
---|---|
90 | |
10 | |
10 | |
10 | |
7 | |
7 | |
6 | |
5 | |
4 | |
3 |
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.