Ｐａｇｅ 139 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼SaveAsについて ゼロ 02/9/27(金) 0:49 ┗Re:SaveAsについて つん 02/9/27(金) 10:13 ┗Re:SaveAsについて ぴかる 02/9/27(金) 12:32 ┗Re:SaveAsについて ゼロ 02/9/27(金) 22:17 ─────────────────────────────────────── ■題名 ： SaveAsについて ■名前 ： ゼロ ■日付 ： 02/9/27(金) 0:49 -------------------------------------------------------------------------
| こんばんは。 ユーザからセーブするファイル名を入力させて、セーブさせるようにしているのですが、同じファイル名があった場合、メッセージ「この場所に"ファイル名"という名前のファイルが既にあります。置き換えますか？」がでて、いいえかキャンセルを選択すると、デバックがはしりマクロが止まってしまいます。この場合はどう対策すれば良いのでしょうか？宜しくお願いします。 ActiveWorkbook.SaveAs FileName:=work_str,FileFormat:=xlText,CreateBackup:=False |
| ゼロ さん、おはようございます。 >こんばんは。 >ユーザからセーブするファイル名を入力させて、セーブさせるようにしているのですが、同じファイル名があった場合、メッセージ「この場所に"ファイル名"という名前のファイルが既にあります。置き換えますか？」がでて、いいえかキャンセルを選択すると、デバックがはしりマクロが止まってしまいます。この場合はどう対策すれば良いのでしょうか？宜しくお願いします。 ファイル名を入力してもらった直後に、調べたらどうですか？ こんな感じ・・・ If Dir(work_str) <> "" Then MsgBox "そのファイル名は既に存在しています" Exit Sub End If ActiveWorkbook.SaveAs Filename:=work_str, FileFormat:=xlText, CreateBackup |
| ゼロさん、つんさん、こんにちは。 こんなやり方もあるかな？。エラーが出ても無視します。 On Error Resume Next 'エラーが発生しても処理を続行する ActiveWorkbook.SaveAs Filename:=work_str, FileFormat:=xlText, CreateBackup:=False On Error GoTo 0 'エラー処理ルーチンを無効にする |
| つんさん、ぴかるさん、こんばんは。 教えていただいた手法を早速使ってみます。 ありがとうございました。 |