Jak sprawdzić, czy plik istnieje za pomocą vba (z przykładem)

Możesz użyć funkcji Dir w VBA, aby sprawdzić, czy określony plik istnieje w określonym folderze.

Oto powszechny sposób użycia tego stwierdzenia w praktyce:

 SubCheckFileExists ()

'ask user to type path to file
InputFile = InputBox(" Check if this file exists: ")

'check if file exists and output results to message box
If Dir(InputFile) <> "" Then
    MsgBox “ This File Exists ”
Else
    MsgBox “ This File Does Not Exist ”
End If

End Sub

To konkretne makro utworzy pole wprowadzania, w którym użytkownik może wprowadzić pełną ścieżkę do pliku, aby sprawdzić, czy istnieje.

Gdy użytkownik wprowadzi ścieżkę pliku, makro wyświetli okno komunikatu wskazujące, czy plik istnieje, czy nie.

Poniższy przykład pokazuje, jak zastosować tę składnię w praktyce.

Przykład: Sprawdź, czy plik istnieje, używając VBA

Załóżmy, że mamy folder zlokalizowany w następującej lokalizacji:

C:\Users\bob\Documents\bieżące_dane

Ten folder zawiera trzy pliki CSV:

Załóżmy, że chcemy użyć języka VBA do sprawdzenia, czy w tym folderze istnieje plik o nazwie football_data.csv .

W tym celu możemy utworzyć następujące makro:

 SubCheckFileExists ()

'ask user to type path to file
InputFile = InputBox(" Check if this file exists: ")

'check if file exists and output results to message box
If Dir(InputFile) <> "" Then
    MsgBox “ This File Exists ”
Else
    MsgBox “ This File Does Not Exist ”
End If

End Sub

Po uruchomieniu tego makra pojawia się pole wprowadzania, w którym możemy wpisać ścieżkę pliku:

Wprowadzimy pełną ścieżkę pliku Soccer_data.csv :

Po kliknięciu OK pojawi się okno komunikatu, które poinformuje nas, czy plik istnieje w określonym przez nas folderze:

Okno komunikatu informuje nas, że plik istnieje.

Uwaga : Pełną dokumentację funkcji Dir można znaleźć tutaj .

Dodatkowe zasoby

Poniższe samouczki wyjaśniają, jak wykonywać inne typowe zadania w VBA:

Jak tworzyć foldery za pomocą VBA
Jak usunąć foldery za pomocą VBA
Jak usunąć pliki za pomocą VBA