Vbaを使用してファイルが存在するかどうかを確認する方法（例あり）

VBA のDir関数を使用すると、特定のファイルが特定のフォルダーに存在するかどうかを確認できます。

このステートメントを実際に使用する一般的な方法は次のとおりです。

 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

この特定のマクロは、ユーザーがファイルへのフルパスを入力してファイルが存在するかどうかを確認できる入力ボックスを作成します。

ユーザーがファイル パスを入力すると、マクロはファイルが存在するかどうかを示すメッセージ ボックスを生成します。

次の例は、この構文を実際に使用する方法を示しています。

例: VBA を使用してファイルが存在するかどうかを確認する

次の場所にフォルダーがあるとします。

C:\ユーザー\ボブ\ドキュメント\current_data

このフォルダーには 3 つの CSV ファイルが含まれています。

VBA を使用して、このフォルダーにSoccer_data.csvというファイルが存在するかどうかを確認するとします。

これを行うには、次のマクロを作成できます。

 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

このマクロを実行すると、ファイル パスを入力できる入力ボックスが表示されます。

Soccer_data.csvファイルのフルパスを入力します。

[OK]をクリックすると、指定したフォルダーにファイルが存在するかどうかを示すメッセージ ボックスが表示されます。

メッセージ ボックスには、ファイルが存在することが示されます。

注: Dir関数の完全なドキュメントはここで見つけることができます。

追加リソース

次のチュートリアルでは、VBA で他の一般的なタスクを実行する方法について説明します。

VBA を使用してフォルダーを作成する方法
VBAを使ってフォルダを削除する方法
VBAを使用してファイルを削除する方法