エクセルVBAマクロでCSVファイルを簡単操作！実践コードと効率化の秘訣

 

業務で頻繁に使われるCSVファイル。これを手作業で操作するのは非効率です。エクセルVBAマクロの便利な機能の一つを使えば、CSVファイルは簡単に操作で解決できます。

Excel VBAマクロを活用してCSVファイルを取り込む方法やサンプルコードをもとに、あなたのスキル向上と業務効率化をサポートする情報をお届けします。

 

 

 

Excel VBAマクロを使ったCSVファイル取り込む基本的な手法

CSVファイルはテキスト形式でデータを保持するため、エクセルへの取り込みやデータ処理に適していますが、手作業で行うと手間がかかります。ここをVBAマクロで自動化を実現します。

 

 

Excel VBAマクロを使うメリットやCSVファイル取り込む必要性

VBAマクロを使うメリットは下記3つ。

 

エクセルでCSVファイルを取り込む必要性は下記3つ。

 

 

 

 

Excel VBA 基本的なCSVファイル読み込みコード

Excel VBAを使ってCSVファイルをExcelに読み込む基本的な手順を3つのステップで解説します。

Workbooks.Openメソッドでファイルを開く

Workbooks.Open メソッドを使用して、対象のCSVファイルを開きます。

Option Explicit

Sub OpenCSVFile()
    Workbooks.Open Filename:="C:\Users\User\Desktop\新しいフォルダー\テキスト1.csv"
End Sub

※フォルダ、CSVは環境に合わせ修正してください。

 

データを指定シートに移動する

読み込んだデータを別のシートやブックに移動させる

Option Explicit

Sub MoveDataToSheet()
    Dim wb As Workbook
    Set wb = Workbooks.Open(Filename:="C:\Users\User\Desktop\新しいフォルダー\テキスト1.csv")
    wb.Sheets(1).UsedRange.Copy Destination:=ThisWorkbook.Sheets("Sheet1").Range("A1")
    wb.Close SaveChanges:=False
End Sub

 

開いたファイルを閉じる

作業後、開いたCSVファイルを閉じます。（不要なメモリ使用を防ぎます）

Option Explicit

Sub CloseCSVFile()
    Dim wb As Workbook
    Set wb = Workbooks.Open(Filename:="C:\Users\User\Desktop\新しいフォルダー\テキスト1.csv")
    wb.Close SaveChanges:=False
End Sub

 

複数のCSVファイルを一括で処理コード

フォルダ内のすべてのCSVファイルを一括で開き、データを結合するコード例です。

Option Explicit

Sub ProcessMultipleCSVFiles()
    Dim folderPath As String
    Dim fileName As String
    Dim wb As Workbook
    
    folderPath = "C:\Users\User\Desktop\新しいフォルダー\"
    fileName = Dir(folderPath & "*.csv")
    
    Do While fileName <> ""
        Set wb = Workbooks.Open(folderPath & fileName)
        wb.Sheets(1).UsedRange.Copy _
            Destination:=ThisWorkbook.Sheets("Summary").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
        wb.Close SaveChanges:=False
        fileName = Dir
    Loop
End Sub

 

※上記コード例で読み込みするCSVのコードはSJISで、カンマ区切りを想定しています。

 

 

Excel VBA 大量データ処理に使うQueryTablesメソッド

大規模CSVを早く取り込み方法に使うメソッドのQueryTablesのサンプルコードの例を紹介します。

 

QueryTablesメソッドを使ったサンプルコード

Option Explicit

Sub ImportCSVFile()
    Dim filePath As String
    Dim ws As Worksheet
    Dim targetCell As Range

    ' CSVファイルのパスを指定
    filePath = "C:\Users\User\Desktop\DataCsv\Data.csv" ' あなたのCSVファイルの場所を指定してください

    ' ワークシートを指定
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 取り込み先のシートを指定してください

    ' 取り込み先セルを指定
    Set targetCell = ws.Range("A1") ' データを貼り付けるセルを指定してください

    ' CSVファイルを取り込む
    With ws.QueryTables.Add(Connection:="TEXT;" & filePath, Destination:=targetCell)
        .TextFileParseType = xlDelimited
        .TextFilePlatform = 65001 'UTF-8
        .TextFileCommaDelimiter = True ' カンマ区切りの場合はTrue、タブ区切りの場合はFalseに設定してください
        .Refresh
    End With
End Sub

 

 

 

 

大量データ処理でのパフォーマンス向上方法

処理速度を向上させるには、 Application.ScreenUpdating = False や Application.Calculation = xlCalculationManual を活用します。

Option Explicit

Sub ImportCSVFile()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    Dim filePath As String
    Dim ws As Worksheet
    Dim targetCell As Range
        
    ' CSVファイルのパスを指定
    filePath = "C:\Users\User\Desktop\新しいフォルダー\テキスト1.csv" ' あなたのCSVファイルの場所を指定してください

    ' ワークシートを指定
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 取り込み先のシートを指定してください

    ' 取り込み先セルを指定
    Set targetCell = ws.Range("A1") ' データを貼り付けるセルを指定してください

    ' CSVファイルを取り込む
    With ws.QueryTables.Add(Connection:="TEXT;" & filePath, Destination:=targetCell)
        .TextFileParseType = xlDelimited
        .TextFilePlatform = 65001 'UTF-8
        .TextFileCommaDelimiter = True ' カンマ区切りの場合はTrue、タブ区切りの場合はFalseに設定してください
        .Refresh
    End With
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub

 

 

まとめ