|
識者の皆様、
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とやってみてもうまく動きません。お手数ですがどうやったらいいのか教えていただけますでしょうか?よろしくお願いします。
|
|