エラー回避 | |
---|---|
[195971] エラー回避- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ Green -(2023/10/11(18:37)) □U R L/ 宜しくお願いします。 エラーについて教えてください。 例えば、下記のコードがあります。 りんごのファイルがない、エラーのときは MsgBox "ファイルがありません" が表示されますが、 ファイルがあるときも、MsgBox が開きます。 ファイルがあるときは、MsgBox が開かないようにできますか? Sub sample() Dim i As Integer On Error GoTo errorhndler Workbooks.Open Filename:=ファイルパス\りんご.xlsx errorhndler: MsgBox "エラー内容:" & Err.Description End Sub この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 |
[195972] Re[1]: エラー回避- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2023/10/11(18:55)) □U R L/ 普通は、行き過ぎない様に直前で、Exit Sub としますけども。 Sub sample() Dim i As Integer On Error GoTo errorhndler Workbooks.Open Filename:=ファイルパス\りんご.xlsx on Error goto 0 Exit sub errorhndler: MsgBox "エラー内容:" & Err.Description End Sub |
[195973] Re[2]: エラー回避- ■記事引用/メール受信=OFF■ □投稿者/ Green -(2023/10/12(00:08)) □U R L/ 半平太さん ありがとうございます。2つの判定をするときはどうしたら良いのでしょうか。 だんだんと分からなくなってきてしまっています。 C:\Users\りんご1.xlsx このファイルはある C:\Users\りんご2.xlsx このファイルはある C:\Users\りんご.xlsx このファイルはない パターン1 下記のコード エラーを出したくない @りんご1.xlsx Aりんご2.xlsx パターン2 @の後にエラーを出して Exit Sub @りんご.xlsx Aりんご2.xlsx パターン3 Aの後にエラーを出して Exit Sub @りんご1.xlsx Aりんご.xlsx 宜しくお願いします。 −−エラーは出さない−−−−− Sub sample13() On Error Resume Next ' エラー発生時に次のコードに進む Workbooks.Open fileName:="C:\Users\りんご1.xlsx" '---@ On Error GoTo 0 ' エラーハンドリングを元に戻す MsgBox "1ファイルがみつからない" Exit Sub On Error Resume Next ' エラー発生時に次のコードに進む Workbooks.Open fileName:="C:\Users\りんご2.xlsx" '---A On Error GoTo 0 ' エラーハンドリングを元に戻す MsgBox "2ファイルがありません" Exit Sub errorhndler: MsgBox "3ファイルがない:" & Err.Description End Sub −−−−−−− この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 |
[195974] (削除)- ■記事引用/メール受信=OFF■ □投稿者/ / -(2023/10/12(06:09)) □U R L/ この記事は削除されました |
[195975] (削除)- ■記事引用/メール受信=OFF■ □投稿者/ / -(2023/10/12(09:30)) □U R L/ この記事は削除されました |
このトピックに書きこむ |
---|