CSVファイルを一文字ずつ読み込む（VBA） (ID:143084)

名前

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

本文 自前で実装するのは結構きついので、ADO を使ってみては？ ※ E:\TEMP\HOGE.CSV を読み込むものとします。 Dim con As Object Dim rec As Object Dim f As Object Set con = CreateObject("ADODB.Connection") With con .Provider = "Microsoft.Jet.OLEDB.4.0" .Properties("Extended Properties") = "text;HDR=No;FMT=Delimited;" .Open "E:\TEMP" End With Set rec = CreateObject("ADODB.Recordset") rec.Open "SELECT * FROM HOGE.CSV", con Do Until rec.EOF For Each f In rec.Fields Debug.Print f.Value Next Debug.Print rec.MoveNext Loop rec.Close con.Close Set rec = Nothing Set con = Nothing この方法のいいところは、「,」や、「"」が混じっていてもきちんと読み込めることです。 例) 左がCSV上、右がフィールド値になります。 "1,234" → 1,234 "a""b""c" → a"b"c