点击此处--->   群内免费提供SAP练习系统（在群公告中）

加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）

嗨！

我是在SAP上创建脚本的新手。 我一直试图在vba Excel中记录脚本，但是在Excel不能打开SAP系统（P08 One SAP）的行中，我不断收到错误424"需要对象"

有人可以帮我吗？

这是我到目前为止拥有的脚本：

Sub aa（）
Dim A作为字符串
Dim D作为日期
Dim B作为字符串
Dim Y作为日期

Application.DisplayAlerts = False

Shell" C：\ Program Files（x86）\ SAP \ FrontEnd \ SapGui \ saplogon.exe"，vbNormalFocus

设置WSHShell = CreateObject（" WScript.Shell"）
直到WSHShell.AppActivate（" SAP Logon"）
Application.Wait + TimeValue（" 0:00:01"）
Loop

如果不是IsObject（SAPguiApp），则
设置SapGuiAuto = GetObject（" SAPGUI"）
设置SapGuiAuto = SapGuiAuto.GetScriptingEngine
如果结束

在这里我收到错误424：

如果不是IsObject（Connection），则
设置连接= SAPguiApp.OpenConnection（" P08 One SAP"，True）
如果结束

如果不是IsObject（Session），则
设置会话= Connection.Children（0）
如果结束

如果IsObject（WScript）则
WScript.ConnectObject会话，"在"上
WScript.ConnectObject SAPguiApp，"在"上
如果结束

错误恢复下一个
如果Session.findById（" wnd [1]"）。Text ="多次登录的许可信息"，则
Session.findById（" wnd [1]/usr/radMULTI_LOGON_OPT2" ）.Select
Session.findById（" wnd [1]/usr/radMULTI_LOGON_OPT2"）。SetFocus
Session.findById（" wnd [1]"）。sendVKey 0
如果结束

Session.findById（" wnd [0]"）。maximize
Session.findById（" wnd [0]/tbar [0]/okcd"）。Text ="/img/nlt22"
Session.findById （" wnd [0]"）。sendVKey 0
Session.findById（" wnd [0]/usr/radT3_QUITA"）。选择
Session.findById（" wnd [0]/usr/chkT3_SEVON"）。 已选择= True
Session.findById（" wnd [0]/usr/ctxtT3_LGNUM"）。Text =" mx1"
Session.findById（" wnd [0]/usr/ctxtT3_LGTYP-LOW"）。Text = " 001"
Session.findById（" wnd [0]/usr/ctxtBDATU-LOW"）。SetFocus
Session.findById（" wnd [0]/usr/ctxtBDATU-LOW"）。caretPosition = 0 < br> Session.findById（" wnd [0]"）。sendVKey 4

Y = Now（）-1
D = Now（）
A = Year（Y）＆Format（Month（Y），" 00"）＆Format（Day（Y），" 00" ）
B =年（D）和格式（月（D），" 00"）和格式（天（D），" 00"）

Session.findById（" wnd [1]/usr/cntlCONTAINER/shellcont/shell"）。Text = A
Session.findById（" wnd [1]/usr/cntlCONTAINER/shellcont/shell"）。selectionInterval =" A，A"
Session.findById（" wnd [0]/usr/ctxtBDATU-HIGH"）。SetFocus findById（" wnd [0]/usr/ctxtBDATU-HIGH"）。caretPosition = 0
Session.findById（" wnd [0]"）。sendVKey 4
Session.findById（" wnd [1]/usr/cntlCONTAINER/shellcont/shell"）。Text = B 。 findById（" wnd [1]/usr/cntlCONTAINER/shellcont/shell"）。selectionInterval =" B，B"
Session.findById（" wnd [0]/usr/ctxtLISTV"）。Text ="/img/AUXIA"
Session.findById（" wnd [0]/usr/ctxtLISTV"）。SetFocus
Session.findById（" wnd [0]/usr/ctxtLISTV"）。caretPosition = 6
Session.findById（" wnd [0]"）。sendVKey 8
Session.findById（" wnd [0]/usr/lbl [23,5]"）。SetFocus
Session.findById（" wnd [0]/usr/lbl [23,5]"）。caretPosition = 0
Session.findById（" wnd [0]/mbar/menu [0]/menu [1]/menu [1]"）。Select
Session.findById （" wnd [1]/usr/ctxtDY_PATH"）。Text =" G：\ Common \ DPP \ @Site Logistics \ Almacen \ MACRO VENTANILLA \" < br> Session.findById（" wnd [1]/usr/ctxtDY_FILENAME"）。Text ="封闭的TOs.XLSX"
Session.findById（" wnd [1]/usr/ctxtDY_FILENAME"）。caretPosition = 15
Session.findById（" wnd [1]/tbar [0]/btn [11]"）。press
Session.findById（" wnd [0]/tbar [0]/btn [15]"）。press
Session.findById（" wnd [0]/tbar [0]/btn [15]"）。按

结束子