Dá se to udělat nepřímo ignorováním chyby a pak jejím zpětným vyhodnocením.
Nejdřív si zjisti číslo chyby, co to vyhodí v případě, že je ten soubor používán.
Před "problémový" řádek kódu napiš
On Error Resume Next
tady bude kód pro otevření texťáku
A pak zkoumej, jestli ta chyba nastala:
If Err = 1234 then
Msgbox "Soubor je používán, procedura bude ukončena"
Exit Sub
ElseIf Err <> 0 then
Msgbox "Jiná chyba"
Exit sub
End If
On Error GoTo 0
Ale nevím o tom, že by soubor s příponou .txt byl nějak zablokovaný (na rozdíl od pdf, atd).
Napiš ten kód, co vyhazuje chybucitovat
Nejdřív si zjisti číslo chyby, co to vyhodí v případě, že je ten soubor používán.
Před "problémový" řádek kódu napiš
On Error Resume Next
tady bude kód pro otevření texťáku
A pak zkoumej, jestli ta chyba nastala:
If Err = 1234 then
Msgbox "Soubor je používán, procedura bude ukončena"
Exit Sub
ElseIf Err <> 0 then
Msgbox "Jiná chyba"
Exit sub
End If
On Error GoTo 0
Ale nevím o tom, že by soubor s příponou .txt byl nějak zablokovaný (na rozdíl od pdf, atd).
Napiš ten kód, co vyhazuje chybucitovat
RSS nejnovější články