こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

Excel 名前を付けて保存のVBA

名前を付けて保存画面を表示して、自分でファイル名を入力して保存をしたいのですが、
以下で名前を付けて保存画面は表示されますが、
実際に保存をクリックしてもファイルが作成されませんでした。

保存されるVBAを教えてください。

Sub test()
Save_Filename = "c:\"
Save_File = Application.GetSaveAsFilename(Save_Filename, _
FileFilter:="Excelファイル,*.xls")
End Sub

投稿日時 - 2012-06-28 15:39:38

QNo.7560028

暇なときに回答ください

質問者が選んだベストアンサー

保存する命令がないです。
上記ではダイアログだけだして、終わっているため、保存できないのだと思います。

ActiveWorkbook.SaveAs Filename:= Save_File

という保存命令の一文を

Save_File = Application.GetSaveAsFilename(Save_Filename, _
FileFilter:="Excelファイル,*.xls")

の後に付加えてみたらどうでしょうか?

投稿日時 - 2012-06-28 15:59:20

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.1

そりゃそうですよ。
ファイル名を取得しただけですので、例えば、以下の様なコードを追記して下さい。

If Save_File <> "False" Then
ActiveWorkbook.SaveAs filename:=Save_File
End If

投稿日時 - 2012-06-28 15:58:28

あなたにオススメの質問