Excel VBA質問箱 IV

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

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


71922 / 76738 ←次へ | 前へ→

【9307】Re:保存先&キャンセル時のエラー
回答  こうちゃん E-MAIL  - 03/11/27(木) 18:39 -

引用なし
パスワード
   テーブルさん、こんにちは
りんさんがまだご覧になっていないようなので・・

>下記のエラー処理をしたのですが、「キャンセル」後の「F」と言うファイルが作成されるのは、変わらなかったです。何か間違いがありますかね・・・・
>
>rFile = Application.GetOpenFilename
>'同じ名前で拡張子を変更
>sFile = Left(rFile, Len(rFile) - 4) & ".xls"
>  On Error Resume Next    'エラーが発生しても処理を続行する
>   ActiveWorkbook.SaveAs Filename:=sFile, FileFormat:=xlNormal, CreateBackup:=False
>  On Error GoTo 0       'エラー処理ルーチンを無効にする

この場合エラーは発生していませんので、上記は無効です。
またもしエラーの場合でもエラーを無視してActiveWorkbook.SaveAs を実行しますから結果はおなじことになります。

りんさんが例示したURLでは GetOpenFilename がキャンセルされた場合にFalseがもどるので、それを使用して分岐する例です。
テーブルさんの最初のコードでいえば・・

>rFile = Application.GetOpenFilename

If Not rFile Then
  Exit Sub
End If

>sFile = Left(rFile, Len(rFile) - 4) & ".xls"
>ActiveWorkbook.SaveAs Filename:=sFile, _

こんな感じでrFileを判定します。
(rFile = False の方がわかりやすいかな)

りんさん、横レスごめんなさい。   

0 hits

【9286】保存先&キャンセル時のエラー テーブル 03/11/26(水) 21:24 質問
【9293】Re:保存先&キャンセル時のエラー りん 03/11/27(木) 7:45 発言
【9303】Re:保存先&キャンセル時のエラー テーブル 03/11/27(木) 16:01 質問
【9306】Re:保存先&キャンセル時のエラー テーブル 03/11/27(木) 18:02 質問
【9307】Re:保存先&キャンセル時のエラー こうちゃん 03/11/27(木) 18:39 回答
【9308】Re:保存先&キャンセル時のエラー テーブル 03/11/27(木) 18:58 お礼

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