VBAで日と月をDDとMM形式に変更する

Question

ここにいくつかの文脈を与えるために、Qドライブにxlsxとして保存しようとしているdatファイルがあります。私はコードの大部分が動作していることを知っています（私はそれをテストしました）ので、私はそれを完全に変更したくありませんが、以下で説明するような書式設定は私が助けが必要なものです。次のコードはworkbook1にあり、workbook2を参照しています。ワークブック1のセルD3は日付式ですが、残念ながら、FileDayとFileMonthコードは、「dd」と「mm」の日数と月数で引っ張るだけで、 " フォーマット。以下のコードは "yyyy_mm_dd"ですが、FileDayとFileMonthは "d"と "m"だけを引っ張っています。セルD3から正しい書式設定を引き出すために欠けているコードは何ですか？

Dim FName As String, FPath As String 
Dim wkb1 As Workbook, wkb2 As Workbook 

Set wkb1 = ThisWorkbook 

FileDay = Day(Range("D3")) 
FileMonth = Month(Range("D3")) 
FileYear = Year(Range("D3")) 


FPath = "Q:\MyFolder" 
FName = "MyFile_" & FileYear & "_" & FileMonth & "_" & FileDay & ".xlsx" 

Set wkb2 = Workbooks("MyFile_" & FileYear & "_" & FileMonth & "_" & FileDay 
& ".dat") 
With wkb2 
    .SaveAs Filename:=FPath & "\" & FName 
    .Close True 
End With 
End Sub 

Answer 1

これらの変数が文字列であると仮定すると、Format$関数を使用します。

FileDay = Format$(Day(Range("D3")), "00") 
FileMonth = Format$(Month(Range("D3")), "00") 
FileYear = Format$(Year(Range("D3")), "0000") 

また、一度にそれをすべて行う：

= Format$(Range("D3"), "YYYY_MM_DD")