Excel – 使用格式（date）写入文本文件

我有一个可以创build和写入文本文件的代码。 以下是代码：

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值是当前date，即“= today（）”。

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

我已经改变了Excel的表格格式为F2。 我在这里错过了什么？

谢谢。

Answer 1

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

 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