vba - 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()”。

在结果文件中，我得到的日期格式是“2/15/2017”。但我想要的格式是“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"