ExcelのＶＢＡで上書き保存を確認したい

VBAでGetSaveAsFilename メソッドを使うと、[名前を付けて保存]ダイアログボックスがでます。
ここでファイル名を指定するのですが、このとき同フォルダ内に同ファイル名があった場合でも、何のメッセージボックスもださずに上書きされてしまいます。

同フォルダ内に同ファイル名があった場合のみ、「上書き保存しますか？」というメッセージボックスをだしたいのですが、どのようにしたらよいでしょうか。

教えてください。
よろしくお願いします。

No.2 回答者： imogasi 回答日時： 2007/10/27 19:35

ファイル名があるか、について参考コード

Sub test01()
filesavename = Application.GetSaveAsFilename( _
fileFilter:="エクセル ファイル (*.xls), *.xls")
If filesavename <> False Then
MsgBox "保存するファイル :" & filesavename
End If
Set objfs = CreateObject("Scripting.FileSystemobject")
If objfs.fileexists(filesavename) Then
MsgBox filesavename & "存在します"
Else
MsgBox filesavename & "存在しましません"
End If
End Sub
ーー
ただこういうのは必要無いのでは。
チェックしなくても指定ファイル名が既存であると、警告メッセージが出ませんか。

この回答へのお礼

回答ありがとうございます。

お礼日時：2007/10/27 22:58

No.1 回答者： popesyu 回答日時： 2007/10/27 00:11

GetSaveAsFilename メソッドはSaveする機能はありませんよ？　あくまでも保存先を選んでくださいというダイアログを表示させて、ファイルのパスを返すだけです（メゾットの名称も日本語訳すれば「保存するためのファイル名を取得する」でしょ？）。

実際にはその後にSaveAsメゾットで保存させるでしょうから、その際にアラートを出さないというような指定をしなければ通常は警告がでるはずですが。

具体的なソースを提示されてみては如何でしょうか。

この回答へのお礼

回答ありがとうございます。

お礼日時：2007/10/27 22:56