如何在 Excel 或 Visual Studio 中從 VBA 執行 SAP GUI 宏？

Question

我想從 Excel 中的 VBA 編輯器或 Windows 窗體應用程序編輯和啟動 SAP 宏。

當腳本在編譯器中使用時，我無法讓我的代碼“連接”到當前的 SAP 會話。 它唯一有效的時間是當我打開宏記錄器創建的原始 VBScript 時。

SAP 在我的系統上設置的方式我們會自動登錄到 SAP Logon 並通過 Web 門戶 saplogon.com/irj/portal 啟動一個新的 sap GUI 窗口，在與圖形用戶界面。

當我逐字復制宏腳本時，出現運行時錯誤：

If Not IsObject(application) Then
   Set SapGuiAuto  = GetObject("SAPGUI")
   Set application = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(connection) Then
   Set connection = application.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 application, "on"
End If
session.findById("wnd[0]").maximize
session.findById("wnd[0]/usr/subSA_0100_1:SAPMZCX_CSDSLSBM5001_OFS_OTS:2410/subSA_2410_1:SAPMZCX_CSDSLSBM5001_OFS_OTS:2510/ctxtKUWEV-KUNNR").text = "I033"
session.findById("wnd[0]/usr/subSA_0100_1:SAPMZCX_CSDSLSBM5001_OFS_OTS:2410/subSA_2410_1:SAPMZCX_CSDSLSBM5001_OFS_OTS:2510/ctxtKUWEV-KUNNR").caretPosition = 4
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[1]/usr/lbl[12,3]").setFocus
session.findById("wnd[1]/usr/lbl[12,3]").caretPosition = 16
session.findById("wnd[1]").sendVKey 2
session.findById("wnd[0]/shellcont/shell/shellcont[1]/shell").setCurrentCell 1,"MAKTX2"
session.findById("wnd[0]/shellcont/shell/shellcont[1]/shell").doubleClickCurrentCell
session.findById("wnd[1]/tbar[0]/btn[0]").press`

我一直試圖解決這個問題的方法是將 sapfewselib 引用添加到項目中，然后聲明 SAP GUI 對象。

我能找到的所有示例都是關於如何登錄到新的 SAP 會話的。 我不明白為什么代碼會在記事本保存為 VBScript 文件時執行，但在附加到 Windows 窗體應用程序或 Excel 電子表格中的按鈕時不會執行，即使我已經添加了引用。

Answer 1

所以我仍然無法在 c# 中找到一個不包括登錄的示例，但對於 Excel 中的 VBA 編輯器，以下工作是有效的，但請注意 Visual Studio 中的“set”和“let”關鍵字已停用。 以防萬一其他人有同樣的問題，這就是您需要分配給按鈕的內容：

    Sub Button1_Click()

    Dim SapGuiAuto
    Dim SetApp
    Dim Connection
    Dim Session

    Set SapGuiAuto = GetObject("SAPGUI")
    Set SetApp = SapGuiAuto.GetScriptingEngine
    Set Connection = SetApp.Children(0)
    Set Session = Connection.Children(0)

    Session.findById("wnd[0]").maximize

//Then your script to control gui below this://
    Session.findById("wnd[0]/usr/subSA_0100_1:SAPMZCX_CSDSLSBM5001_OFS_OTS:2410/subSA_2410_1:SAPMZCX_CSDSLSBM5001_OFS_OTS:2510/ctxtKUWEV-KUNNR").Text = "I033"
    Session.findById("wnd[0]/usr/subSA_0100_1:SAPMZCX_CSDSLSBM5001_OFS_OTS:2410/subSA_2410_1:SAPMZCX_CSDSLSBM5001_OFS_OTS:2510/ctxtKUWEV-KUNNR").caretPosition = 4
    Session.findById("wnd[0]").sendVKey 0
    Session.findById("wnd[1]/usr/lbl[12,3]").SetFocus
    Session.findById("wnd[1]/usr/lbl[12,3]").caretPosition = 16
    Session.findById("wnd[1]").sendVKey 2
    Session.findById("wnd[0]/shellcont/shell/shellcont[1]/shell").setCurrentCell 1, "MAKTX2"
    Session.findById("wnd[0]/shellcont/shell/shellcont[1]/shell").doubleClickCurrentCell
    Session.findById("wnd[1]/tbar[0]/btn[0]").press

    End Sub