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 FSO, WshShell, curdir
Set FSO = CreateObject("Scripting.FileSystemObject")
set WshShell = WScript.CreateObject("WScript.Shell")
curdir = WshShell.CurrentDirectory
numstr = InputBox("Введите номер строки: ")
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open (curdir & "\InvNomKtpShet.xlsx")

DO While objExcel.Cells(numstr, 1).Value <> ""
 func
 numstr = numstr + 1
LOOP

objExcel.QUIT


function func
        session.findById("wnd[0]/usr/ctxtSTRNO-LOW").text = objExcel.Cells(numstr, 1).Value  ' "TP006-0002557-16-01-20-75-75"
        session.findById("wnd[0]/usr/ctxtSTRNO-LOW").caretPosition = 28
        session.findById("wnd[0]/tbar[1]/btn[8]").press
        session.findById("wnd[0]/usr/tabsTABSTRIP/tabpT\01/ssubSUB_DATA:SAPLITO0:0102/subSUB_0102A:SAPLITO0:1020/txtITOB-INVNR").text = objExcel.Cells(numstr, 2).Value  ' "Е000025167/Б1"
        session.findById("wnd[0]/usr/tabsTABSTRIP/tabpT\01/ssubSUB_DATA:SAPLITO0:0102/subSUB_0102A:SAPLITO0:1020/txtITOB-INVNR").setFocus
        session.findById("wnd[0]/usr/tabsTABSTRIP/tabpT\01/ssubSUB_DATA:SAPLITO0:0102/subSUB_0102A:SAPLITO0:1020/txtITOB-INVNR").caretPosition = 11
        session.findById("wnd[0]/tbar[0]/btn[11]").press
	Dim oShell, nResult
	Set oShell = CreateObject("Wscript.Shell")
	nResult = oShell.Popup ("строка:  " & numstr, 1,"Ввод скрипта")
END function