Pokaż kod VBA i napisz, w której linii występuje ten błąd
Sub Makro1()
'
' Makro1 Makro
'
'
Dim SapGuiAuto, SAPApplication, Connection, session, application
Dim plant As Object
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.starttransaction ("zpl_stock_forecast")
session.findById("wnd[0]/usr/radPA_WEEK").Select
session.findById("wnd[0]/usr/ctxtSO_WERKS-LOW").Text = "plj3"
session.findById("wnd[0]/usr/ctxtSO_WERKS-HIGH").Text = "plkl"
session.findById("wnd[0]/usr/radPA_WEEK").SetFocus
session.findById("wnd[0]/tbar[1]/btn[8]").press
session.findById("wnd[0]/mbar/menu[0]/menu[3]/menu[1]").Select
session.findById("wnd[1]/usr/radRB_OTHERS").SetFocus
session.findById("wnd[1]/usr/radRB_OTHERS").Select
session.findById("wnd[1]/usr/cmbG_LISTBOX").Key = "08"
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[1]/usr/subSUBSCREEN_STEPLOOP:SAPLSPO5:0150/sub:SAPLSPO5:0150/radSPOPLI-SELFLAG[0,0]").Select
session.findById("wnd[1]/usr/subSUBSCREEN_STEPLOOP:SAPLSPO5:0150/sub:SAPLSPO5:0150/radSPOPLI-SELFLAG[0,0]").SetFocus
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[1]/tbar[0]/btn[0]").press
ActiveWorkbook.RefreshAll
DoEvents
Windows("Arkusz w Basis (1)").Activate
Range("A1:o15000").Select
Selection.Copy
Windows("Raport zapasów targetowych DBV per oddział vs bieżący zapas").Activate
Sheets("Dane2(consigment stock)").Select
Range("A1").Select
ActiveSheet.Paste
session.starttransaction ("ZPL_WHS_CAP")
session.findById("wnd[0]/usr/ctxtSO_WERKS-LOW").Text = "plj3"
session.findById("wnd[0]/usr/ctxtSO_WERKS-HIGH").Text = "plj3"
session.findById("wnd[0]/usr/ctxtSO_WERKS-HIGH").SetFocus
session.findById("wnd[0]/usr/ctxtSO_WERKS-HIGH").caretPosition = 0
session.findById("wnd[0]/tbar[1]/btn[8]").press
session.findById("wnd[0]/usr/cntlALV_GRID_CONTAINER_HDR/shellcont/shell").pressToolbarContextButton "&MB_EXPORT"
session.findById("wnd[0]/usr/cntlALV_GRID_CONTAINER_HDR/shellcont/shell").selectContextMenuItem "&XXL"
session.findById("wnd[1]/usr/radRB_OTHERS").SetFocus
session.findById("wnd[1]/usr/radRB_OTHERS").Select
session.findById("wnd[1]/usr/cmbG_LISTBOX").Key = "08"
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[1]/usr/subSUBSCREEN_STEPLOOP:SAPLSPO5:0150/sub:SAPLSPO5:0150/radSPOPLI-SELFLAG[0,0]").Select
session.findById("wnd[1]/usr/subSUBSCREEN_STEPLOOP:SAPLSPO5:0150/sub:SAPLSPO5:0150/radSPOPLI-SELFLAG[0,0]").SetFocus
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[1]/tbar[0]/btn[0]").press
ActiveWorkbook.RefreshAll
DoEvents
Windows("Arkusz w Basis (1)").Activate
Range("A1:L39").Select
Selection.Copy
Windows("Raport zapasów targetowych DBV per oddział vs bieżący zapas").Activate
Sheets("Dane1 (current stock)").Select
Range("b1").Select
ActiveSheet.Paste
sd = Format(Date, "dd.mm.yyyy")
sd2 = Format(Date + 3, "dd.mm.yyyy")
Sheets("Dane4 (baza danych)").Select
Range("e2:e36").Select
Selection.Copy
session.starttransaction ("vl06o")
session.findById("wnd[0]/usr/btnBUTTON6").press
session.findById("wnd[0]/usr/btn%_IF_VSTEL_%_APP_%-VALU_PUSH").press
session.findById("wnd[1]/usr/tabsTAB_STRIP/tabpSIVA/ssubSCREEN_HEADER:SAPLALDB:3010/tblSAPLALDBSINGLE/ctxtRSCSEL-SLOW_I[1,0]").Text = "pl01"
session.findById("wnd[1]/usr/tabsTAB_STRIP/tabpSIVA/ssubSCREEN_HEADER:SAPLALDB:3010/tblSAPLALDBSINGLE/ctxtRSCSEL-SLOW_I[1,1]").Text = "pl02"
session.findById("wnd[1]/usr/tabsTAB_STRIP/tabpSIVA/ssubSCREEN_HEADER:SAPLALDB:3010/tblSAPLALDBSINGLE/ctxtRSCSEL-SLOW_I[1,2]").Text = "pl03"
session.findById("wnd[1]/usr/tabsTAB_STRIP/tabpSIVA/ssubSCREEN_HEADER:SAPLALDB:3010/tblSAPLALDBSINGLE/ctxtRSCSEL-SLOW_I[1,3]").Text = "pl04"
session.findById("wnd[1]/usr/tabsTAB_STRIP/tabpSIVA/ssubSCREEN_HEADER:SAPLALDB:3010/tblSAPLALDBSINGLE/ctxtRSCSEL-SLOW_I[1,4]").Text = "pl08"
session.findById("wnd[1]/usr/tabsTAB_STRIP/tabpSIVA/ssubSCREEN_HEADER:SAPLALDB:3010/tblSAPLALDBSINGLE/ctxtRSCSEL-SLOW_I[1,5]").Text = "pl12"
session.findById("wnd[1]/usr/tabsTAB_STRIP/tabpSIVA/ssubSCREEN_HEADER:SAPLALDB:3010/tblSAPLALDBSINGLE/ctxtRSCSEL-SLOW_I[1,5]").SetFocus
session.findById("wnd[1]/usr/tabsTAB_STRIP/tabpSIVA/ssubSCREEN_HEADER:SAPLALDB:3010/tblSAPLALDBSINGLE/ctxtRSCSEL-SLOW_I[1,5]").caretPosition = 4
session.findById("wnd[1]/tbar[0]/btn[8]").press
session.findById("wnd[0]/usr/ctxtIT_WADAT-LOW").Text = ""
session.findById("wnd[0]/usr/ctxtIT_WADAT-HIGH").Text = ""
session.findById("wnd[0]/usr/ctxtIT_LFDAT-LOW").Text = "23.05.2016"
session.findById("wnd[0]/usr/ctxtIT_LFDAT-HIGH").Text = "03.06.2016"
session.findById("wnd[0]/usr/ctxtIT_LFDAT-HIGH").SetFocus
session.findById("wnd[0]/usr/ctxtIT_LFDAT-HIGH").caretPosition = 10
session.findById("wnd[0]/usr/btn%_IT_KUNWE_%_APP_%-VALU_PUSH").press
session.findById("wnd[1]/tbar[0]/btn[24]").press
session.findById("wnd[1]/tbar[0]/btn[8]").press
session.findById("wnd[0]/usr/ctxtIT_WBSTK-LOW").Text = "a"
session.findById("wnd[0]/usr/ctxtIT_WBSTK-LOW").SetFocus
session.findById("wnd[0]/usr/ctxtIT_WBSTK-LOW").caretPosition = 1
session.findById("wnd[0]/tbar[1]/btn[8]").press
session.findById("wnd[0]/tbar[1]/btn[18]").press
session.findById("wnd[0]/tbar[1]/btn[43]").press
session.findById("wnd[1]/usr/radRB_OTHERS").SetFocus
session.findById("wnd[1]/usr/radRB_OTHERS").Select
session.findById("wnd[1]/usr/cmbG_LISTBOX").Key = "08"
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[1]/usr/subSUBSCREEN_STEPLOOP:SAPLSPO5:0150/sub:SAPLSPO5:0150/radSPOPLI-SELFLAG[0,0]").Select
session.findById("wnd[1]/usr/subSUBSCREEN_STEPLOOP:SAPLSPO5:0150/sub:SAPLSPO5:0150/radSPOPLI-SELFLAG[0,0]").SetFocus
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[1]/tbar[0]/btn[0]").press
Windows("Arkusz w Basis (1)").Activate
Range("A1:L39").Select
Selection.Copy
Windows("Raport zapasów targetowych DBV per oddział vs bieżący zapas").Activate
Sheets("Dane3 (prepared for shipment )").Select
Range("o1").Select
ActiveSheet.Paste
Windows("Arkusz w Basis (1)").Close
session.findById("wnd[0]/tbar[1]/btn[43]").press
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[0]/tbar[0]/btn[3]").press
session.findById("wnd[0]/tbar[0]/btn[3]").press
session.findById("wnd[0]/tbar[0]/btn[3]").press
MsgBox ("Zrobione")
End Sub
po tym kodzie występuje błąd, gdyż wywołuje on kręcenie 10 minutowego raportu a excel widzi to jako błąd i wywala ten komunikat który blokuje mi możliwośc odejścia od kompa bo trzeba go kilka razy odklikać:
session.findById("wnd[0]/tbar[1]/btn[8]").press