Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


54578 / 76738 ←次へ | 前へ→

【26946】on error?
質問   E-MAIL  - 05/7/25(月) 11:01 -

引用なし
パスワード
   識者の皆様、

Workbooks("FRA OFF MKT RATES REPORT TOKYO" & Format(MYDAY, "YYYYMMDD") & ".XLS").Activate
ActiveWorkbook.ActiveSheet.Range("A1:IV1").Insert (xlDown)
ActiveWorkbook.ActiveSheet.Range("A1") = Format(MYDAY, "DD/MMM/YYYY")
ActiveWorkbook.ActiveSheet.PageSetup.PrintArea = "$A$1:$T$8"
With ActiveSheet.PageSetup
  .PrintTitleRows = ""
  .PrintTitleColumns = ""
End With
ActiveWorkbook.ActiveSheet.PageSetup.PrintArea = "$A$1:$T$10"
With ActiveSheet.PageSetup
  .LeftMargin = Application.InchesToPoints(0)
  .RightMargin = Application.InchesToPoints(0)
  .TopMargin = Application.InchesToPoints(0.984251968503937)
  .BottomMargin = Application.InchesToPoints(0)
  .HeaderMargin = Application.InchesToPoints(0)
  .FooterMargin = Application.InchesToPoints(0)
  .FitToPagesWide = 1
  .FitToPagesTall = 1
  End With
If ActiveWorkbook.ActiveSheet.Range("C3") <> "" Then
'ActiveWorkbook.ActiveSheet.PrintOut
End If

という一くくりを5回くらいレポート名を変えて繰り返したいのですが、もしFRA OFF MKT REPORT TOKYOがなかったら次の一くくりに移るという構文にしたいのですが、On error nextとやってみてもうまく動きません。お手数ですがどうやったらいいのか教えていただけますでしょうか?よろしくお願いします。

0 hits

【26946】on error? 05/7/25(月) 11:01 質問
【26947】Re:on error? 小僧 05/7/25(月) 11:23 回答
【26948】Re:on error? 05/7/25(月) 11:38 お礼

54578 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free