jun********

2022/5/14 17:50

22回答

Excel VBA で以下のElse時のループを指定した回数（例えば10回）で処理できなければエラーコメントを出してスキップさせたいです。 どのようにコードを書けばよいでしょうか？

Excel VBA で以下のElse時のループを指定した回数（例えば10回）で処理できなければエラーコメントを出してスキップさせたいです。 どのようにコードを書けばよいでしょうか？ どなたかご教示をお願いします。 testcsvDL: If Dir(CsvDlFolder + "\work.csv") <> "" Then Workbooks.Open CsvDlFolder + "\work.csv" Else Sleep 5000 GoTo testcsvDL: End If

Visual Basic | Excel・50閲覧・xmlns="http://www.w3.org/2000/svg">25

ベストアンサー

0
ggrks

カテゴリマスター

2022/5/14 18:24

testcsvDL: Dim カウンター As Long If Dir(CsvDlFolder + "\work.csv") <> "" Then Workbooks.Open CsvDlFolder + "\work.csv" Else Sleep 5000 カウンター = カウンター + 1 If カウンター > 10 Then MsgBox "エラーメッセージ" Else GoTo testcsvDL End If End If

ThanksImg質問者からのお礼コメント

ありがとうございます。こちらのコードで使わせていただきます。 また何かありましたらぜひよろしくお願いいたします。

お礼日時：5/16 9:43

その他の回答（1件）

0
tac********

2022/5/14 18:33

下記でいけると思います。 Dim i As Integer i = 0 Do Until i = 10 If Dir(CsvDlFolder + "\work.csv") <> "" Then Workbooks.Open CsvDlFolder + "\work.csv" i = 10 Else Sleep 5000 i = i + 1 If i = 10 Then MsgBox "処理に失敗しました" End If End If Loop