【Excel VBA】ファイルが存在するか確認する(パス指定)

指定したファイルが存在しているかを確認するマクロです。ただそれだけのマクロです。

今回の事例はファイルパスを予め指定しておき、そのファイルが存在するかを確認します。

Sub ファイルが存在するか確認()

Dim filePath As String

'ファイルが存在しているか確認するファイルのパス
filePath = "C:\test\test.xlsx"

    If Dir(filePath) <> "" Then
        ' ファイルが存在する場合
        MsgBox "ファイルが存在します"
    Else
        ' ファイルが存在しない場合
        MsgBox "ファイルが存在しません"
    End If

End Sub

簡単なコードですが応用することで簡単な検索ツールとして使用できます。