エクセルマクロで保存をする際の質問

質問

エクセル2003をＸＰで使っています。

あるシートに入力をしたあと、セルＡ１(変数を"number"としています)に入力させたデータをファイル名にして特定のフォルダに保存させています。
具体的なことは下記の通りです。
ActiveWorkbook.SaveAs Filename:="C:\入力済みデータ\" & number & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.Close
ところが、C:\入力済みデータフォルダに同じ名前のファイルが存在していたとき、
"○○というデータがすでに存在します。置き換えますか？"と聞かれますよね。
そのときに"いいえ"を選択するとエラーになります。
"いいえ"を選択したとき、別名をつけられるようにするにはどうしたらいいでしょうか。
よろしくご教示ください。お願いいたします。

回答No.1

hana-hana3 · ベストアンサー

こんな感じでいかがですか？
（キャンセルの判別は不可能です。）

On Error Resume Next
ActiveWorkbook.SaveAs Filename:="C:\入力済みデータ\" & Number & ".xls"

Do While Err() = 1004
Number = InputBox("新しいファイル名を入れて下さい。")
ActiveWorkbook.SaveAs Filename:="C:\入力済みデータ\" & Number & ".xls"
Loop
On Error GoTo 0

ActiveWorkbook.Close

お礼

ありがとうございました。
大変参考になりました！！