Excel（VBA）で、レコード長の長いCSVファイル読み込み方法

質問

現在、VBA（EXCEL）の勉強しています。
次のような場合で良い方法（PG）がありましたら、回答お願いします。
csvファイルで、1レコードに可変データが情報として送られてくる場合の、EXCELにその情報を取り込方法です。
しかし、可変データ数が多数の場合、最初にEXCELのシートに展開できない（シートの最大列数以上のデータ）時、その場合の取り込み方法を教えてください。
うまく伝わらないような気がしますので、例を作成しました。
【例】
＜画面（別プロセス）＞
営業
青井 19 大卒
石井 19 高卒
佐藤 20 高卒
・
・
人事
後藤 21 専卒
橋口 22 大卒
竹田 23 大卒
・
・
・

上記のような情報がcsvファイルで送られてくる
＜CSVファイル＞
営業,青井,19,大卒,石井,19,高卒,佐藤,20,高卒・・・・・
人事,後藤,21,専卒,橋口,22,大卒,竹田,23,大卒・・・・・
・
・
・
このCSVを1レコードづつ読み込んで、編集し帳票にしたいと思います。
部（営業、人事）を最初に大項目名としてA列に入れる。
可変データ編集は名前と年齢をつなげセルA列に、学歴をB列に入れる。
＜帳票＞
営業
青井(19) 大卒
石井(19) 高卒
佐藤(20) 高卒
・
・
・
人事
後藤(21) 専卒
橋口(22) 大卒
竹田(23) 大卒

このようにしたいと考えてます。
この場合の、VBAでの読み込み編集方法で、良い方法はありますか？
良い方法がありましたら、教えてください。
（ん～うまく伝わるかなぁ～）

回答No.2

noname#140971 · ベストアンサー

1,aaa
2,bbb,ccc
3,ddd,eee,fff

今、このような CSV ファイルがあるとします。
これを１行づつ読み込むサンプルコードは次のようです。
問題は、Mの値によってシートを切り替えるなりすることでしょう。

Private Sub CommandButton1_Click()
　　Dim I　　　 As Integer
　　Dim J　　　 As Integer
　　Dim N　　　 As Integer
　　Dim M　　　 As Integer
　　Dim Data　　As String
　　Dim Datas() As String

　　Do
　　　　M = M + 1　　　　　　　　　　　　　 ' エクセルの行カウンターをカウントアップ
　　　　Data = FileRead("C:\Temp\Test.csv") ' １行だけ読み込む
　　　　Datas() = Split(Data, ",")　　　　　' 読み込んだデータを列に対応する配列に代入
　　　　N = UBound(Datas()) + 1　　　　　　 ' 列インデックスの最大値+1 を求める
　　　　For I = 1 To N　　　　　　　　　　　' For ループ
　　　　　　J = I - 1　　　　　　　　　　　 ' 配列インデックス
　　　　　　Me.Cells(M, I) = Datas(J)　　　 ' エクセルに表示
　　　　Next I　　　　　　　　　　　　　　　' Next I
　　Loop Until Data = ""
End Sub

※[ツール][参照設定]　で Microsoft Scripting Runtime にレ点が必要。

Public Function FileRead(ByVal FileName As String, Optional isStop As Boolean = False) As String
On Error GoTo Err_FileRead
　　Static isOpen As Boolean
　　Static fso　　As FileSystemObject
　　Static fil　　As File
　　Static txs　　As TextStream

　　If Not isOpen Then
　　　　isOpen = True
　　　　Set fso = New FileSystemObject
　　　　Set fil = fso.GetFile(FileName)
　　　　Set txs = fil.OpenAsTextStream(ForReading, TristateUseDefault)
　　End If
　　FileRead = txs.ReadLine
Exit_FileRead:
　　If Len(FileRead) = 0 Or isStop Then
　　　　isOpen = False
　　　　Set txs = Nothing
　　　　Set fil = Nothing
　　　　Set fso = Nothing
　　End If
　　Exit Function
Err_FileRead:
　　Resume Exit_FileRead
End Function

ただし、実際問題は、そんなに大量のデータを読み込んでも誰も見ないでしょう。
まあ、勉強ということではありかも知れませんが・・・。

お礼

ありがとうございます。
早速、ためしに作成しました。

とてもよい勉強になりました。

回答No.1

noname#48759

[シートの最大列数以上のデータ]というのは列IVを超える列数ということでしょうか？
でしたらEXCELで扱うことはできません。
シートを分ける等したほうが良いかと思います。

お礼

勉強として、色々試したくて、このような質問をしました。
確かに列が大量になる場合は、シートを分けた方がいいんですがね・・・

HUsky2007さんの回答で、こういう方法もあると知りました。

わざわざ、回答ありがとうございました。