Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9509 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 お礼[未読]
【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とやってみてもうまく動きません。お手数ですがどうやったらいいのか教えていただけますでしょうか？よろしくお願いします。
【26947】Re:on error?
回答  小僧  - 05/7/25(月) 11:23 -
引用なし
パスワード
   ▼や さん：
こんにちは。

On Error Resume Next

と宣言して、

>Workbooks("FRA OFF MKT RATES REPORT TOKYO" & _
>　　　　　　　　 Format(MYDAY, "YYYYMMDD") & ".XLS").Activate

の次で

　　If Err.Number = 0 Then

とエラートラップするか、

>Workbooks("FRA OFF MKT RATES REPORT TOKYO" & _
>　　　　　　　　 Format(MYDAY, "YYYYMMDD") & ".XLS").Activate

の前に Excel ファイルの存在を判断させるコードを組むか
どちらかで行けると思われますがいかがでしょうか。
【26948】Re:on error?
お礼  や E-MAIL  - 05/7/25(月) 11:38 -
引用なし
パスワード
   うまく動いてくれました。
どうもありがとうございます。

▼小僧 さん：
>▼や さん：
>こんにちは。
>
>On Error Resume Next
>
>と宣言して、
>
>>Workbooks("FRA OFF MKT RATES REPORT TOKYO" & _
>>　　　　　　　　 Format(MYDAY, "YYYYMMDD") & ".XLS").Activate
>
>の次で
>
>　　If Err.Number = 0 Then
>
>とエラートラップするか、
>
>>Workbooks("FRA OFF MKT RATES REPORT TOKYO" & _
>>　　　　　　　　 Format(MYDAY, "YYYYMMDD") & ".XLS").Activate
>
>の前に Excel ファイルの存在を判断させるコードを組むか
>どちらかで行けると思われますがいかがでしょうか。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9509 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free