Excel VBAでCSVファイルを簡単に読み込む方法:Fileオブジェクトを活用する

この記事では、Excel VBAを使用してCSV形式のテキストファイルを読み込む方法とサンプルプログラムを詳しく解説します。

Excel VBAでCSVファイルを読み込みたいんだけど、どうやってやるの？

Excel VBAを使ってCSVファイルを読み込む方法は、Fileオブジェクトを活用することができます。

受講者数No.1！初心者からプロへ導く信頼のスクール

短期間で習得可能！未経験から実践力を磨く充実のプログラム

テックアカデミー公式ページへ ≫

今なら無料相談でAmazonギフトカードがもらえる！

CSVファイルとは

CSVファイル（Comma-Separated Valuesファイル）は、テキストデータを保存するためのシンプルなファイル形式です。

この形式では、各レコード（行）が1行に対応し、各フィールド（列）はコンマ（,）で区切られています。CSVファイルはそのシンプルさから、様々なプログラムやアプリケーションでデータの転送や保存のために広く利用されています。

CSVファイルの主な特徴は以下の通りです：

テキストベース：CSVファイルはプレーンテキストであり、テキストエディタで開くことができます。
シンプルな構造：データはコンマで区切られ、行ごとに異なるレコードを表します。これにより、読み書きが容易になります。
汎用性：多くのデータベースシステム、スプレッドシートソフトウェア、プログラミング言語でサポートされており、異なるシステム間でのデータ交換の標準的な方法となっています。
カスタマイズ可能：フィールドの区切り文字としてコンマが一般的に使用されますが、セミコロン、タブ、スペースなど、他の文字を使用することも可能です。

CSVファイルは、シンプルでありながら、連絡先リスト、金融情報、数値データの集計など、様々なデータを扱う場合に有用です。

しかし、複雑な構造（例：多階層データ、リレーショナルデータ）を持つデータには適していないことがあります。

サンプルプログラムを使った解説

Excel VBAを使用してCSVファイルを読み込む方法を示すサンプルプログラムを以下に示します。

このサンプルでは、指定したCSVファイルを開き、内容を一行ずつ読み込んで、Excelのシートに出力します。CSVファイルの区切り文字がコンマ（,）であると仮定しています。

Sub ImportCSV()
    Dim csvPath As String
    Dim rowNumber As Long
    Dim columnNumber As Integer
    Dim rowData As String
    Dim rowValues As Variant

    ' CSVファイルのパスを指定
    csvPath = "C:\path\to\your\file.csv"
    
    ' ファイルを開く
    Open csvPath For Input As #1
    
    rowNumber = 1
    
    ' ファイルの終わりまで繰り返す
    Do Until EOF(1)
        Line Input #1, rowData ' 一行読み込み
        rowValues = Split(rowData, ",") ' コンマで分割して配列に格納
        
        ' 分割したデータをセルに出力
        For columnNumber = 0 To UBound(rowValues)
            Cells(rowNumber, columnNumber + 1).Value = rowValues(columnNumber)
        Next columnNumber
        
        rowNumber = rowNumber + 1
    Loop
    
    ' ファイルを閉じる
    Close #1
End Sub

解説

ファイルパスの指定：csvPath変数に、読み込むCSVファイルのフルパスを指定します。
ファイルのオープン：Openステートメントを使用して、指定されたパスのファイルを入力用に開きます。
データの読み込みと処理：
- Do Until EOF(1)ループを使用して、ファイルの最後に達するまで一行ずつデータを読み込みます。
- Line Inputステートメントで読み込んだ行をrowData変数に格納し、Split関数を使ってコンマでデータを分割します。分割された各値はrowValues配列に格納されます。
- 分割されたデータをExcelシートの適切なセルに出力します。rowNumberとcolumnNumber変数を使用して、読み込んだデータを正しい位置に配置します。
ファイルのクローズ：Closeステートメントでファイルを閉じます。