Vba Excel-以格式（日期）写入文本文件

我有一个代码，可以创建和编写文本文件。代码如下：

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（）”

在结果文件中，我得到的日期格式是“2/15/2017”。但我想要的格式是“02/15/17”

我已经更改了F2的Excel表格格式。我是不是遗漏了什么

---

谢谢。

您可以在输出日期之前在VBA中格式化日期：

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

---

在将Fileout1变暗为对象后尝试此操作

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

---

工作表（“Sheet1”）.Range（“F2”）.NumberFormat=“mm/dd/yy；”“

谢谢。这是额外的info@Om3r这不是问题，好的答案总是能增加价值，特别是当它们提供了一个替代方案时：）