Here I will put my script and the error that I get. TRY ANOTHER WAY TO GET THE DATA FROM EXCEL AND IT WILL BE SAVED IN THE VARIABLES
enter image description here

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 obstSheet = objExcel.ActiveWorkbook.ActiveSheet

session.findById(“wnd[0]/tbar[0]/okcd”).text = “iw41”
session.findById(“wnd[0]”).sendVKey 0
session.findById(“wnd[0]/usr/ctxtCORUF-AUFNR”).text = “12365355”
session.findById(“wnd[0]”).sendVKey 0
session.findById(“wnd[0]/tbar[1]/btn[13]”).press
session.findById(“wnd[0]/tbar[1]/btn[8]”).press

For i = 2 to objSheet.UsedRange.Rows.Count
COL1 = Trim(CStr(objSheet.Cells(i, 2).Value)) ‘Column2 Agreement number
COL2 = Trim(CStr(objSheet.Cells(i, 2).Value)) ‘Column2 Agreement number
COL3 = Trim(CStr(objSheet.Cells(i, 3).Value)) ‘Column3 Agreement Line Item
COL4 = Trim(CStr(objSheet.Cells(i, 4).Value)) ‘Column4 PO Quantity
COL5 = Trim(CStr(objSheet.Cells(i, 5).Value)) ‘Column5 Delivery date
COL6 = Trim(CStr(objSheet.Cells(i, 6).Value)) ‘Column5 Delivery date
COL7 = Trim(CStr(objSheet.Cells(i, 7).Value)) ‘Column5 Delivery date

session.findById(“wnd[0]/usr/chkAFRUD-AUERU”).selected = true
session.findById(“wnd[0]/usr/chkAFRUD-LEKNW”).selected = true
session.findById(“wnd[0]/usr/ctxtAFRUD-ARBPL”).text = COL1
session.findById(“wnd[0]/usr/ctxtAFRUD-PERNR”).text = COL2
session.findById(“wnd[0]/usr/txtAFRUD-ISMNW_2”).text = COL3
session.findById(“wnd[0]/usr/ctxtAFRUD-LEARR”).text = “tallmo”
session.findById(“wnd[0]/usr/ctxtAFRUD-BUDAT”).text = COL4
session.findById(“wnd[0]/usr/ctxtAFRUD-ISDD”).text = COL4
session.findById(“wnd[0]/usr/ctxtAFRUD-ISDZ”).text = COL5
session.findById(“wnd[0]/usr/ctxtAFRUD-IEDD”).text = “04.07.2024”
session.findById(“wnd[0]/usr/ctxtAFRUD-IEDZ”).text = COL6
session.findById(“wnd[0]/usr/txtAFRUD-LTXA1”).text = COL7
session.findById(“wnd[0]/usr/txtAFRUD-LTXA1”).setFocus
session.findById(“wnd[0]/usr/txtAFRUD-LTXA1”).caretPosition = 39
session.findById(“wnd[0]”).sendVKey 0
session.findById(“wnd[0]/tbar[1]/btn[23]”).press

next