□ 戻る　 □一般操作のサロン　 □ 使用方法　 □ 新着記事 　□ 新規に質問する！　 □ トピック一覧　 □ 検索 　□ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
このトピック参照回数 :
エラー回避

    [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


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



    [195973] Re[2]: エラー回避-

    ■記事引用/メール受信=OFF■

    □投稿者/ Green -(2023/10/12(00:08))
    □U R L/ 
      半平太さん　ありがとうございます。


      ２つの判定をするときはどうしたら良いのでしょうか。
だんだんと分からなくなってきてしまっています。

C:\Users\りんご1.xlsx　このファイルはある
C:\Users\りんご2.xlsx　このファイルはある
C:\Users\りんご.xlsx　　このファイルはない

パターン１　下記のコード エラーを出したくない
①りんご1.xlsx　②りんご2.xlsx

パターン2　①の後にエラーを出して　Exit Sub
①りんご.xlsx　②りんご2.xlsx

パターン3　②の後にエラーを出して　Exit Sub
①りんご1.xlsx　②りんご.xlsx

宜しくお願いします。


－－エラーは出さない－－－－－
Sub sample13()
    On Error Resume Next ' エラー発生時に次のコードに進む
    
    Workbooks.Open fileName:="C:\Users\りんご1.xlsx"　'---①
    
    On Error GoTo 0 ' エラーハンドリングを元に戻す
    MsgBox "１ファイルがみつからない"
    Exit Sub

    On Error Resume Next ' エラー発生時に次のコードに進む
    
    Workbooks.Open fileName:="C:\Users\りんご2.xlsx"　'---②
    
    On Error GoTo 0 ' エラーハンドリングを元に戻す
    MsgBox "２ファイルがありません"
    Exit Sub

errorhndler:
    MsgBox "3ファイルがない:" & Err.Description
End Sub
－－－－－－－


      この記事にはVBAのコードが含まれています。

      <FONT COLOR='green'>緑の太文字→注釈
      <FONT COLOR='brown'>茶色の太文字→条件分岐
      <FONT COLOR='red'>赤の太文字→ループ
      <FONT COLOR='BLUE'>青の太文字→その他


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



    [195974] （削除）-

    ■記事引用/メール受信=OFF■

    □投稿者/ / -(2023/10/12(06:09))
    □U R L/

      この記事は削除されました



    [195975] （削除）-

    ■記事引用/メール受信=OFF■

    □投稿者/ / -(2023/10/12(09:30))
    □U R L/

      この記事は削除されました



このトピック内容の全ページ数 / [0]

このトピックに書きこむ
Name/
E-Mail/

└>このツリーのレス記事をメールで受信しますか? YES/ NO/
Title/
URL/
Comment/ 通常モード->　 図表モード-> (←の場合適当に改行を入れて下さい)
タグが使用できます。例 ⇒ <font color="blue">文字</font>
解決！！ありがとうございました！ 解決       保留中です・・・ 保留        迷宮入りorほかあたって見ます・・ 迷宮入       すいませ～ん。誰か～！ Help! ←※回答者専用
解決したらチェック       保留(コードテスト中など・・)         解決不可orレスが全く付かなくてほかのサイトに行くときなど・・
削除キー/
(半角8文字以内)　

- Child Forum -
Edit:ゆう-Ｇ