VBA如何控制SAP

xiayouzi

下面代码怎么写出来的，谢谢
Session.findById("wnd[0]").maximize
Session.findById("wnd[0]/tbar[0]/okcd").Text = "/nlx03"
Session.findById("wnd[0]").sendVKey 0
Session.findById("wnd[0]/usr/ctxtS1_LGNUM").Text = Cells(1, 1)
Session.findById("wnd[0]/usr/ctxtS1_LGTYP-LOW").Text = "aqm"
Session.findById("wnd[0]/usr/ctxtS1_LGPLA-LOW").Text = "htk"
Session.findById("wnd[0]/usr/ctxtS1_LGPLA-LOW").SetFocus
Session.findById("wnd[0]/usr/ctxtS1_LGPLA-LOW").caretPosition = 3
Session.findById("wnd[0]/tbar[1]/btn[8]").press
Session.findById("wnd[0]/mbar/menu[4]/menu[5]/menu[2]/menu[2]").Select
Session.findById("wnd[1]/usr/sub:SAPLSPO5:0101/radSPOPLI-SELFLAG[1,0]").Select
Session.findById("wnd[1]/usr/sub:SAPLSPO5:0101/radSPOPLI-SELFLAG[1,0]").SetFocus
Session.findById("wnd[1]/tbar[0]/btn[0]").press
Session.findById("wnd[1]/usr/ctxtDY_FILENAME").Text = "htk.xls"
Session.findById("wnd[1]/usr/ctxtDY_FILENAME").caretPosition = 7
Session.findById("wnd[1]/tbar[0]/btn[11]").press

xiayouzi

有什么学习资料吗？是否是SAP中的编程语言啊
比如ABAP basis
还是SAP GUI Script 录制的，如果是录制的，怎么录制呢？
录制程序？谢谢

bketliu

关注中，我也要每天向excel和SAP中输入大量数据，如果能在输完excel后再用vba直接把数据导入到SAP中就大大提高工作效率了。

bketliu

我也录制了一段代码供大家研究一下。
    If Not IsObject(Application) Then
        Set SaGguiAuto = 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]/usr/txtGV_USER").Text = "0107"
    session.findById("wnd[0]/usr/txtGV_HUNO").Text = "7216124"
    session.findById("wnd[0]/usr/ctxtGV_DATE").Text = "2010.12.5"
    session.findById("wnd[0]/usr/ctxtGV_ZZMACH_GRP").Text = "1050"
    session.findById("wnd[0]/usr/ctxtGV_ZZMACH_GRP").SetFocus
    session.findById("wnd[0]/usr/ctxtGV_ZZMACH_GRP").caretPosition = 3
    session.findById("wnd[0]").sendVKey 0
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/btnQMICON-ICEXP_KOM[10,0]").SetFocus
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/btnQMICON-ICEXP_KOM[10,0]").press
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/txtQAQEE-SUMPLUS[11,1]").Text = "0.5"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/txtQAQEE-SUMPLUS[11,2]").Text = "0.75"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/txtQAQEE-SUMPLUS[11,3]").Text = "0.25"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/txtQAQEE-SUMPLUS[11,4]").Text = "1"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/txtQAQEE-SUMPLUS[11,5]").Text = "0.25"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/txtQAQEE-SUMPLUS[11,6]").Text = "0.25"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/txtQAQEE-SUMPLUS[11,7]").Text = "1"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/txtQAQEE-SUMPLUS[11,8]").Text = "0.75"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/txtQAQEE-SUMPLUS[11,9]").Text = "0.25"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/txtQAQEE-SUMPLUS[11,10]").Text = "0.75"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/txtQAQEE-SUMPLUS[11,11]").Text = "0.75"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/txtQAQEE-SUMPLUS[11,12]").Text = "1"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/txtQAQEE-SUMPLUS[11,13]").Text = "0.75"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/txtQAQEE-SUMPLUS[11,14]").Text = "1"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/txtQAQEE-SUMPLUS[11,15]").Text = "0.25"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/txtQAQEE-SUMPLUS[11,16]").Text = "0.25"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/txtQAQEE-SUMPLUS[11,17]").Text = "0.25"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/txtQAQEE-SUMPLUS[11,18]").Text = "0.5"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/txtQAQEE-SUMPLUS[11,19]").Text = "0.25"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/txtQAQEE-SUMPLUS[11,20]").Text = "0.75"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/txtQAQEE-SUMPLUS[11,21]").Text = "1"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/txtQAQEE-SUMPLUS[11,22]").Text = "0.5"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/txtQAQEE-SUMPLUS[11,23]").Text = "0"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/txtQAQEE-SUMPLUS[11,24]").Text = "0.5"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/ctxtQAMKR-MASCHINE[12,1]").Text = "F4201"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/ctxtQAMKR-MASCHINE[12,2]").Text = "F4201"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/ctxtQAMKR-MASCHINE[12,3]").Text = "F4201"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/ctxtQAMKR-MASCHINE[12,4]").Text = "F4201"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/ctxtQAMKR-MASCHINE[12,5]").Text = "F4202"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/ctxtQAMKR-MASCHINE[12,6]").Text = "F4202"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/ctxtQAMKR-MASCHINE[12,7]").Text = "F4202"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/ctxtQAMKR-MASCHINE[12,8]").Text = "F4202"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/ctxtQAMKR-MASCHINE[12,9]").Text = "F4202"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/ctxtQAMKR-MASCHINE[12,10]").Text = "F4203"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/ctxtQAMKR-MASCHINE[12,11]").Text = "F4203"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/ctxtQAMKR-MASCHINE[12,12]").Text = "F4203"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/ctxtQAMKR-MASCHINE[12,13]").Text = "F4203"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/ctxtQAMKR-MASCHINE[12,14]").Text = "F4203"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/ctxtQAMKR-MASCHINE[12,15]").Text = "F4203"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/ctxtQAMKR-MASCHINE[12,16]").Text = "F4203"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/ctxtQAMKR-MASCHINE[12,17]").Text = "F4204"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/ctxtQAMKR-MASCHINE[12,18]").Text = "F4204"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/ctxtQAMKR-MASCHINE[12,19]").Text = "F4204"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/ctxtQAMKR-MASCHINE[12,20]").Text = "F4204"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/ctxtQAMKR-MASCHINE[12,21]").Text = "F4204"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/ctxtQAMKR-MASCHINE[12,22]").Text = "F4204"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/ctxtQAMKR-MASCHINE[12,23]").Text = "F4205"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/ctxtQAMKR-MASCHINE[12,24]").Text = "F4205"
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/txtQAQEE-SUMPLUS[11,1]").SetFocus
    session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/tblSAPLQEEMSUMPLUS/txtQAQEE-SUMPLUS[11,1]").caretPosition = 3
    session.findById("wnd[0]").sendVKey 2
    session.findById("wnd[0]/usr/talSAPLQEEMURWERTON").verticalScrollbar.Position = 24
    session.findById("wnd[0]/usr/talSAPLQEEMURWERTON/txtQAQEE-MESSWERT[1,0]").Text = "0.25"
    session.findById("wnd[0]/usr/talSAPLQEEMURWERTON/txtQAQEE-MESSWERT[1,1]").Text = "0.25"
    session.findById("wnd[0]/usr/talSAPLQEEMURWERTON/txtQAQEE-MESSWERT[1,2]").Text = "0.5"
    session.findById("wnd[0]/usr/talSAPLQEEMURWERTON/txtQAQEE-MESSWERT[1,3]").Text = "1"
    session.findById("wnd[0]/usr/talSAPLQEEMURWERTON/txtQAQEE-MESSWERT[1,4]").Text = "0.5"
    session.findById("wnd[0]/usr/talSAPLQEEMURWERTON/txtQAQEE-MESSWERT[1,5]").Text = "0.25"
    session.findById("wnd[0]/usr/talSAPLQEEMURWERTON/txtQAQEE-MESSWERT[1,6]").Text = "0.5"
    session.findById("wnd[0]/usr/talSAPLQEEMURWERTON/txtQAQEE-MESSWERT[1,7]").Text = "0"
    session.findById("wnd[0]/usr/talSAPLQEEMURWERTON/txtQAQEE-MESSWERT[1,8]").Text = "1"
    session.findById("wnd[0]/usr/talSAPLQEEMURWERTON/txtQAQEE-MESSWERT[1,9]").Text = "0"
    session.findById("wnd[0]/usr/talSAPLQEEMURWERTON/txtQAQEE-MESSWERT[1,10]").Text = "0.5"
    session.findById("wnd[0]/usr/talSAPLQEEMURWERTON/txtQAQEE-MESSWERT[1,11]").Text = "0.75"
    session.findById("wnd[0]/usr/talSAPLQEEMURWERTON/ctxtQAMKR-MASCHINE[2,0]").Text = "F4205"
    session.findById("wnd[0]/usr/talSAPLQEEMURWERTON/ctxtQAMKR-MASCHINE[2,1]").Text = "F4205"
    session.findById("wnd[0]/usr/talSAPLQEEMURWERTON/ctxtQAMKR-MASCHINE[2,2]").Text = "F4206"
    session.findById("wnd[0]/usr/talSAPLQEEMURWERTON/ctxtQAMKR-MASCHINE[2,3]").Text = "F4206"
    session.findById("wnd[0]/usr/talSAPLQEEMURWERTON/ctxtQAMKR-MASCHINE[2,4]").Text = "F4206"
    session.findById("wnd[0]/usr/talSAPLQEEMURWERTON/ctxtQAMKR-MASCHINE[2,5]").Text = "F4206"
    session.findById("wnd[0]/usr/talSAPLQEEMURWERTON/ctxtQAMKR-MASCHINE[2,6]").Text = "F4207"
    session.findById("wnd[0]/usr/talSAPLQEEMURWERTON/ctxtQAMKR-MASCHINE[2,7]").Text = "F4207"
    session.findById("wnd[0]/usr/talSAPLQEEMURWERTON/ctxtQAMKR-MASCHINE[2,8]").Text = "F4207"
    session.findById("wnd[0]/usr/talSAPLQEEMURWERTON/ctxtQAMKR-MASCHINE[2,9]").Text = "F4207"
    session.findById("wnd[0]/usr/talSAPLQEEMURWERTON/ctxtQAMKR-MASCHINE[2,10]").Text = "F4207"
    session.findById("wnd[0]/usr/talSAPLQEEMURWERTON/ctxtQAMKR-MASCHINE[2,11]").Text = "F4208"
    session.findById("wnd[0]/tbar[1]/btn[7]").press
    session.findById("wnd[0]/tbar[0]/btn[11]").press

wangruoxu

这些代码不是都不是用户自己写出来的,是在SAP录制时自动生成的sript脚本,不过里面部分参数是可以自己修改的

masterexcel

huangyansz 发表于 2010-10-25 10:55
对，是R3版

楼主，请教下，在R3的PP模块中，如何记录操作步骤？谢谢啊！！

whggwu

hoho,留个爪，论坛人才真多啊~~~

liucqa

留个记号，虽然我现在不用SAP了

winky516

bketliu 发表于 2010-12-9 18:10
我也录制了一段代码供大家研究一下。
    If Not IsObject(Application) Then
        Set SaGguiAuto =  ...

请问录制后如何导出代码?能否分享一下

xiayouzi

Excel VBA 每次运行到Set Application = SapGuiAuto.GetScriptingEngine这里都会出现“尝试将脚本添加到GUI”提示信息，如何去除，让它自动往下运行。
谢谢