VBA ダイアログボックスからファイルの保存

質問

VBAでプログラムを書いているのですが、ファイルをダイアログボックスを表示させ名前を付けてファイルを保存したいです。
その際に、もしすでに同じファイル名があったら保存させないように、メッセージなどを表示させ、必ず違う名前で保存するような処理にしたいのですが・・・。
方法を教えてください。
よろしくお願いします。

回答No.2

redfox63

何処まで自動化するかを明確にしましょう

上書きをさせたくないのであれば 別名をどのように生成するのかをはっきりさせましょう

たとえば
Bookといった接頭語と連番といった具合で作るとか

これだと Dir関数などで現在のカレントフォルダ内を検索して何番まで使っているのかなどを調べる必要があります

回答No.1

imogasi

Sub test04()
'処理を書く
Application.Dialogs(xlDialogSaveAs).Show
End Sub
たた１行でよいはず。
エクセルシステムに乗っかるような使い方です。
このほか
http://www.excel7.com/personal/vba_shiryou1.htm
「application.dialogs」でググれば、何万も記事があるそうな。
＞同じファイル名があったら保存させないように、・・
は通常エクセルを使っているときと同じです。警告も出ます。
上記ダイアログの応答で操作として、ファイル名を指定したら、プログラム作成者側で、ファイル保存のメソッドを書く必要はありません。注意。