電子書籍の厳選無料作品が豊富!

エクセル2007です。

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

元のcsvファイルは、サンプル通り5項目(A列~E列)にしてみましたが
エラーになってしまいます。

なので、
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が返ってきました。

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

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

A 回答 (2件)

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



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

ありがとうございます。

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

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



可能です

>リンク先のサンプルコードのの
>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を実行すればエラーになるのは当然です
このサンプルは発生エラーの確認用のサンプル?
    • good
    • 0
この回答へのお礼

ありがとうございます。

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!