嗨，先生，请检查我在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

结束字幕