CSVファイルをExcelVBAで操作する方法｜自動化の時短マクロ事例つき

 

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

 

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

 

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

命令の意味は分かるけど、何に使うのか分からないと感じている方へ。
30万人が読んだ記事をもとに再構成。

データ分割を題材に、実務の流れの中で理解できる講座です。

↓↓↓↓↓
▶ 自分で作れるレベルへ（こちらから閲覧できます）
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

 

Excel VBAでCSVを読み込む基本手法【初心者向け】

 

 

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

 

 

なぜCSV取り込みにVBAを使うのか？メリットと活用シーン

 

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

 

 

 

 

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

 

 

 

 

Excel VBAによるCSV読み込みの基本コード例

 

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

 

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

 

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

 

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

 

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

 

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

命令の意味は分かるけど、何に使うのか分からないと感じている方へ。
30万人が読んだ記事をもとに再構成。

データ分割を題材に、実務の流れの中で理解できる講座です。

↓↓↓↓↓
▶ 自分で作れるレベルへ（こちらから閲覧できます）
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

 

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

 

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

 

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

 

開いたファイルを閉じる

 

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

 

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

 

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

 

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

 

1. Option Explicit
3. Sub ProcessMultipleCSVFiles()
4.     Dim folderPath As String
5.     Dim fileName As String
6.     Dim wb As Workbook
7.     
8.     folderPath = "C:\Users\User\Desktop\新しいフォルダー\"
9.     fileName = Dir(folderPath & "*.csv")
10.     
11.     Do While fileName <> ""
12.         Set wb = Workbooks.Open(folderPath & fileName)
13.         wb.Sheets(1).UsedRange.Copy _
14.             Destination:=ThisWorkbook.Sheets("Summary").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
15.         wb.Close SaveChanges:=False
16.         fileName = Dir
17.     Loop
18. End Sub

 

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

 

 

大量CSVを高速読み込みするQueryTables活用法

 

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

 

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

 

1. Option Explicit
3. Sub ImportCSVFile()
4.     Dim filePath As String
5.     Dim ws As Worksheet
6.     Dim targetCell As Range
8.     ' CSVファイルのパスを指定
9.     filePath = "C:\Users\User\Desktop\DataCsv\Data.csv" ' あなたのCSVファイルの場所を指定してください
11.     ' ワークシートを指定
12.     Set ws = ThisWorkbook.Sheets("Sheet1") ' 取り込み先のシートを指定してください
14.     ' 取り込み先セルを指定
15.     Set targetCell = ws.Range("A1") ' データを貼り付けるセルを指定してください
17.     ' CSVファイルを取り込む
18.     With ws.QueryTables.Add(Connection:="TEXT;" & filePath, Destination:=targetCell)
19.         .TextFileParseType = xlDelimited
20.         .TextFilePlatform = 65001 'UTF-8
21.         .TextFileCommaDelimiter = True ' カンマ区切りの場合はTrue、タブ区切りの場合はFalseに設定してください
22.         .Refresh
23.     End With
24. End Sub

 

 

 

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

 

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

 

 

1. Option Explicit
3. Sub ImportCSVFile()
4.     Application.ScreenUpdating = False
5.     Application.Calculation = xlCalculationManual
6.     
7.     Dim filePath As String
8.     Dim ws As Worksheet
9.     Dim targetCell As Range
10.         
11.     ' CSVファイルのパスを指定
12.     filePath = "C:\Users\User\Desktop\新しいフォルダー\テキスト1.csv" ' あなたのCSVファイルの場所を指定してください
14.     ' ワークシートを指定
15.     Set ws = ThisWorkbook.Sheets("Sheet1") ' 取り込み先のシートを指定してください
17.     ' 取り込み先セルを指定
18.     Set targetCell = ws.Range("A1") ' データを貼り付けるセルを指定してください
20.     ' CSVファイルを取り込む
21.     With ws.QueryTables.Add(Connection:="TEXT;" & filePath, Destination:=targetCell)
22.         .TextFileParseType = xlDelimited
23.         .TextFilePlatform = 65001 'UTF-8
24.         .TextFileCommaDelimiter = True ' カンマ区切りの場合はTrue、タブ区切りの場合はFalseに設定してください
25.         .Refresh
26.     End With
27.     Application.Calculation = xlCalculationAutomatic
28.     Application.ScreenUpdating = True
29. End Sub

 

まとめ：VBAでCSV処理業務を時短・効率化しよう