使用VBA

Question

我正在尝试使用vba执行SAP脚本，但它显示以下错误 “集合的枚举无法找到具有指定索引的元素”

我已经尝试了一些解决方案，但到目前为止还没有任何工作？ 在sap中记录脚本的按钮完全空白，无处不在。

Answer 1

我使用下面的代码，您只需要将OpenConnection命令更改为＆＃34; SAP程序＆＃34;我将使用，在这种情况下，我使用R / 3 PCL nuevo

Shell "C:\Program Files (x86)\SAP\FrontEnd\SAPgui\saplogon.exe", vbHide
Set WSHShell = CreateObject("WScript.Shell")

Do Until WSHShell.AppActivate("SAP Logon ")
T0 = Timer
Do
Delay = Timer - T0
Loop Until Delay > 1 'tempo pra abrir o sap
Loop

Set WSHShell = Nothing

If Not IsObject(appl) Then
Set SapGuiAuto = GetObject("SAPGUI")
Set appl = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(Connection) Then
Set Connection = appl.OpenConnection("R/3 PCL nuevo", True)
End If

If Not IsObject(session) Then
Set session = Connection.Children(0)
End If
If IsObject(WScript) Then
WScript.ConnectObject session, "on"
WScript.ConnectObject appl, "on"
End If