ｃｓｖファイルをｖｂａで読み込みたいけど文字化け

エクセル２００７です。

http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub0 …
を参考にｃｓｖファイルをシートに書きだそうとしてるのですが、
リンク先のサンプルコードのの
Input #intFF, X(1), X(2), X(3), X(4), X(5)
の部分で、
ファイルにこれ以上データがありません。(Error 62)
と言うエラーになってしまいます。

元のｃｓｖファイルは、サンプル通り５項目（Ａ列～Ｅ列）にしてみましたが
エラーになってしまいます。

なので、
http://officetanaka.net/excel/vba/error/executio …
を参考に、

Sub Sample1()
Dim buf As String
Open "C:\Users\test\Downloads\test.csv" For Input As #1
Do Until EOF(1)
Line Input #1, buf
Loop
Line Input #1, buf
Close #1
End Sub

としてみたところ、やっぱり同じエラーになって、
?bufをしたら、
ヨS_蘰 gqが返ってきました。

文字化けしてるようですが、フィールド（１行目）に日本語が入っていますが
それが原因なのでしょうか？

日本語が入ってるｃｓｖファイルをｖｂａで書き出す事は不可能なのか教えてください。

No.2 ベストアンサー 回答者： JazzCorp 回答日時： 2013/01/03 00:31

コチラを参考にすべき、、、

カンマ数不定のCSVファイル読み込み
http://www.asahi-net.or.jp/~ef2o-inue/download/s …
レコードによってカンマ数が一定していないCSV形式テキストファイルの読み込み処理です。ダブルクォーテーションに囲われた中での改行(項目内改行)についても対応しています。

この回答へのお礼

ありがとうございます。

お礼日時：2013/01/11 20:23

No.1 回答者： web2525 回答日時： 2013/01/02 22:49

>日本語が入ってるｃｓｖファイルをｖｂａで書き出す事は不可能なのか教えてください

可能です

>リンク先のサンプルコードのの
>Input #intFF, X(1), X(2), X(3), X(4), X(5)
>の部分で、
>ファイルにこれ以上データがありません。(Error 62)
>と言うエラーになってしまいます

リンク先のサンプルは正常動作しています
データ数が足りていないだけだと思います


もう一つのサンプルですが

Do Until EOF(1)
Line Input #1, buf
Loop
Line Input #1, buf
Close #1

Do～Loop間ですべてのデータ取り込みは終了しているので、その後のLine Input #1, bufを実行すればエラーになるのは当然です
このサンプルは発生エラーの確認用のサンプル？

この回答へのお礼

ありがとうございます。

お礼日時：2013/01/11 20:23