ファイルの存在をチェックする

指定したファイルが存在するかどうかを
チェックするサンプルです。
今回は、検索対象のパス配下に存在するxlsmファイルを
探してみるサンプルを記載します。

Sub Sample24()

    Dim file As String
    Dim count As Long

    Dim path As String
    path = "検索対象のパスを記載"

    ' 指定したパスの配下のxlsmを検索する
    ' Dir関数はファイルが存在するかどうかを判定する
    ' 存在する場合はファイル名を返す
    file = Dir(path & "*.xlsm")

    ' 存在するファイル名を書き出す
    count = 0
    Do While file <> ""
        count = count + 1
        Cells(count, 1) = file
        file = Dir()
    Loop
End Sub

非常に簡単ですね。でも、とても便利なのでとても使いやすいです。