<連番の付いた複数のFileを順に呼び出すプログラム>
ForループでFileナンバーをインクリメントして行く方法で作成。
もしFileが存在しない場合、ラベルで警告して継続させたい。
この時、On Error GoTo をループ内で使って処理をしたのですが、
1回目は上手く行き、2回目がトラップできませんでした。何故??
Sub FileOpen()
Dim N As Variant
For N=1 To 100
On Error GoTo ErrorRtn:
Workbooks.OpenText Filename:= N & ".csv"
ErrorRtn:
MsgBox "Fileが有りません"
Next
End sub
No.2ベストアンサー
- 回答日時:
こんにちは。
maruru01です。On Errorステートメントで逃げるのではなく、先にファイルの存在チェックをするべきでは?
あと、Variant型を使用するのは極力控えましょう。
ループカウンタは整数に決まっているので、IntegerかLongを使用しましょう。
Sub FileOpen()
Dim N As Long
Dim ret As String
For N=1 To 100
ret = Dir(ファイルの保存パス & N & ".csv")
If Len(ret) = 0 Then
MsgBox N & ".csvファイルが有りません"
Else
Workbooks.OpenText Filename:= N & ".csv"
End If
Next
End sub
ありがとうございます。
このプログラム大変参考になりました!
ちなみに こういった処理で
On Error は あまり使わないのでしょうか?
No.3
- 回答日時:
Sub FileOpen()
Dim N As Variant
On Error GoTo ErrorRtn:
Workbooks.OpenText Filename:= N & ".csv"
ErrorRtn:
MsgBox "Fileが有りません"
Resume
End sub
Resumeキーワードを使えばループを使わなくても戻れます。
ただ、このままではずっとファイルが存在しない限り処理が進まないので、Resumeで戻る前に何かしらの判断をつけてあげればいいでしょう。
もしくは、どうしてもループで処理したいのであれば、On Error Resume Nextを使用し、エラーが発生する可能性のある処理を呼び出した後にエラー番号をチェックします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
範囲指定したセルを1つずつ飛...
-
画面を強制的に再描画させる方法
-
UWSCの終了の仕方
-
DoEventsが必要な理由について
-
ボタンが押された時にループか...
-
Escキーを押すと、中断する時と...
-
DOSコマンドのループ内のTIMEコ...
-
VBAでの一時停止と再開の方法
-
ループフリー
-
データベースをEOFまでループさ...
-
VBA Dir関数でファイルをループ...
-
流れ図(フローチャート)が分か...
-
レインボー色ってどうやって表...
-
c++ ランダムウォーク
-
ループからの抜け出し方
-
素数の個数を求めるプログラミング
-
アクティブセルから、A列最終行...
-
(C#)フォームのキャンセルで計...
-
ExcelVBA FindNextを使用して条...
-
CSVファイルの特定の行だけを読...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
画面を強制的に再描画させる方法
-
DoEventsが必要な理由について
-
UWSCの終了の仕方
-
Escキーを押すと、中断する時と...
-
VBA for i=1 to lastrow
-
vb.netからエクセル関数書き込み
-
GIFアニメをループさせたくない
-
VBAでの一時停止と再開の方法
-
「人を傷つけることは悪いこと...
-
VBAで3秒だけ時間を止めたい
-
DOSコマンドのループ内のTIMEコ...
-
アクティブセルから、A列最終行...
-
CSVファイルの特定の行だけを読...
-
範囲指定したセルを1つずつ飛...
-
ループフリー
-
VBA for文が止まらない
-
null 参照の例外が実行時に発生...
-
vbscriptでIE自動入力(途中で...
-
フラグについて
-
VBA Dir関数でファイルをループ...
おすすめ情報