セルの日付をファイル名にするエクセルマクロ

質問

お世話になります。
今のところ、下記のようにファイル名を保存しますが、

bk1.SaveAs Filename:= _
""C:\Documents and Settings\garuderu\My Documents\" & "【Case】" & Year(dt) & Month(dt) & Day(dt) & "_HOP.xls", _
FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", _
ReadOnlyRecommended:= _
True, CreateBackup:=False
bk1.Close SaveChanges:=False

月と日は一桁の場合、ファイル名の長さはばらばらで、できれば、
月と日が一桁のとき、0が入ればと思いつつ、解決はみつかりません。

誰かご存知の方がいらしたら、教えて"ぐう"ださい：）

宜しくお願いします。

回答No.1

WDY · ベストアンサー

ファイル名にするセルに書かれている日付の書式をyyyymmddの様にしてかならず2桁にしてはどうでしょう？

お礼

提案ありがとうございます。

回答No.4

myRange

＞""C:\Documents and Settings\garuderu\My Documents\" & "【Case】" & Year(dt) & Month(dt) & Day(dt) & "_HOP.xls", _

これ、最初の　”　がひとつ余分です。

bk1.SaveAs Filename:= _
　"C:\Documents and Settings\garuderu\My Documents\" _
　& "【Case】" & Format(dt, "yyyymmdd") & "_HOP.xls", _
　FileFormat:=xlNormal, _
　Password:="", WriteResPassword:="", _
　ReadOnlyRecommended:= _
　True, CreateBackup:=False
　bk1.Close SaveChanges:=False

回答No.3

Sinogi

文字列の長さで判断するなら　ってことでいかが？

Sub Month2()
Dim MyMonth
Dim dt
dt = Date
MyMonth = Month(dt)
If Len(MyMonth) = 1 Then MyMonth = "0" & MyMonth
MsgBox (MyMonth)
End Sub

回答No.2

fujillin

指定フォーマットで文字列に変換してあげればよろしいかと…

＜例＞
a = DateSerial(2009, 6, 1)
b = Format(a, "yymmdd")
MsgBox (b)

↑の結果、「090601」と表示されます。（書式が"yymmdd"）
"yy/mm/dd"と指定すれば、「09/06/01」になります。（←ファイル名には使用できませんが…）