VBA 调用 SAP 事务答案

【问题标题】：VBA to call SAP transactionVBA 调用 SAP 事务
【发布时间】：2014-08-05 03:28:55
【问题描述】：

我正在尝试从 Excel 调用 SAP 事务，我使用了许多来自 Internet 的代码，但仍然失败。不管我使用什么代码，我总是得到与

相同的错误消息

脚本正在打开与系统 SYSTEM 的连接

比错误说：

运行时错误 1000 错误描述不可用"

比调试后它在下面以黄色突出显示

Set Connection = SapGuiApp.OpenConnection("SYSTEM", True)

它一直在使用我试图提取的所有代码。

代码

Dim sap As Object 
Dim conn As Object
 
Sub T_login()
 
    Set sap = CreateObject("SAP.Functions")
    Set conn = sap.Connection
    conn.System = "SYSTEM"
    conn.client = "603"
    conn.user = "LANAX001"
    conn.Password = "alamzeb4"
    conn.Language = "EN"
 
If conn.logon(0, False) Then
    
    MsgBox "Logon to the SAP system is not possible", vbOKOnly, "Comment"
 
Else
 
End If
 
If Not IsObject(SapGuiApp) Then
            
    Set SapGuiApp = CreateObject("Sapgui.ScriptingCtrl.1")
 
End If
 
If Not IsObject(Connection) Then
 
    Set Connection = SapGuiApp.OpenConnection("SYSTEM", True)
 
End If
 
If Not IsObject(session) Then
 
    Set session = Connection.Children(0)     
    'launch a transaction
    session.findById("wnd[0]").Maximize
    session.findById("wnd[0]/tbar[0]/okcd").Text = "FS10N"
    session.findById("wnd[0]").sendVKey 0

End Sub

【问题讨论】：

您好，请检查 conn.System = "SYSTEM" 值：据我所知，它应该是 3 符号标识符，例如 NSP 或 A4H -- 请参阅 SAP Logon 中的连接属性。
如果您想通过 Excel VBA 连接到 SAP，请查看这篇文章 stackoverflow.com/a/58348742/11636588 或这篇文章 simpleexcelvba.com/connect-to-sap-via-excel-vba 它可能会对您有所帮助

标签： excel vba sap-gui

【解决方案1】：

这是我用来将数据加载到 SAP 的工具 - 经验证可以正常工作。 HTH。

If Not IsObject(App) Then
   Set SapGuiAuto = GetObject("SAPGUI")
   Set App = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(Connection) Then
   Set Connection = App.Children(0)
End If
If Not IsObject(session) Then
   Set session = Connection.Children(0)
End If
If IsObject(WScript) Then
   WScript.ConnectObject session, "on"
   WScript.ConnectObject App, "on"
End If

session.findById("wnd[0]").maximize
session.findById("wnd[0]/tbar[0]/okcd").Text = "/nXXXX" 'XXX = your t-code
... ...

之后，这取决于你在 t-code 中做什么。

祝你好运！

【讨论】：