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

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

ベストアンサー

0

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

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

お礼日時:5/16 9:43

その他の回答(1件)

0

下記でいけると思います。 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