今度は単純なテキストファイルではなく、CSV形式テキストファイルを読み込みます。

今度は、CSV形式テキストデータのファイルの読み込みのサンプルです。

ここでのサンプルは、CSV形式テキストデータが5項目(5つのフィールドのデータが4つのカンマで区切られている)ことを前提としています。

Option Explicit

' CSV形式テキストファイル(5カラム)読み込みサンプル
Sub READ_TextFile()
    Const cnsTITLE = "テキストファイル読み込み処理"
    Const cnsFILTER = "全てのファイル (*.*),*.*"
    Dim xlAPP As Application        ' Applicationオブジェクト
    Dim intFF As Integer            ' FreeFile値
    Dim strFILENAME As String       ' OPENするファイル名(フルパス)
    Dim X(1 To 5) As Variant               ' 読み込んだレコード内容  ' �@
    Dim GYO As Long                 ' 収容するセルの行
    Dim lngREC As Long              ' レコード件数カウンタ

    ' Applicationオブジェクト取得
    Set xlAPP = Application
    ' 「ファイルを開く」のフォームでファイル名の指定を受ける
    xlAPP.StatusBar = "読み込むファイル名を指定して下さい。"
    strFILENAME = xlAPP.GetOpenFilename(FileFilter:=cnsFILTER, _
        Title:=cnsTITLE)
    ' キャンセルされた場合は以降の処理は行なわない
    If StrConv(strFILENAME, vbUpperCase) = "FALSE" Then Exit Sub

    ' FreeFile値の取得(以降この値で入出力する)
    intFF = FreeFile
    ' 指定ファイルをOPEN(入力モード)
    Open strFILENAME For Input As #intFF
    GYO = 1
    ' ファイルのEOF(End of File)まで繰り返す
    Do Until EOF(intFF)
        ' レコード件数カウンタの加算
        lngREC = lngREC + 1
        xlAPP.StatusBar = "読み込み中です．．．．(" & lngREC & "レコード目)"
        ' レコードを読み込む(このサンプルは5項目のCSV)
        Input #intFF, X(1), X(2), X(3), X(4), X(5)                  ' �A
        ' 行を加算しA〜E列にレコード内容を表示(先頭は2行目)
        GYO = GYO + 1
        Range(Cells(GYO, 1), Cells(GYO, 5)).Value = X   ' 配列渡し  ' �B
    Loop
    ' 指定ファイルをCLOSE
    Close #intFF
    xlAPP.StatusBar = False
    ' 終了の表示
    MsgBox "ファイル読み込みが完了しました。" & vbCr & _
        "レコード件数=" & lngREC & "件", vbInformation, cnsTITLE
End Sub

(こちらをクリックすると、実際にExcel上で確認ができます)
CSV形式テキストデータに特化したところ以外は、前項の「テキストデータの読み込み」と同じです。(２つ先の「CSV形式テキストデータの書き出し」を先に実行してもらうと、簡単なデータが作成されるので、このサンプルで読み込んでみることができます。)

�@

変数はCSVの項目数分作成する必要があります。ここではテーブルとしています。Variant型にしているのは、読み込んで収容する値に応じたデータ型になる利点を利用するためです。

�A

レコードの読み込みはInputステートメントで行ないます。ファイル番号の次からがレコードデータを格納する変数で項目数がレコード上の項目数と合っていないとレコードずれを起こします。
なお、レコード右端改行位置にはカンマは必要ありません。
※項目の属性が一定していない(数値になったり文字になったりする)場合は、Inputメソッドの前に配列の初期化(Erase X)の行を追加して下さい。XはVariantとしているので、セットする値によって属性のふるまいが変わります。

�B

A〜Eの5列のセルに5項目のテーブルを転記するのは、このように配列全体を１行で渡すこともできます。通常は、カラムを変数にして1から5までをループさせて１セルずつ渡します。

※CSV形式テキストファイルとはどのようなファイルでしょうか。

CSV(Comma Separated Value)ということで、項目間をカンマで区切ったテキストファイルのことを指します。
但し、「CSV形式テキストファイル」なら全て同じというわけではありません。
下記のような事象があります。

�@

文字列項目は両端がダブルクォーテーションで囲われている。

�A

文字列項目は両端がシングルクォーテーションで囲われている。

�B

文字列項目でも両端がダブルクォーテーションやシングルクォーテーションで囲われていない。

�C

文字列項目は両端がダブルクォーテーションで囲われているが、その文字列中にカンマが存在する。

�D

行ごとにカンマの数(つまり項目数)が一定していない。

�E

途中にブランク行が許されている。また、行によりカンマの数(つまり項目数)が一定でない。

�F

改行コードがCR+LFでない。(UNIX系システムではLFのみの場合がある)

�G

一番ひどい例では、文字列項目の途中に改行(CRやLF)が含まれている。

ここでサンプルとして挙げている方法は、MS-DOS時代からの方法であり、現在のような「野放図」になってしまったCSV形式ファイルには対応できません。
読み込み処理を作成する場合は、単に「CSV形式ファイル」で鵜呑みにせず内容をよく確認する必要があります。
ここに挙げているサンプルで読み込める「CSV形式ファイル」は以下のような仕様(約束事)になります。

�@

項目数が５項目としているので、カンマはその間の４つ。どの行も同様。(ブランク行不可)
項目数(カンマ数)が合っていないと、シートに展開した結果が行を追うごとにズレていきます。

�A

文字列両端のダブルクォーテーションは無くても良いが、文字列途中にカンマやダブルクォーテーション、シングルクォーテーション、改行(CRやLF)が含まれないこと。
不正セパレータがデータに含まれていると、その行から後ろ全てがズレていきます。

�B

改行コードがCR+LF。最終行にも改行コードがあること。
ファイルに使用されている改行コードがCR+LFでない場合は、１行目しか表示されなかったり、メモリオーバーとなったりします。

※カンマ数が不定(一定していない)の場合は、次ページの方法(行単位に読み込んでからカンマ位置で分解する方法)も参照して下さい。