SAP录制的VBS脚本在VBA中运行

哐哐~ · 发表于 2016-9-9 12:59

公司换了SAP系统，内置录制脚本和回放功能，生成的VBS代码，单独运行VBS能够执行，我想放到VBA中，后续做自定义变量去执行

现在原代码直接在VBA运行报错，如何修改才能在VBA能够运行。

Sub 测试()
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 = "/NZFI015"
session.findById("wnd[0]/tbar[0]/btn[0]").press
session.findById("wnd[0]/usr/ctxtP_COM").Text = "A018"
session.findById("wnd[0]/usr/ctxtS_KHINR-LOW").Text = "A4350"
session.findById("wnd[0]/usr/ctxtS_KHINR-HIGH").Text = "A4350"
session.findById("wnd[0]/usr/txtP_GJAHR").Text = "2016"
session.findById("wnd[0]/usr/ctxtS_CPUDT-LOW").Text = ""
session.findById("wnd[0]/usr/txtS_BELNR-LOW").Text = "3300000000"
session.findById("wnd[0]/usr/txtS_BELNR-HIGH").Text = "3300000000"
session.findById("wnd[0]/usr/txtS_BELNR-HIGH").SetFocus
session.findById("wnd[0]/usr/txtS_BELNR-HIGH").caretPosition = 10
session.findById("wnd[0]/tbar[1]/btn[8]").press
session.findById("wnd[0]/tbar[1]/btn[37]").press
session.findById("wnd[0]/tbar[1]/btn[39]").press
session.findById("wnd[1]/tbar[0]/btn[86]").press
End Sub

复制代码

zhjlgaojuan · 发表于 2016-9-9 14:17

这种貌似没法直接引用了,起码,你录制的代码里面APPLICATION和VBA里面的APPLICATION就完全不是同一个对象

哐哐~ · 发表于 2016-9-9 14:46

应该是可以实现的，我在网上搜索到一篇博客，里面有讲可以宏运行

liucqa · 发表于 2016-9-10 23:45

你先学习一下vba语法，然后再搞比较好

myperworld · 发表于 2017-10-31 11:21

把Application 改成SAPApplication 不就行了

zhenghui13 · 发表于 2017-10-31 13:58

我在以前公司手工RUN标准成本的时候写过一个比较粗糙的；有几点需要注意:一个是我的运行环境是WIN7+SAP ECC6.0;只能有一个活动的SAP GUI;T-Code是CK11N的情况。如果你需要其他T-Code,你要自己录一个然后修改一个。

Option Explicit
Public SapGuiAuto As Object
Public Applicat As Object
Public Connection As Object
Public Session As Object
Public StaBar As Object
Public SubTbar As Object
Public subWindow As Object
Public arr '数据区域
Function Attach() As Boolean '是否调用SAPGUI
On Error Resume Next
Set SapGuiAuto = GetObject("SAPGUI")
On Error GoTo 0
If SapGuiAuto Is Nothing Then
Attach = False
Exit Function
Else
Set Applicat = SapGuiAuto.GetScriptingEngine
On Error GoTo 0
End If
If Applicat Is Nothing Then
MsgBox "Scripting Disabled"
Attach = False
Exit Function
End If
If Applicat.Children.Count = 0 Then
Attach = False
Exit Function
Else
Set Connection = Applicat.Children(0)
On Error GoTo 0
End If
Set Session = Connection.Children(0)
On Error GoTo 0
If Session.ActiveWindow.text = "SAP" Then
Attach = False
Exit Function
End If
Attach = True
End Function
'==========================================================================
Sub CK11N()
Dim i&, j&
Dim arr
Dim t
t = Timer
arr = Sheet1.UsedRange
If Attach Then
'Stop
For i = 2 To UBound(arr)
On Error GoTo errLine
Session.findById("wnd[0]/tbar[0]/okcd").text = "ck11n"
Session.findById("wnd[0]").sendVKey 0
Call WaitMoment(2)
Session.findById("wnd[0]/usr/subALL:SAPLCKDI:4611/subKOPF:SAPLCKDI:4620/ctxtCKI64A-MATNR").text = arr(i, 1)
Session.findById("wnd[0]/usr/subALL:SAPLCKDI:4611/subKOPF:SAPLCKDI:4620/ctxtCKI64A-WERKS").text = arr(i, 2)
Session.findById("wnd[0]/usr/subALL:SAPLCKDI:4611/tabsREITER/tabpALLG/ssubALLGEMEIN:SAPLCKDI:4612/ctxtCKI64A-KLVAR").text = arr(i, 3)
Session.findById("wnd[0]/usr/subALL:SAPLCKDI:4611/tabsREITER/tabpALLG/ssubALLGEMEIN:SAPLCKDI:4612/ctxtCKI64A-TVERS").text = arr(i, 4)
Session.findById("wnd[0]/usr/subALL:SAPLCKDI:4611/tabsREITER/tabpALLG/ssubALLGEMEIN:SAPLCKDI:4612/ctxtCKI64A-UEBID").text = arr(i, 5)
Session.findById("wnd[0]").sendVKey 0
Call WaitMoment(2)
Session.findById("wnd[0]/usr/subALL:SAPLCKDI:4611/tabsREITER/tabpTERM/ssubTERM:SAPLCKDI:4614/ctxtCKI64A-KADAT").text = arr(i, 6)
Session.findById("wnd[0]/usr/subALL:SAPLCKDI:4611/tabsREITER/tabpTERM/ssubTERM:SAPLCKDI:4614/ctxtCKI64A-BIDAT").text = arr(i, 7)
Session.findById("wnd[0]/usr/subALL:SAPLCKDI:4611/tabsREITER/tabpTERM/ssubTERM:SAPLCKDI:4614/ctxtCKI64A-ALDAT").text = arr(i, 8)
Session.findById("wnd[0]/usr/subALL:SAPLCKDI:4611/tabsREITER/tabpTERM/ssubTERM:SAPLCKDI:4614/ctxtCKI64A-BWDAT").text = arr(i, 8)
Session.findById("wnd[0]").sendVKey 0
Call WaitMoment(2)
Session.findById("wnd[0]/tbar[0]/btn[11]").press
Session.findById("wnd[1]/tbar[0]/btn[0]").press
Call WaitMoment(2)
Session.findById("wnd[0]/tbar[0]/btn[3]").press
Session.findById("wnd[0]/tbar[0]/btn[3]").press
Sheet1.Rows(i).Interior.ColorIndex = 33
Next i
End If
MsgBox ("Done " & (Timer - t))
Exit Sub
errLine:
MsgBox ("ERROR " & i)
Stop
End Sub
Private Sub WaitMoment(rMoment!)
Dim rT!
rT = Timer
Do While Timer - rT < rMoment
DoEvents
Loop
End Sub

复制代码

YincyHe · 发表于 2018-5-10 13:48

VBA怎么引用SAP gui

YincyHe · 发表于 2018-5-25 17:09

跟楼主有同样的报错问题，不知道楼主解决没有

lowlowjie8 · 发表于 2018-10-17 16:24

YincyHe 发表于 2018-5-25 17:09
跟楼主有同样的报错问题，不知道楼主解决没有

你好，在sap和vba的帖子里面一直看到你，请问你的问题解决了吗？我目前也遇到了一些问题，能否交流一下？

YincyHe · 发表于 2018-12-6 14:03

lowlowjie8 发表于 2018-10-17 16:24
你好，在sap和vba的帖子里面一直看到你，请问你的问题解决了吗？我目前也遇到了一些问题，能否交流一下？

其实就是SAP必须要开启脚本录制和回放这个功能，否则连接的程序就会报错，无法连接

		自动登录	找回密码
密码			免费注册

[求助] SAP录制的VBS脚本在VBA中运行