メッセージボックス内で入力した文字をファイル名にしたい

質問

Sub Auto_Close()
'
' CSV作成 Macro
' マクロ記録日 : 2006/7/13 ユーザー名 : 00849
'

'
Fname = Range("H17")
ChDir "D:\ファイル\他仕事\リモートメンテナンス\RADIUS設定、エクセル検証"
ActiveWorkbook.SaveAs Filename:= _
"D:\ファイル\他仕事\リモートメンテナンス\RADIUS設定、エクセル検証\" & Fname, _
FileFormat:=xlCSV, CreateBackup:=False
ThisWorkbook.Close

End Sub

　このプログラムだと、"H17"に入力した文字をファイル名にします。

　そうではなく、メッセージボックスを表示させ、そこに文字などを入れ、それをファイル名とするにはどのように作成したらよいのでしょうか？

　具体的には、メッセージボックス内は「ファイル名を入力してください。」とし、その下に入力欄を作るというようにしたいです。

回答No.1

hana-hana3 · ベストアンサー

Fname = Range("H17")
を
Fname = InputBox("ファイル名を入れてください。")

お礼

ありがとうございます！！
　できました！
　たったそれだけのことだったのですね。

回答No.2

papayuka

普通の保存ダイアログを使うとかもあり？

Sub Test()
Dim fileSaveName
　fileSaveName = Application.GetSaveAsFilename( _
　　　fileFilter:="Excelファイル (*.xls), *.xls")
　If fileSaveName <> False Then
　　 ThisWorkbook.SaveAs fileSaveName, xlNormal
　End If
End Sub

お礼

お教えいただいたやり方ですと、ファイルの種類を手で選択しなくてはならないので、今回はNo.1さんのやり方を採用させていただきました。

　しかしながら、このやり方も知りませんでしたので、勉強になりました。

　ありがとうございました。