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值是＆＃34; HI＆＃34;和F2值是当前日期，即＆＃34; =今天（）＆＃34;。

在结果文件中，我得到的日期格式为＆＃34; 2/15/2017＆＃34;。但我想要的格式是＆＃34; 02/15/17＆＃34;。

我更改了F2表格中的格式。我在这里错过了什么吗？

谢谢。

Answer 1

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

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

Answer 2

在 drawAllCharts

之后尝试此操作

Dim Fileout1 As Object

Excel - 使用格式（日期）写入文本文件

2 个答案: