当 VBA [excel] 中的运行时，用于数据导出的 SAP GUI VBScript 结果为空文档

Question

我有一个从 SAP GUI 运行数据导出的 VBScript。如果单独执行或在 SAP 中执行，它会运行并生成包含所需数据的 excel 工作表。

但是，我想在 VBA Sub 中实现它。我发现 this 线程已经很有帮助了。当我在 excel 中启动宏时，它通过 SAP 运行整个脚本而不会出错，只是为了打开目标 Excel 文件而不将数据保存到其中。刚开始没看出来，后来清空文件就明显没有被覆盖了。

也没有显示错误信息。

在此先感谢您的帮助。

Public Sub Connect_To_SAP()
  
On Error GoTo Err_NoSAP

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

If (Connection.Children.Count > 1) Then GoTo Err_TooManySAP

Set aw = SAP_session.ActiveWindow()
aw.findById("wnd[0]").Maximize

On Error GoTo Err_Description
SAP_session.findById("wnd[0]").Maximize
SAP_session.findById("wnd[0]/tbar[0]/btn[12]").press
SAP_session.findById("wnd[0]/tbar[0]/btn[12]").press
SAP_session.findById("wnd[0]/tbar[0]/btn[12]").press
SAP_session.findById("wnd[0]/tbar[0]/okcd").Text = "Execution"
SAP_session.findById("wnd[0]/tbar[0]/btn[0]").press
SAP_session.findById("wnd[0]/tbar[1]/btn[8]").press
SAP_session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").setCurrentCell -1, ""
SAP_session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").SelectAll
SAP_session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").contextMenu
SAP_session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").selectContextMenuItem "&XXL"
SAP_session.findById("wnd[1]/tbar[0]/btn[0]").press
SAP_session.findById("wnd[1]/usr/ctxtDY_PATH").Text = "C:\Users\%UserName%\Documents\SAP\SAP GUI\"
SAP_session.findById("wnd[1]/usr/ctxtDY_FILENAME").Text = "Test.XLSX"
SAP_session.findById("wnd[1]/usr/ctxtDY_FILENAME").caretPosition = 8
SAP_session.findById("wnd[1]/tbar[0]/btn[11]").press

Exit Sub

Err_Description:
    MsgBox ("The program has generated an error;" & Chr(13) & _
    "the reason for this error is unknown."), vbInformation
        Exit Sub

Err_NoSAP:
MsgBox ("You don't have SAP open or " & Chr(13) & _
"scripting has been disabled."), vbInformation
        Exit Sub

Err_TooManySAP:
MsgBox ("You must only have one SAP session open. " & Chr(13) & _
        "Please close all other open SAP sessions."), vbInformation
         Exit Sub


End Sub

编辑：错别字

Answer 1

我运行偶然犯了同样的错误，但在其他地方却造成了不同的后果。长话短说：从 Excel 操作时，您似乎无法使用 %UserName%。取而代之的是

SAP_session.findById("wnd[1]/usr/ctxtDY_PATH").Text = "C:\Users\" & Environ("username") & "\Documents\SAP\SAP GUI\"

可能会帮助某人。

当 VBA [excel] 中的运行时，用于数据导出的 SAP GUI VBScript 结果为空文档

SAP GUI VBScript for data export results in empty document when run in VBA [excel]

excel

vba

vbscript

sap-gui

当 VBA [excel] 中的 运行 时，用于数据导出的 SAP GUI VBScript 结果为空文档

SAP GUI VBScript for data export results in empty document when run in VBA [excel]

excel

vba

vbscript

sap-gui

当 VBA [excel] 中的运行时，用于数据导出的 SAP GUI VBScript 结果为空文档