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メソッドを使ったサンプルコード