公共Sub SAPUpload() 将对象的昏暗连接 将Myimvalue变体作为 Dim Myvalue2变体 将objSheet1昏暗于工作表
Set SapGuiAuto = GetObject(" SAPGUI")'获取SAP GUI脚本对象 Set SAPApp = SapGuiAuto.GetScriptingEngine'获取当前正在运行的SAP GUI Set SAPCon = SAPApp.Children(0)'获取 当前连接的第一个系统 Set Session = SAPCon.Children(0)'获取该连接上的第一个会话(窗口)
转到"帮助"->"设置"->"模态"对话框
然后弹出窗口将是可记录和可交互的。
然后您可以执行以下操作
在您的特定用例中,someTable(a,b)可能更适合您。 我在脚本编写中使用了此代码段。
好,先生,
它将保存在excel中?
我谨建议您咨询具有一定经验的开发人员,从上面的代码段中我可以断定,您对此并不满意 语言。 如果它对您的项目确实很重要,那么专家资源对于减轻您的压力将非常宝贵。
好运。
丹尼尔(Daniel)
先生不工作
嗨,先生,请检查我在excel中的编码,它不接受
公共Sub SAPUpload()
将对象的昏暗连接
将Myimvalue变体作为
Dim Myvalue2变体
将objSheet1昏暗于工作表
Set SapGuiAuto = GetObject(" SAPGUI")'获取SAP GUI脚本对象
Set SAPApp = SapGuiAuto.GetScriptingEngine'获取当前正在运行的SAP GUI
Set SAPCon = SAPApp.Children(0)'获取 当前连接的第一个系统
Set Session = SAPCon.Children(0)'获取该连接上的第一个会话(窗口)
如果不是IsObject(SAPApp),则
设置SapGuiAuto = GetObject(" SAPGUI")
设置SAPApp = SapGuiAuto.GetScriptingEngine
如果结束
如果不是IsObject(连接),则
设置连接= SAPconnection.Children(0)
如果结束
如果不是IsObject(Session),则
设置会话= connection.Children(0)
如果结束
如果IsObject(WScript)然后
WScript.ConnectObject会话,"开启"
WScript.ConnectObject SAPApp,"打开"
结束If
Session.FindById(" wnd [0]")。maximize
Dim objExcel,objWorkbook,objSheet,i
将Dim A作为变体
" Dim B为变体形式
设置objExcel = CreateObject(" Excel.Application")
myfile = application.GetOpenFilename(,,"浏览工作表")
工作簿。打开myfile
设置objSheet = ActiveWorkbook.Sheets(" Sheet1")
'A = Input("输入开始行","")
'B = Input("输入结束行","")
Myvalue = InputBox("开始行")
Myvalue2 = InputBox("结束行")
StopNow =假
'对于i = 2到1000
对于iRow = Myvalue到Myvalue2
Range(" A1")。Value = i
col1 = Trim(CStr(objSheet.Cells(iRow,1).Value))'Column1
COL2 = Trim(CStr(objSheet.Cells(iRow,2).Value))'Column2 < br> COL3 = Trim(CStr(objSheet.Cells(iRow,3).Value))'Column3
COL4 = Trim(CStr(objSheet.Cells(iRow,4).Value))'Column4
COL5 = Trim(CStr(objSheet.Cells(iRow,5).Value))'Column5
Session.FindById(" wnd [0]/tbar [0]/okcd")。Text ="/img/nzpb2"
Session.FindById(" wnd [0]")。sendVKey 0
Session.FindById(" wnd [0]/usr/ctxtRMMG1-MATNR")。Text = col1
Session.FindById(" wnd [0]/usr/ctxtRMMG1-MATNR")。caretPosition = 12 <错误>错误恢复下一个
Session.FindById(" wnd [0]")。sendVKey 0
Session.FindById(" wnd [1]/usr/tblSAPLMGMMTC_VIEW")。getAbsoluteRow(5).Selected = True <错误恢复后继续
Session.FindById(" wnd [1]/usr/tblSAPLMGMMTC_VIEW/txtMSICHTAUSW -DYTXT [0,5]")。SetFocus
Session.FindById(" wnd [1]/usr/tblSAPLMGMMTC_VIEW/txtMSICHTAUSW-DYTXT [0,5]")。caretPosition = 0
Session.FindById(" wnd [1]")。sendVKey 0
Session.FindById(" wnd [1]/usr/ctxtRMMG1-WERKS")。Text = COL2
Session.FindById(" wnd [1]/usr/ctxtRMMG1- WERKS")。caretPosition = 4
Session.FindById(" wnd [1]")。sendVKey 0
Session.FindById(" wnd [0]/usr/tabsTABSPR1/tabpSP11/ssubTABFRA1:SAPLMGMM:2000/subSUB2 :SAPLMGD1:2301/ctxtMARC-MMSTA")。Text =错误时恢复下一个
Session.FindById(" wnd [0]/usr/tabsTABSPR1/tabpSP11/ssubTABFRA1:SAPLMGMM:2000/subSUB2:SAPLMGD1: 2301/ctxtMARC-MMSTD")。Text = COL4
错误时恢复下一个
Session.FindById(" wnd [0]/usr/tabsTABSPR1/tabpSP11 /ssubTABFRA1:SAPLMGMM:2000/subSUB2:SAPLMGD1:2301/ctxtMARC-MMSTD").SetFocus
Session.FindById(" wnd [0]/usr/tabsTABSPR1/tabpSP11/ssubTABFRA1:SAPLMGMM:2000/subSUB2:SAPLMGD1:2301 /ctxtMARC-MMSTD").caretPosition = 10
Session.FindById(" wnd [0]")。sendVKey 0
Session.FindById(" wnd [1]/usr/btnSPOP-OPTION1")。press < br>错误恢复下一个
Session.FindById(" wnd [0]/sbar")。press <'>将ActiveSheets设为工作簿
'Session.findById(" wnd [1]/tbar [0]/btn [8]")。按'按"完成工作项"按钮
'MsgArea = Trim(Session.findById(" wnd [0]/sbar/")。MessageId)
'MsgNumber = Session.findById(" wnd [0]/sbar/")。MessageNumber
'MsgType = Session.findById(" wnd [0]/sbar/")。MessageType
'MsgText = Session.findById(" wnd [0]/sbar/")。Text
如果不是Session.FindById(" wnd [1]",False)则什么都没有,
设置pop = Session.FindById(" wnd [1]")
如果InStr(pop.PopupDialogText," some Sting")> 0然后
'有趣的评论
'sometable(A,B)= pop.PopupDialogText
其他:
'其他一些条件
设置pop =没问题
结束于
结束于
'Sap_session.findById(" wnd [0]")。sendVkey0
'Sap_session.findById(" wnd [0]")。sendVkey11
'Session.findById(" wnd [0]/shellcont" ).Close
'ActiveSheets(" sheet1")。Cells(iRow,5)= Sap_session.findById(" wnd [0]/sbar")。Text
'tabla.contextmenu
'tabla.selectContextMenuItemBytext "复制文本"
'objSheet.Cells(i,5).Value = Session.findBy(" wnd [0]/sbar/pane [0]")。Tex.Copy
'Session.findById(" wnd [0]")。sendVkey11
'Session.findById(" wnd [0]")。sendVkey8
'objSheet.Range(" E2")。PasteSpecial
Session。 FindById(" wnd [0]/tbar [0]/btn [3]")。按
'如果Session.FindById(" wnd [0]/sbar")。Text <>""然后Range(" A1")。Value.Copy.Paste = COL5
如果StopNow然后退出
下一个iRow
结束字幕
一周热门 更多>