<連番の付いた複数の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を探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA for i=1 to lastrow
-
UWSCの終了の仕方
-
再帰関数のインライン展開
-
画面を強制的に再描画させる方法
-
vb.netからエクセル関数書き込み
-
Escキーを押すと、中断する時と...
-
DOSコマンドのループ内のTIMEコ...
-
ループフリー
-
範囲指定したセルを1つずつ飛...
-
jQuery を使用した経過時間の表...
-
イベントの発生を待つ
-
For文を使った九九表の作成
-
データベースをEOFまでループさ...
-
フラグについて
-
DoEventsが必要な理由について
-
スリザーリンクの問題をランダ...
-
VBAでの一時停止と再開の方法
-
pinched-loopってどんな路線形態?
-
DoEventsを使用せずにDoLoopを...
-
アセンブラによるウェイト(WAIT...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
UWSCの終了の仕方
-
画面を強制的に再描画させる方法
-
VBAで3秒だけ時間を止めたい
-
Escキーを押すと、中断する時と...
-
DoEventsが必要な理由について
-
VBAでの一時停止と再開の方法
-
DOSコマンドのループ内のTIMEコ...
-
範囲指定したセルを1つずつ飛...
-
GIFアニメをループさせたくない
-
VBA for i=1 to lastrow
-
乱数の桁数指定、または範囲指定。
-
ループフリー
-
vb.netからエクセル関数書き込み
-
エクセル関数で1〜12の数字がル...
-
vbscriptでIE自動入力(途中で...
-
null 参照の例外が実行時に発生...
-
アクティブセルから、A列最終行...
-
Do whileでExitせず、ループの...
-
UWSCに制限時間を付けたいです
-
CSVファイルの特定の行だけを読...
おすすめ情報