掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
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
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.