Excel2003VBA名前をつけて保存

質問

●質問の主旨

下記のコードを使ってアクティブブックをEドライブに
任意で作成した「出勤簿」というフォルダに
「2012年3月田中一郎」という名前で保存したいと考えています。

ActiveWorkbook.SaveAs "E:\出勤簿\ Format(DateValue(orgDate), "yyyy年mm月") & myName.xls "

ところがこのコードを実行しようとすると エラーが発生し、
"yyyy年mm月"の部分が青くなります。

なぜエラーが発生するのか調べても分かりません。
ご存知の方ご教示願います。

●質問の補足
orgDate→予めDate型変数を宣言。任意の日付をInputBox関数に入力し、その戻り値を代入
myName→予めString型変数を宣言。任意の名前をInputBox関数に入力し、その戻り値を代入

回答No.4

mt2008 · ベストアンサー

ANo.1です、
前のほうも変でしたね。これでどうでしょう。

ActiveWorkbook.SaveAs "E:\出勤簿\" & Format(orgDate, "yyyy年mm月") & myName　&".xls "

お礼

mt2008様
たびたびのご回答ありがとうございます。

おかげさまでアンバサダー、ダブルクオーテーション、円マークの
使い方に問題があることが分かりました。

上記の通りに訂正すると私の意図通りに保存が
できました。

回答No.3

m-take0220

ああ、拡張子の部分もおかしいですね。

ActiveWorkbook.SaveAs "E:\出勤簿\" & Format(DateValue(orgDate), "yyyy年mm月") & myName & ".xls"

になるのかな?

お礼

m-take0220様
たびたびのご回答ありがとうございます。

おかげさまでアンバサダー、ダブルクオーテーション、円マークの
使い方に問題があることが分かりました。
またDateValue関数はなくても、変数だけでもエラーは
発生しませんでした。

上記の通りに訂正すると私の意図通りに保存が
できました。

回答No.2

m-take0220

＞ ActiveWorkbook.SaveAs "E:\出勤簿\ Format(DateValue(orgDate), "yyyy年mm月") & myName.xls "

ActiveWorkbook.SaveAs "E:\出勤簿\" & Format(DateValue(orgDate), "yyyy年mm月") & myName.xls "

じゃないですか? Format関数を呼び出しているつもりが、文字列の一部になっていると思います。

お礼

m-take0220様
ご回答ありがとうございます。
ANO.3にて改めてお礼させていただきます。

回答No.1

mt2008

DateValueは、日付として認識出る文字列を日付のシリアル値に変換する物ですから、最初からDate型のorgDateを変換しようとしてエラーになっています。

また、拡張子の部分がちょっと変です。

ActiveWorkbook.SaveAs "E:\出勤簿\ Format(orgDate, "yyyy年mm月") & myName　&".xls "
これでどうですか？

お礼

mt2008様
ご回答ありがとうございます。
ANO.4にて改めてお礼させていただきます。