Jak się domyślam chcesz żeby sprawdził ci czy plik jest otwarty czy nie, czyli obsłużył błąd.
Oto przykładowa instrukcja:
Sub sprawdz_czy _otwarty()
On Error Resume Next
Windows("Zeszyt3").Activate
If Err = 9 Then
MsgBox "Plik nie jest otwarty"
End If
End Sub
Zasadniczo podstawą jest instrukcja "On Error Resume Next" która nie wyświetla nam błędu lecz po zapamiętaniu jego numeru wykonuje dalszą część kodu. Następnie próbuje uaktywnić plik "Arkusz3" i jeżeli ten plik nie jest otwarty to wywali błąd nr 9 czyli "Subscript out of range" (lecz go nie pokaże zablokowany przez "On Error Resume Next"). Jeżeli powyżej błąd zaistniał to przyjął 9 i pokaże nam "Plik nie jest otwarty".
Zasada jest ci już znana wieć teraz troszkę pokombinuj i zbij to do kupy. Nie będe pisał ci twojego kodu bo to by było za proste.
Jedynym sposobem żeby się nauczyć jest samemu testować, testować testować....................... a po jakimś czasie jak wywali ci błąd będzież wiedział co znowu jest nie tak a z kodu będziesz czytać jak z książki.
Pozdro Tashemik;) |