VBA xls megnyitáskor hibaüzenet

VBA xls megnyitáskor hibaüzenet
2021-02-08T20:48:06+01:00
2021-02-09T13:47:54+01:00
2022-10-15T21:16:12+02:00
bogár
Sziasztok!

Excel VBA-ban nyitok meg egy fájlt így:

Workbooks.Open Filename:="C:\....xlsb", ReadOnly:=True, Notify:=False
Azt szeretném, hogy ha nem található a fájl, NE legyen "Run-time error '1004' ... nem található." hibaüzenet.
Próbáltam az Open sor elé rakni 'Application.DisplayAlerts = False' sort, meg 'On Error GoTo Hiba' sort, de nem segített, ahogy a 'Notify:=False' kiegészítés sem.

Meg lehet valahogy "pingelni" a fájlt, hogy ott van-e, anélkül, hogy hibaüzenetet dobjon fel?

Köszönöm szépen a segítséget!
Bogár
Mutasd a teljes hozzászólást!
Szia!

Nem tudom mi történhetett, de itt működik ...

üdv
verax
Mutasd a teljes hozzászólást!
Csatolt állomány

  • Szia bogár!

    Ehhez mit szólsz:
    (rögtön, az első sorba)
    On Error Resume Next

    üdvözlettel
    verax
    Mutasd a teljes hozzászólást!
  • Szia verax!

    Próbáltam úgy is (igaz, nem a legelső sorba, csak egyből az Open ill. a displayalerts=false elé), de nem segített.

    Viszont bár eddig nem, de most találtam egy kódot guglival, ami működik:

    Sub CheckFileExists () Dim strFileName As String Dim strFileExists As String strFileName = "C:\Users\Nikola\Desktop\VBA articles\Test File Exists.xlsx" strFileExists = Dir(strFileName) If strFileExists = "" Then MsgBox "The selected file doesn't exist" Else MsgBox "The selected file exists" End If End Sub
    Nagyon szépen köszönöm a segítséget!
    Mutasd a teljes hozzászólást!
  • Szia!

    Nem tudom mi történhetett, de itt működik ...

    üdv
    verax
    Mutasd a teljes hozzászólást!
    Csatolt állomány
  • Szia verax! A mintádat tesztelve rájöttem, mit szúrtam el, amatőrség (persze még csak műkedvelő szinten se vagyok)...

    Nem léptem ki a sub-ból a hibajelzésnél, hanem csak visszahúztam a "sárga csíkot" és tovább kísérleteztem F8-cal lépegetve. :S
    Működik (működött is volna) az 'On Error GoTo hibakezeles' meg a 'Resume Next' is, ha hagyom normálisan lefutni a sub-ot.

    Elnézést kérek a bénaságomért, és köszönöm még egyszer, hogy felnyitottad a szememet!
    Üdv, bogár
    Mutasd a teljes hozzászólást!
Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd