エクセルVBAで 名前を付けて保存の方法、もしくは・・・

質問

エクセルVBAで名前を付けて保存は、
SaveAsを使って・・・というのは、解っているのですが、
これだと指定した名前しか、保存できないですよね；；
自分的には、エクセルの名前を付けて保存を押すと出てくる、画面を出したいのです。
それか、とあるセルに入っている数字を利用して保存の名前にしたいのですが、どなたかわかる方宜しくお願いいたします。
（本当は下のほうのやり方が良いんですけどね；；）

ActiveWorkbook.SaveAs FileName:= ("A1")"月分"

見たいな感じで　VBAを打てたら良いのにな・・・と思っています；；

宜しくお願いいたします。

回答No.2

papayuka · ベストアンサー

SaveAs に渡すファイルネームをフルパスにすれば良いだけです。

１．直接フルパスを指定

Sub Test1()
　ActiveWorkbook.SaveAs "D:\1月.xls"
End Sub

２．A1に「D:\1月.xls」と入っている場合

Sub Test2()
Dim fName
　fName = ActiveSheet.Range("A1")
　ActiveWorkbook.SaveAs fName
End Sub

３．A1に「1」と入っている場合

Sub Test3()
Dim fName
　fName = "D:\" & ActiveSheet.Range("A1") & "月.xls"
　ActiveWorkbook.SaveAs fName
End Sub

４．ファイル保存ダイアログ

Sub Test4()
Dim fName
　fName = Application.GetSaveAsFilename( _
　　　　　　fileFilter:="Excel(*.xls), *.xls")
　If fName <> False Then
　　　MsgBox "保存するファイル :" & fName
　　　ActiveWorkbook.SaveAs fName
　End If
End Sub

ブラウザ上で書いているのでスペルミス等はご容赦下さい。

お礼

いつもいつも、丁寧な回答ありがとうございます。
papayukaさんにはいつもお世話になりっぱなしです。
これだけ例題出していただけると、とても参考になります。
これを参考に色々やってみます。
ありがとうございました。

回答No.1

noname#240783

下記2行のどちらでも、セルA1に入った値をファイル名に出来ます。
' ActiveWorkbook.SaveAs Filename:=ActiveSheet.Cells(1, 1) & "月分"
ActiveWorkbook.SaveAs Filename:=ActiveSheet.Range("A1") & "月分"

但し、事前にセルA1に値が入っているか等々チェックのコードを
かませた方がいいかもしれませんね。

補足

うわ～　ありがとうございます!!
後これに引き続いてなんですが、ドライブの指定って言うのは出来るでしょうか?
Dドライブのとあるフォルダーに入れておきたいのです。
宜しくお願いいたします。