エクセルマクロで抽出時間を４桁で返す

質問

下記の様に、開いたファイルを保存する際に別ファイルの更新日時をファイル名として使用したいのですが、2011/10/10 10:02　だとすると、時間の"0"の部分が抜けて20111010_12となってしまいます。必ず４桁表示にする書き方があればご教示下さい。よろしくお願いします。

Sub cngsave()

Dim a As String

a = FileDateTime("C:\001\ABC.xls")

Workbooks.OpenText Filename:= _
"C:\001\VVV.xls"

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\001\保存\" & Year(a) & Month(a) & Day(a) & "_" & Hour(a) & Minute(a) & ".xls"

End Sub

回答No.1

keithin · ベストアンサー

format関数を使います。

sub macro1()
　dim myPath as string　’これは趣味の問題
　dim myFile as string
　mypath = "c:\001\保存\"
　myfile = format(filedatetime("C:\001\ABC.xls"), "yyyymmdd_hhmm") & ".xls"
　application.displayalerts = false
　activeworkbook.saveas filename:=mypath & myfile
end sub

お礼

なるほど！
ユーザ定義で使うあの形ですね。
お陰さまできれいにまとまりました。
助かります、ありがとございました。