保存するファイル名が既存の場合に再入力できるようにするには?

Question 84.5 Excel VBA Borad (掲示板)より Previous Next
加工した後のファイルを名前を付けて保存したいのですが、同名のファイルが存在するとき 「同じファイル名が既にあります。置き換えますか」 というメッセージが出て、「いいえ」を選ぶとエラーとなってしまいます。(当然ですが)
このとき再度ファイル名を入れ直せるように、ファイル名の入力に戻りたいのですが、どうすればよいのでしょうか。
良い方法を教えてください。
    ファイル名 = InputBox("ファイル名入力", "保存先")
    ファイル名 = パス & ファイル名 & ".xls"
    ActiveWorkbook.SaveAs Filename:=ファイル名
Answer   2001.7.17 うな
とりあえず、「キャンセル」(エラー)の場合、保存ダイアログを表示して、再度保存するサンプルです。(^-^)
Sub test()
    Dim strFileName As String

    On Error Resume Next
    ActiveWorkbook.SaveAs "保存ファイル名"
    If Err.Number <> 0 Then
        ' エラーの場合、Saveダイアログ表示
        strFileName = Application.GetSaveAsFilename _
            (fileFilter:="Excel (*.xls), *.xls")
        If strFileName <> False Then
            ' 再度、保存処理
            ActiveWorkbook.SaveAs strFileName
        End If
    End If
    On Error GoTo 0

End Sub

 

Excel VBA Macro