質問: nothing end sub ここで、「'←ここ」と示した行のrs.fields(idx).valueって、実際には「001」と書かれた値は、ダブルクォーテーションでも入ってない限りは「1」と変換されちゃいますよね?これをちゃんと、実際の値「001」のまま取得することって出来ないのでしょうか?
回答: このような場合は、adodb.streamを使うのが いいのでは、と思いますが。 たとえば、textファイルでも、csvファイルでも いいのですが、データが「""」でかこまれていない ファイルに、 1020,012,12,001 12,56,003,030 このようなデータが入っているとすると、 出力は、 1020 012 12 001 12 56 003 030 このようになればいいわけですね。以下のコードを 標準モジュールに貼り付け実行してみてください。 sub test1() dim ad as object dim strlist as string dim strsplit as variant dim i as long set ad = createobject("adodb.stream") 'このあたりの設定はwebで検索してください。 ad.type = 2 ad.charset = "shift-jis" ad.open ad.loadfromfile = ("c:\test.csv") do while not ad.eos '1行づつ読み込みます。 strlist = ad.readtext(-2) 'カンマのところで分割し、読み込みます。 strsplit = split(strlist, ",") '配列に読み込んだデータを吐き出します。 for i = lbound(strsplit) to ubound(strsplit) debug.print strsplit(i) next i '次の行に行きます。 loop 'オブジェクトを閉じ、破棄します。 ad.close: set ad = nothing end sub なお、 ad.loadfromfile = ("c:\test.csv") のところのパスは適当ですので、実際に合わせて変更してください。