Excel SAP GUI 编译错误标签未定义答案

【问题标题】：Excel SAP GUI Compile error label not definedExcel SAP GUI 编译错误标签未定义
【发布时间】：2021-05-11 21:24:07
【问题描述】：

我有这个我记录的 SAP GUI 脚本，如下所示。宏应该能够将其导出到 Excel 工作表。但是，我需要一种方法来实际填充 excel 工作表。但是我不断收到此错误：找不到标签。有人可以帮我吗？我在这里看到了这个问题：How to run SAP GUI script from Excel Macro

但是，我几乎完全相同地遵循它，我正在尝试解决我搞砸的地方。

原始 SAP 宏记录器：

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]/tbar[0]/okcd").text = "ZPRS"
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/ctxtP_PLANT").text = "1707"
session.findById("wnd[0]/usr/ctxtS_ARBPL-LOW").text = "BSLSR"
session.findById("wnd[0]/usr/ctxtS_ARBPL-LOW").setFocus
session.findById("wnd[0]/usr/ctxtS_ARBPL-LOW").caretPosition = 5
session.findById("wnd[0]/tbar[1]/btn[8]").press
session.findById("wnd[0]/tbar[1]/btn[8]").press

查看链接并将其更改为我认为正确的

Private Sub CommandButton1_Click()

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(session) Then
   Set session = Connection.Children(0)
End If
If IsObject(WScript) Then
   WScript.ConnectObject 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

session.findById("wnd[0]").Maximize
session.findById("wnd[0]/tbar[0]/okcd").Text = "ZPRS"
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/ctxtP_PLANT").Text = "1707"
session.findById("wnd[0]/usr/ctxtS_ARBPL-LOW").Text = "BSLSR"
session.findById("wnd[0]/usr/ctxtS_ARBPL-LOW").SetFocus
session.findById("wnd[0]/usr/ctxtS_ARBPL-LOW").caretPosition = 5
session.findById("wnd[0]/tbar[1]/btn[8]").press
session.findById("wnd[0]/tbar[1]/btn[8]").press

Exit Sub

End Sub

但随后我收到错误消息：

编译错误：标签未定义

有人对如何纠正这个问题有任何想法吗？

【问题讨论】：

Err_NoSAP: 不见了...

标签： excel vba user-interface sap-gui

【解决方案1】：

嗯，乍一看，您正在使用像 On Error GoTo Err_NoSAP 这样的错误处理程序。在您发布的代码行中没有任何地方带有像Err_NoSAP: 这样的错误处理程序，代码应该在发生错误后跳转到。

【讨论】：