エクセルＶＢＡについて

質問

エクセルＶＢＡの名前を付けて保存について質問です。

名前を付けて保存するとき、保存先に同じ名前のファイルがあると
「この場所に○○というファイルがありますが置き換えますか?」
と表示され「いいえ」もしくは「キャンセル」を選択すると実行時
エラーが表示されます。
キャンセルしてもエラーが出ないような構文を書きたいのですが
わかりません。
もし知っている方がいるようでしたら教えてください。

Dim MySavePath As String

MySavePath = Application.GetSaveAsFilename(Date, "Excel ファイル (*.xls), *.xls")
If MySavePath <> "False" Then
ThisWorkbook.SaveAs MySavePath & ".xls"
End If

回答No.1

n-jun · ベストアンサー

Dim MySavePath As String

MySavePath = Application.GetSaveAsFilename(Data, "Excel ファイル (*.xls), *.xls")
If MySavePath <> "False" Then
On Error Resume Next
ThisWorkbook.SaveAs MySavePath　' & ".xls" はいらないような
On Error GoTo 0
End If
こんな感じでしょうか。

お礼

回答ありがとうございました。
上記のとおり書いて見たらできました。
ありがとうございました。

回答No.2

pulsa

あとは
Application.DisplayAlerts = False
なんてのもあるね

通常はマクロ終了時に戻るけど、一応最後に「True」しておいた方が良いかも

お礼

回答ありがとございます。
Application.DisplayAlerts = False
を試してみました。
こういうやり方もあるんですね！とても参考になりました。