Question

我知道VBA总是将日期视为美国mm / dd / yyyy格式，但不知道如何解决这个特殊问题。我希望最终将日期作为文本字符串，以点作为分隔符和英国风格（即dd.mm.yyyy）以启用另一个程序的数据输入。我目前有：

`Range("F2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Cells.Replace What:="/", Replacement:=".", LookAt:=xlPart, SearchOrder _
    :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

（第一行将数据粘贴到我将用于数据输入的工作表中）

但当然，最终会以mm.dd.yyyy结束。

Answer 1

考虑：

Sub dural()
    Range("A1") = Now
    Range("A1").Copy
    Range("F2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Cells.Replace What:="/", Replacement:=".", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Cells.NumberFormat = "dd.mm.yyyy"
End Sub

Answer 2

如果您必须在工作表中添加日期来自计算，则可以尝试以下代码段：

Dim mydate As Date
mydate = Now()
Range("F2") = Format(mydate, "dd.mm.yyyy")

Excel - 将日期转换为英文文本字符串

2 个答案: