Excelで新規保存の名称をセルの内容にする

質問

Excelのマクロで下記のようなものを作りました。
Sub 自動保存()
'
' 自動保存のマクロ
' マクロ記録日 : 2008/8/10 ユーザー名 : user
'

'
Sheets("ワークエリア").Select
ActiveWorkbook.Unprotect
Sheets("ワークエリア").Select
Sheets("ワークエリア").Copy
Windows("部品表.xls").Activate
Sheets("計算").Select
Range("B4").Select
Selection.Copy
Windows("Book1").Activate
ActiveWindow.SmallScroll Down:=-27
ActiveWorkbook.SaveAs Filename:="D:\user folder\平成20年8月11日.xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
ActiveWindow.Close
End Sub

・「部品表」というファイルの「ワークエリア」と言うシートを新規のファイルとして保存したい。
・保存名は「計算」というシートにあるB4のセルの内容にしたい。
（today()関数を使った当日の日付をファイル名にしたい)
・いろいろ試したけどファイル名が変数にならず固定されてしまう。
（最初に入れた日付がファイル名になってしまい翌日以降がうまくいかない）
どうすればいいのでしょうか？わかる方ご指導下さい。

回答No.1

n-jun · ベストアンサー

Filename:="D:\user folder\平成20年8月11日.xls"
　　　　　　↓
Filename:="D:\user folder\" & Format(Date, "[$-411]ggge年m月d日") & ".xls"
これでファイル名はその日の日付（和暦）になるはず。

お礼

ありがとうございました。
おかげさまでうまく保存することが出来ました。

参考までにですが、もしセルの内容をファイル名にする方法も
教えていただければありがたいのですが....

急ぎませんので時間のあるときにでもお願いします。

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

回答No.2

n-jun

>参考までにですが、もしセルの内容をファイル名にする方法も
>教えていただければありがたいのですが....
>・保存名は「計算」というシートにあるB4のセルの内容にしたい。
>（today()関数を使った当日の日付をファイル名にしたい)
であれば、
Filename:="D:\user folder\" & Format(Sheets("計算").Range("B4").Value , "[$-411]ggge年m月d日") & ".xls"
でどうでしょうか。

Valueで変になるようなら、Value2としてみて下さい。

お礼

ありがとうございます。
とても参考になりました。
これを機会にマクロについてももっと勉強したいと思います。