【コピペでOK】VBAでフォルダ内CSVを一括統合する方法！

CSVのデータを統合したいけど、いちいち開けるのは面倒
沢山あるCSVのどこに必要なデータがあるかわからない…

社内業務で溜まってしまいがちなのが、システムから出力されるCSVファイルです。CSVはエクセルで編集でき便利ですが、一つずつ開けて確認する手間がかかりますよね。溜まってしまうと、ほしいデータを見つけるだけで、かなりの時間がかかってしまいます。

そんな時に便利なのが、今回紹介するCSV統合VBAです。このVBAでは、フォルダに入っているCSVを一つのエクセルにまとめることができます。これにより検索性が格段に向上します。さらに、目次作成VBAを使用することで、一覧を作成しより見やすいファイルが作成できます。

この記事ではVBAが使えない人でもわかるように、コピペで使えるコードを使って環境設定から紹介しています。ぜひこの記事を参考に、VBAの効率化を行ってみてください。

【結論】コピペで使えるCSV統合VBA
CSV統合VBAの動作
CSV統合VBAの使い方
まとめ

【結論】コピペで使えるCSV統合VBA

以下のコードをコピペするだけで、指定したフォルダ内のCSVファイルをエクセルに統合できます。

各CSVはシートとして追加され、CSVのファイル名がシート名になります。

Sub ImportCSVFilesToExcel()
    Dim folderPath As String
    Dim csvFile As String
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim csvData As Workbook
    Dim csvSheet As Worksheet
    Dim fileDialog As Object
    Dim i As Integer

    ' フォルダ選択ダイアログを表示
    Set fileDialog = Application.fileDialog(msoFileDialogFolderPicker)
    fileDialog.Title = "CSVファイルが入っているフォルダを選択してください"
    If fileDialog.Show = -1 Then
        folderPath = fileDialog.SelectedItems(1) ' 選択したフォルダパスを取得
    Else
        MsgBox "フォルダが選択されていません。処理を中止します。"
        Exit Sub
    End If

    ' 新しいワークブックを作成
    Set wb = Workbooks.Add

    ' フォルダ内のCSVファイルを順番に処理
    csvFile = Dir(folderPath & "\*.csv")
    Do While csvFile <> ""
        ' CSVファイルを開く
        Set csvData = Workbooks.Open(folderPath & "\" & csvFile)
        
        ' CSVファイルの内容を新しいシートにコピー
        Set csvSheet = csvData.Sheets(1)
        csvSheet.Copy After:=wb.Sheets(wb.Sheets.Count) ' 新しいシートにコピー
                
        ' CSVファイルを閉じる
        csvData.Close False
        
        ' 次のCSVファイルを取得
        csvFile = Dir
    Loop

    ' 初期シート（最初のシート）を削除
    Application.DisplayAlerts = False ' 削除確認ダイアログを非表示にする
    wb.Sheets(1).Delete
    Application.DisplayAlerts = True ' 削除確認ダイアログを再表示
    ' 終了メッセージ
    MsgBox "CSVファイルのインポートが完了しました！"
End Sub