①シートの名前をファイル名にして、
②保存先(例えばデスクトップなど)を指定して保存
というマクロを作成しています。
自分で作ったのは下記のようなものですが、
これだと②の保存先を指定することができません。
ActiveWorkbook.SaveAs Filename:=ActiveSheet.Name, _
FileFormat:=xlNormal, CreateBackup:=False
これをどう変更すれば保存先を指定できるのでしょうか?
当方VBA初心者です。よろしくご指導くださいませ。
こんなで、いけるかと思います。
Dim FPath As String
FPath = "C:\" & ActiveSheet.Name & ".xls"
ActiveWorkbook.SaveAs Filename:= FPath, _
FileFormat:=xlNormal, CreateBackup:=False
'FPath を変更してみてください。
http://www.google.co.jp/ (ダミー)
Application.Dialogs(xlDialogSaveAs).Show ActiveSheet.Name
これで どうでしょうか?
お返事ありがとうございます。
スマートで良い感じですね。
試してみます。
お返事ありがとうございます。
さっそく試してみます。