Excel VBA セルの値をファイル名にして保存するには

Excelマクロでセルに入力された月日を 「05月01日」というTextデータ、ファイル名にして保存しています。
Sub セル名で保存Text()
Application.Dialogs(xlDialogSaveAs).Show Arg1:=Range("A1").Text & "月" & Range("D1").Text & "日"
End Sub

上記を保存時マクロ無しでファイル保存するにはどのようにすればいいでしょうか。宜しく御願いします。

No.3 ベストアンサー 回答者： mygoonickname 回答日時： 2022/02/13 21:36

No.2の者です。

元のファイルの説明がなかったので、念のために確認になりますが、
Sub セル名で保存Text()などの、マクロの入ったファイルを、マクロなしで
保存したいという事でしょうか？
それとも、別のファイルになるのでしょうか？

Application.Dialogs(xlDialogSaveAs).Showだと、arg2に、12を指定する
とExcelブック(*.xlsx)になる様です。
但し、保存する方が、xlsmを選択するとマクロが入ったままになりますね。

https://okwave.jp/qa/q9501145.html

この回答へのお礼

回答有難う御座います。
arg2に、12を指定するで解決しました。
Sub セルText名でダイアログマクロ無し保存()
Application.Dialogs(xlDialogSaveAs).Show Arg1:=Range("A1").Text & "月" & Range("D1").Text & "日", arg2:=12
End Sub

お礼日時：2022/02/13 22:21

No.4 回答者： fujillin 回答日時： 2022/02/13 21:45

No1です

＞ちょっとピンと来ませんでした。
マクロから「名前を付けて保存」を行いたいってことではないのでしょうか？
違うのなら、以下およびNo1は無視してください。


＞1ファイルづつにはマクロ無し(.xlsx)で保存しようとしています。
No2様のご指摘にもありますが、.xlsx形式で保存すればマクロは削除されます。

一方で、ダイアログ入力からはユーザが自由にファイル名称や形式を指定できてしまいます。
補足でご説明の意図ならフォルダ選定のダイアログにしておく方がよさそうな気がしますけれど、SaveAsのダイアログを使うのなら、入力値をチェックして、名称や形式を再設定する必要がありそうに思われます。（実態が不明なので、よくわかりませんけれど・・）

また、マクロのあるブックをマクロ無しで保存する際には、警告表示がでますので、表示を止めておくのが良いでしょう。

この回答へのお礼

回答有難う御座います。
arg2に、12を指定するで解決しました。

お礼日時：2022/02/13 22:21

No.2 回答者： mygoonickname 回答日時： 2022/02/13 11:28

おはようございます。

ダイアログを表示するのは、保存先が決まっていないという事でしょうか？
もし、保存先が決まっているなら、名前を付けて保存で、xlsx形式で
保存すれば良いと思いますが。

ダイアログでしたら、保存形式をExcelブックとして保存すれば、マクロは
削除されると思います。

https://www.higashisalary.com/entry/macro-delete

この回答へのお礼

人に使ってもらうマクロファイルを作ろうとしています。
その為保存先が決まっていなくコマンドボタンクリックしたらダイアログを表示し好きなフォルダに保存してもらうようにしようと思います。
使用する人が形式を気にせずダイアログから保存出来ればと思います。

お礼日時：2022/02/13 21:09

No.1 回答者： fujillin 回答日時： 2022/02/13 11:24

こんにちは

ご質問の意味がよくわかりませんけれど、こういうことでしょうか？
https://docs.microsoft.com/ja-jp/office/vba/api/ …

この回答へのお礼

早速の回答有難う御座います。
リンクURL見させていただきましたがちょっとピンと来ませんでした。
原ファイル(.xlsm)を読取専用としそれに入力した毎回保存する1ファイルづつにはマクロ無し(.xlsx)で保存しようとしています。

お礼日時：2022/02/13 21:03