Dzisiejszy samouczek dotyczący automatyzacji pakietu Office koncentruje się na nauce sprawdzania, czy plik istnieje w jednym z katalogów komputera.
Przygotowanie
Jeśli jesteś trochę nowy w kodowaniu, upewnij się, że karta Programowanie programu Microsoft Office Excel jest włączona i że znasz podstawowe języki VBA programu Excel .
Sprawdzanie, czy plik istnieje w Excel VBA
Poniższy kod wykorzystuje pola wejściowe w celu przechwycenia ścieżki do pliku, a także samej nazwy pliku od użytkownika.
Następnie wykorzystuje metodę Dir , aby sprawdzić, czy ścieżka pliku rzeczywiście istnieje.
Na koniec wyświetla użytkownikowi okno komunikatu z wynikiem sprawdzenia.
Sub Check_file_exists()
Dim NameDir As String
Dim NameFile As String
'Capture the file path and name from the users
NameDir = InputBox("Enter file directory")
NameFile = InputBox("Enter file name")
'Check whether the file exists
If (Dir(NameDir & NameFile)) = "" Then
MsgBox ("File doesn't exist")
Else
MsgBox ("File exists")
End If
End Sub
Sprawdź, czy folder istnieje
W całkiem podobny sposób możesz sprawdzić, czy w Twoim systemie operacyjnym istnieje określony folder. Również tutaj wykorzystujemy metodę Dir , ale z parametrem vbDirectory .
Sub Check_folder_exists()
Dim NameDir As String
NameDir = InputBox("Enter file directory")
If (Dir(NameDir, vbDirectory)) = "" Then
MsgBox ("Folder doesn't exist")
Else
MsgBox ("Folder exists")
End If
End Sub
Korzystanie z kodu
- Otwórz Microsoft Excel i przejdź do swojego skoroszytu.
- Hit Developer, a następnie naciśnij Visual Basic.
- Skopiuj i wklej kod z góry jako podprogram w określonym arkuszu modułu VBA.
- Uruchom (F5) kod.
- Zapisz swój skoroszyt.
Możliwe rozszerzenia
Powyższy kod tabliczki kotła może zostać rozszerzony dla następujących przypadków użycia:
- Utwórz folder / plik, jeśli jeszcze nie istnieje.
- Usuń plik folderu, pod warunkiem, że znajdują się one w katalogu plików systemu operacyjnego.
- Szukaj plików/folderów za pomocą symbolu wieloznacznego.