VBAでCSVファイルを途中行まで読んだ後で最初の行から読み直す方法を探しています。
【例】aaa.csvというファイルに5行分のデータが入っている。
これを3行目まで読んだ後で、また1行目から読みたい。
【処理対象ファイル】
ファイル名:aaa.csv
ファイルの中身:5行
1,1,1,1
2,2,2,2
3,3,3,3
4,4,4,4
5,5,5,5
【読み込み順イメージ】
1,1,1,1
2,2,2,2
3,3,3,3
1,1,1,1 ←aaa.csvの1行目から読み直し。
2,2,2,2
3,3,3,3
4,4,4,4
5,5,5,5
現在は処理が思いつかなかったので、読みたいファイルを一度閉じてまた開いてという下記のような無駄な動作にしてしまっています。
for xxx=0 to zzz
open #ファイル番号
Do Until EOF(1)
Line Input #1, 変数
1度目に3行目が来たら抜ける
Loop
close #ファイル番号
next xxx
しかし、使用するファイルは数十MB~数百MB、Open/Closeも数千は軽く行うので、さすがにこれでは処理が遅すぎてどうにもならなくて困っています。
どなたか良いお知恵をお貸しください。
No.4
- 回答日時:
「照らし合わせつつ処理」の内容にもよりますが他の手段があります。
aaa.csvの番号とbbb.csvの番号が同じものを取り出す
というものなら、予め番号でソートしておくことで、両方のファイルを先頭から順番に読むだけで照合することができます。
例) aaaの先頭が 2 、bbbの先頭が 5 なら、 bbbには 5より小さい番号は無いので、2がbbbにあるかを調べる必要はありません。
読み進めても、 aaa=2へ戻る必要はありません。
許されるなら、CSVをSQLServer等の大量のデータに耐えられるデータベースに取り込んで、
JOIN で結合したりして、必要なデータだけ抽出してCSVへ。
そのCSVをExcelで処理、とするのがいいように思います。
回答ありがとうございます。
ソートをしておく、というのも一つの手なんですね。
勉強になります。
大容量すぎた場合はSQLServerをかませる方法もあるということも、頭に入れておきます。
ありがとうございました。
No.1
- 回答日時:
全部とりあえず読み込んだ後に3行をコピー&挿入したらダメですか?
回答ありがとうございます。
挿入したい、というわけではなくデータを確認したいのです。
処理を簡略化して書いてしまったのが原因でわかりにくくなってしまい申し訳ございません。
実際はもうひとつファイル(bbb.csv)があり、そのもうひとつのファイルを1行ずつまわしてaaa.csvと照らし合わせつつ処理をする形を取っています。
bbb.csvを1行読んで、それに対するaaa.csvの対象行が見つかったらbbb.csvを一行進めてaaa.csvをまた最初から読み込みたいという状態です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのVBAについて とあるサイトのコードを参考に、CSVの文字化けを直すVBAを作成しているの 7 2022/11/04 14:15
- Excel(エクセル) マクロでテキストファイルを読み込んだ際の最終セルにデータと改行が含まれる問題の改善方法 2 2022/03/25 16:50
- Visual Basic(VBA) VBAで特定の場所にあるCSVファイル(複数)から特定場所を抜き出してExcelに転記したいです。 11 2023/05/23 16:29
- その他(プログラミング・Web制作) Pythonで、データファイルと列名ファイルを1つのファイルにしたいです。 1 2023/07/27 20:29
- Access(アクセス) access,vbaでフォルダ内のファイルをテーブルにインポート、ファイル名もフィールドに追加したい 1 2022/08/31 11:11
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- その他(プログラミング・Web制作) Windowsのバッチファイルについてご教示ください 5 2023/07/25 20:23
- その他(プログラミング・Web制作) データ解析ソフトRでのファイル入力read.csvがエラーになります 7 2022/03/27 22:11
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- XML PHP.laravelについて 1 2023/07/06 15:26
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
【VBA】テキストファイルを指定行数からの読み込み
Visual Basic(VBA)
-
VBAでCSVファイルが使用中かどうかの確認
Visual Basic(VBA)
-
ReadLineでの読み出し行を指定する
Visual Basic(VBA)
-
-
4
テキストファイルの途中行から読み込む方法について
Visual Basic(VBA)
-
5
Excel.VBA テキストファイルを指定行数からの読み込む
Excel(エクセル)
-
6
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
7
VBA 変数名に変数を使用したい。
Visual Basic(VBA)
-
8
VBでのテキストファイルへ参照の際の指定行への移動
Visual Basic(VBA)
-
9
csvファイル 項目数取得
Visual Basic(VBA)
-
10
VBA 1次元配列を2次元に追加する
Visual Basic(VBA)
-
11
ListViewで複数選択された項目を一度に削除する方法
Visual Basic(VBA)
-
12
format関数について
Visual Basic(VBA)
-
13
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
14
複数選択のListBoxでClickイベントが拾えません
Visual Basic(VBA)
-
15
Integer変数をカラにしたいのですが
Visual Basic(VBA)
-
16
split関数で区切り文字がない場合
Visual Basic(VBA)
-
17
実行時エラー -2147217900 ADODBでレコードセットオープン時エラー
Access(アクセス)
-
18
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
19
【ExcelVBA】マクロの入ったシートをコピーしても新しいシート内でマクロを動作させるには?
Excel(エクセル)
-
20
Excel vbaで別ブックのコマンドボタンをクリック
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAでCSVファイルを途中行まで...
-
VBAでCSVファイルの特定行を書...
-
openした後、closeしないでプロ...
-
JavaでCSVファイルを高速に読む...
-
__DATA__の意味
-
vNoteのBODY部の取得(長めです)
-
MATLABでのwhile文の条件について
-
VB6.0でDB接続する際に切断時の...
-
CSVが可変長の場合の検索方法
-
拡張子 ”log” と ” dat” の違い
-
ExcelをCSV書き出す場合のシー...
-
プログラミング(流れ図とコー...
-
バッチファイルの作り方(CSV→...
-
close()で例外が投げられる理由
-
batファイルでrenameができませ...
-
VBAコードを張り付け後のエクセ...
-
ListBoxのデータを高速でファイ...
-
至急お願いします。C言語で.img...
-
タブの色を変更する方法
-
vba dir の相対パス
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAでCSVファイルの特定行を書...
-
ExcelをCSV書き出す場合のシー...
-
openした後、closeしないでプロ...
-
VBAでCSVファイルを途中行まで...
-
VBAで巨大なファイルの途中から...
-
ReadLineでの読み出し行を指定する
-
JavaでCSVファイルを高速に読む...
-
MATLAB グローバル変数の宣言
-
エクセルVBA コードが同じでも...
-
Perlの変数に文字数制限(容量...
-
perlで、後ろの行を読んで、前...
-
C言語でのファイルのデータ更...
-
2つのCSVファイルをマッチング
-
VB6.0でDB接続する際に切断時の...
-
CSVが可変長の場合の検索方法
-
perlで容量の大きいCSVファイル...
-
1ファイルずつ読み込みたい
-
VBScriptでファイル保存先のデ...
-
perl で googleAPIを呼び出す...
-
C#でCSVファイルを逐一更新したい
おすすめ情報