【コピペでOK】エクセルVBAでフォルダ内のファイル名を一覧取得！無料DLファイル付き！

フォルダ内のファイル名を一覧で取得したい…
ファイルの目次をエクセルで作って効率化したい！

フォルダの中身が増えると、どこに何があったかわからなくなることがよくあります。そんな時、VBAでファイルリストを作成すると、とても効率的に作業を行えるようになります。

今回紹介するVBAコードをコピペするだけで、指定フォルダのファイル名をエクセルに一覧化できます。さらに、一覧はリンク付きなので、クリックするだけでファイルを開くことも可能です。

「VBAは初めてでよく分からない…」という方でも、そのまま使えるエクセルファイルも用意しています。まずはダウンロードして試してみてください。

また、このVBAと添付メールの自動作成VBAを組み合わせることで、さらに効率UPが可能です。併せてぜひこちらも参考にしてみてください。

【コピペでOK】フォルダ内のファイル名を一覧取得するVBA

以下のVBAコードを使えば、指定フォルダ内のファイル名をエクセルに一覧表示できます。さらに、ファイル名にはリンクが自動的に設定されるので、クリックして開くことも可能です。

Sub FileNames()
    Dim folderPath As String, fileName As String
    Dim ws As Worksheet, fileCell As Range
    
    Set ws = ThisWorkbook.Sheets(ActiveSheet.Name)
    ws.Cells.ClearContents
    ws.Range("A1").Select
    
    ws.Range("A2") = "対象フォルダ"
    ws.Range("A3") = "ファイル名"
    
    ' フォルダ選択ダイアログ
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = -1 Then
            folderPath = .SelectedItems(1)
        Else
            Exit Sub
        End If
    End With
    
    ws.Range("B2") = folderPath
    
    ' ファイル名取得
    Set fileCell = ws.Range("A4")
    fileName = Dir(folderPath & "\*.*")
    
    Do While fileName <> ""
        ws.Hyperlinks.Add Anchor:=fileCell, Address:=folderPath & "\" & fileName, TextToDisplay:=fileName
        Set fileCell = fileCell.Offset(1, 0)
        fileName = Dir
    Loop
    
    MsgBox "完了しました"
End Sub