CSVファイルを行単位で読み込むには？ (ID:123838)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ADODB.Streamオブジェクトを使って読み込むとか。 これなら、LF改行のデータを行単位で読み込めますし。 With CreateObject("ADODB.Stream") .Charset = "Shift_JIS" .LineSeparator = 10 'CR=13, LF=10, CRLF=-1 .Open .LoadFromFile "C:\a.txt" Do Until .EOS '-2=行単位読み込み '-1=一括読み込み '自然数=文字単位読み込み MsgBox .ReadText(-2) Loop .Close End With