Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

36300 / 76732

←次へ　｜　前へ→


	【45615】Re:Do Until で2回

Kein - 07/1/6(土) 23:53 -


	引用なし

	パスワード

EOF関数が True を返すまでループする。というコードは、
開いたテキストのファイルポインタがファイルの末尾にあるかどうか ?
を調べて、全てのデータを漏れなく読み込む目的で作るわけですから、
先頭から任意の行数だけ読みたい場合は、EOF関数を使わずFor ～ Next 構文に
変更してしまう方が適当です。ま、２行だけ読みたいという事ならループ自体が
必要ないでしょう。単純に

Line Input #1, buf
Sheets("ファイル名処理１").Range("A1").Value = buf
Line Input #1, buf
Sheets("ファイル名処理２").Range("A1").Value = buf
Close #1

などと並べて書けばいいのです。
(私も質問の意味が正確にわからないので、見当違いのレスならご容赦下さい。)

0 hits

▼

【45612】Do Until で2回 Chara 07/1/6(土) 22:01