![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
エクセル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で書き出す事は不可能なのか教えてください。
No.2ベストアンサー
- 回答日時:
コチラを参考にすべき、、、
カンマ数不定のCSVファイル読み込み
http://www.asahi-net.or.jp/~ef2o-inue/download/s …
レコードによってカンマ数が一定していないCSV形式テキストファイルの読み込み処理です。ダブルクォーテーションに囲われた中での改行(項目内改行)についても対応しています。
No.1
- 回答日時:
>日本語が入ってる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を実行すればエラーになるのは当然です
このサンプルは発生エラーの確認用のサンプル?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのVBAについて とあるサイトのコードを参考に、CSVの文字化けを直すVBAを作成しているの 7 2022/11/04 14:15
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) フォルダの場所を可変にしたいです(マクロ) 4 2023/05/11 10:00
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) Excel-VBAでのファイルの開き方 4 2023/02/14 11:01
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Excel(エクセル) マクロでテキストファイルを読み込んだ際の最終セルにデータと改行が含まれる問題の改善方法 2 2022/03/25 16:50
- Android VBA、フォルダのパスに環境文字 ㉑ があり、VBAが機能しません。 2 2022/07/27 09:16
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:48
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ACCESS VBAでのインポート
-
アクセスでイベントのロジック...
-
VBでファイルが開かれているか...
-
batファイルでレジストリキーの...
-
「パス名が無効です」の発生原因
-
Returnに対するGoSubがありません
-
「複数の選択範囲に対して実行...
-
エクセルマクロでエラーの原因...
-
エラー:インクルードファイル ...
-
VBから参照できないCのDLLを使...
-
FTPの送信結果を検知したい
-
EXCELのVBAでの保存方法
-
ワークブックに名前をつけて保...
-
VB:「実行時エラー53 実行ファ...
-
PowerShellを使って関連付けら...
-
fgets関数のEOFの扱い方について
-
Excelファイルのマクロによる排...
-
VB6 Dir関数で52エラー発生
-
access テキストボックスの値取得
-
fileのリスト作成のマクロ
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBでファイルが開かれているか...
-
batファイルでレジストリキーの...
-
Returnに対するGoSubがありません
-
VBから参照できないCのDLLを使...
-
「パス名が無効です」の発生原因
-
access テキストボックスの値取得
-
アクセスのクエリでコンパイル...
-
PowerShellを使って関連付けら...
-
freadでデータがない場合の読込...
-
【COBOL】read文でエラー
-
gccを行ってもexeファイルが生...
-
ファイルクローズ(fclose)でエ...
-
VB6 Dir関数で52エラー発生
-
ACCESS VBAでのインポート
-
NAS上のファイルの使用中が解除...
-
FTPの送信結果を検知したい
-
エクセルマクロでエラーの原因...
-
Access2013にてドラッグ&ドロ...
-
EXCELのVBAでWORDが開いてある...
-
fcloseで発生するエラーについて。
おすすめ情報