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

Dim SapGuiApp, Connection, Session, FileObject, oFile, Counter
Dim ApplicationPath, CredentialsPath, ServerPath, FilePath
Dim ExcelApp, ExcelWorkbook, ExcelSheet
Dim i
Set ExcelApp = CreateObject("Excel.Application")
Set ExcelWorkbook = ExcelApp.Workbooks.Open("C:\Users\WB02purch.xlsx")
Set ExcelSheet = ExcelWorkbook.Worksheets(1)
Row = 1

Do Until ExcelSheet.Cells(Row, 1).Value = ""

session.findById("wnd[0]/usr/ctxtWR02D-LOCNR").text = ExcelSheet.Cells(Row, 1).Value
session.findById("wnd[0]").sendVKey 0
If session.findById("wnd[0]/usr/tabsTABSTRIP_MAIN/tabp5100/ssubSUB1:SAPMWBE3:5100/subORGA:SAPMWBE3:2100/ctxtT001W-EKORG").text <> ExcelSheet.Cells(Row, 2).Value Then
   session.findById("wnd[0]/usr/tabsTABSTRIP_MAIN/tabp5100/ssubSUB1:SAPMWBE3:5100/subORGA:SAPMWBE3:2100/ctxtT001W-EKORG").text = ExcelSheet.Cells(Row, 2).Value
   session.findById("wnd[0]/tbar[0]/btn[11]").press
   'session.findById("wnd[1]/tbar[0]/btn[12]").press

Else
   session.findById("wnd[0]/tbar[0]/btn[3]").press '- назад
End if