Excel - 書式（日付）付きのテキストファイルに書き込む

Question

テキストファイルを作成して書き込むことができるコードがあります。以下はコードです

Public Sub createFil() 


Dim fso As Object 
Dim datetext As String 

Const FLDR_NAME As String = "C:\testing" 

Set fso = CreateObject("Scripting.FileSystemObject") 
fso.CreateFolder (FLDR_NAME) 

Dim Fileout1 As Object 

Set Fileout1 = fso.CreateTextFile("C:\testing\test.txt", True, False) 
datetext = Worksheets("Sheet1").Range("C2").Value & Worksheets("Sheet1").Range("F2").Value & "Hello World" 
Fileout1.Write datetext 
Fileout1.Close 

End Sub 

C2の値は「HI」で、F2の値は「= today（）」の現在の日付です。

結果ファイルでは、取得できる日付形式は「2015年2月15日」です。私が欲しいフォーマットは "02/15/17"です。

F2のExcelシートで書式を変更しました。ここに何かがないのですか？

ありがとうございます。

Answer 1

あなたはそれを出力する前に、VBAで日付をフォーマットすることができます。

datetext = Worksheets("Sheet1").Range("C2").Value & _ 
    Format(Worksheets("Sheet1").Range("F2").Value, "mm/dd/yyyy") & _ 
    "Hello World" 

Answer 2

Dim Fileout1 As Object

With Worksheets("Sheet1").Range("F2") 
    .NumberFormat = "mm/dd/yy;@" 
End With