婚活・恋活・再婚マッチング【マリッシュ(marrish)】
Skypeを使用しない独自のシステム【ECCオンラインレッスン】
リゾートバイト派遣業界No1の求人サイト【リゾバ.com】
次はあなたが出会う番です♡【ラブサーチ】

Excel VBAで再帰的にフォルダ内のファイルを取得するコードサンプル

EXCEL VBAでフォルダ内のファイル名を再帰的に取得する。

フォルダ内のファイル名を再帰的に取得することで、他のエクセルファイルなどまとめて開いて
ある値をコピーしてくる場合に有効なサンプルです。

サンプルでは、ファイル名の取得までですが、Thisworkbook.Pathとbufに入っているファイル名をくっつけて、エクセルファイルをまとめて開いたり、コピーしたりいろいろな応用ができます。

Sub dirFiles()
Dim buf As String
Dim thisPath As String
Dim cd As String
Dim cnt As Long

thisPath = ThisWorkbook.Path
cd = CurDir

buf = Dir(thisPath & "\*.*")

Do While buf <> ""
    cnt = cnt + 1
    Cells(cnt, 1) = buf
    buf = Dir()
Loop
End Sub


婚活・恋活・再婚マッチング【マリッシュ(marrish)】
Skypeを使用しない独自のシステム【ECCオンラインレッスン】
リゾートバイト派遣業界No1の求人サイト【リゾバ.com】
次はあなたが出会う番です♡【ラブサーチ】