I keep getting this error ("The method got an invalid argument.-") at the end of the script. The script runs fine but it gives me a error instead of a msgbox "Process Completed". Here is my script:
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
Dim objExcel
Dim objSheet, intRow, i
Set objExcel = GetObject(,"Excel.Application")
set wBook = objExcel.ActiveWorkbook
set objSheet = wBook.Sheets("New Material (P-N Reserve)")
For i = 3 to objSheet.UsedRange.Rows.Count
COL1 = Trim(CStr(objSheet.Cells(i, 1).Value)) 'Column1
COL2 = Trim(CStr(objSheet.Cells(i, 2).Value)) 'Column2
COL3 = Trim(CStr(objSheet.Cells(i, 3).Value)) 'Column3
COL4 = Trim(CStr(objSheet.Cells(i, 4).Value)) 'Column4
COL5 = Trim(CStr(objSheet.Cells(i, 5).Value)) 'Column5
COL6 = Trim(CStr(objSheet.Cells(i, 6).Value)) 'Column6
COL7 = Trim(CStr(objSheet.Cells(i, 7).Value)) 'Column7
COL8 = Trim(CStr(objSheet.Cells(i, 8).Value)) 'Column8
COL9 = Trim(CStr(objSheet.Cells(i, 9).Value)) 'Column9
COL10 = Trim(CStr(objSheet.Cells(i, 10).Value)) 'Column10
COL11 = Trim(CStr(objSheet.Cells(i, 11).Value)) 'Column11
COL12 = Trim(CStr(objSheet.Cells(i, 12).Value)) 'Column12
session.findById("wnd[0]/tbar[0]/okcd").text = "/NMM01"
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/ctxtRMMG1-MATNR").text = col1
session.findById("wnd[0]/usr/cmbRMMG1-MBRSH").key = col2
session.findById("wnd[0]/usr/cmbRMMG1-MTART").key = col3
session.findById("wnd[0]/usr/cmbRMMG1-MTART").setFocus
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[1]/tbar[0]/btn[19]").press
session.findById("wnd[1]/usr/tblSAPLMGMMTC_VIEW").getAbsoluteRow(0).selected = true
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[0]/usr/tabsTABSPR1/tabpSP01/ssubTABFRA1:SAPLMGMM:2004/subSUB2:SAPLMGD1:2001/ctxtMARA-MEINS").text = col8
session.findById("wnd[0]/usr/tabsTABSPR1/tabpSP01/ssubTABFRA1:SAPLMGMM:2004/subSUB2:SAPLMGD1:2001/ctxtMARA-MATKL").text = col9
session.findById("wnd[0]/usr/tabsTABSPR1/tabpSP01/ssubTABFRA1:SAPLMGMM:2004/subSUB2:SAPLMGD1:2001/ctxtMARA-EXTWG").text = col10
session.findById("wnd[0]/usr/tabsTABSPR1/tabpSP01/ssubTABFRA1:SAPLMGMM:2004/subSUB2:SAPLMGD1:2001/ctxtMARA-SPART").text = col11
session.findById("wnd[0]/usr/tabsTABSPR1/tabpSP01/ssubTABFRA1:SAPLMGMM:2004/subSUB1:SAPLMGD1:1002/txtMAKT-MAKTX").text = col7
session.findById("wnd[0]/usr/tabsTABSPR1/tabpSP01/ssubTABFRA1:SAPLMGMM:2004/subSUB2:SAPLMGD1:2001/ctxtMARA-SPART").setFocus
session.findById("wnd[0]/usr/tabsTABSPR1/tabpSP01/ssubTABFRA1:SAPLMGMM:2004/subSUB2:SAPLMGD1:2001/ctxtMARA-SPART").caretPosition = 2
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[1]/usr/btnSPOP-OPTION1").press
aux=col1 & " " & col2 & " " & col3 & " " & col4 & " " & col5 & " " & col6 & " " & col7 & " " & col8 & " " & col9 & " " & col10 & " " & col11 & " " & col12
CreateObject("WScript.Shell").run("cmd /c @echo %date% %time% " & aux & " >> C:\SCRIPT\PlOrCreationLog.txt")
objExcel.Cells(i, 12).Value = session.findById("wnd[0]/sbar").Text
next
msgbox "Process Completed"