```vb.net
Option Explicit
Public SapGuiAuto
Public obiGui As GuiApplication
Public obiConn As GuiConnection
Public session As GuiSession
Sub SAP初审Report()
Set SapGuiAuto = GetObiect("SAPGUI")
Set obiGui = SapGuiAuto.GetScriptingEngine
Set obiCorn = obiGuiChildren(0)
Set session = obiConn.Children(0)
Dim selectedCustomer As String
Dim folderPath As String
selectedCustomer = ActiveWorkbook.ActiveSheet.Range("B2").Value
folderPath = ActiveWorkbook.ActiveSheet.Range("B3").Value
session.findById("wnd[0]").maximize
session.findById("wnd[0]/tbar[0]/okcd").Text = "zfir0076"
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/ctxtS_BUKRS-LOW").Text = selectedCustomer
session.findById("wnd[0]/usr/ctxtS_BUKRS-LOW").caretPosition = 4
session.findById("wnd[0]/tbar[1]/btn[8]").press
session.findById("wnd[0]/shellcont/shell/shellcont[0]/shell").pressToolbarButton "ALL"
session.findById("wnd[0]/shellcont/shell/shellcont[1]/shell").setCurrentCell 3, "NAME1"
session.findById("wnd[0]/shellcont/shell/shellcont[1]/shell").contextMenu
session.findById("wnd[0]/shellcont/shell/shellcont[1]/shell").selectContextMenuItem "&XXL"
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[1]/usr/ctxtDY_PATH").SetFocus
session.findById("wnd[1]/usr/ctxtDY_PATH").caretPosition = folderPath
session.findById("wnd[1]").sendVKey 4
session.findById("wnd[2]/tbar[0]/btn[0]").press
session.findById("wnd[1]/tbar[0]/btn[0]").press
End Sub
