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

时间:2014-01-30 12:18:27

标签: excel

我知道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结束。

2 个答案:

答案 0 :(得分:0)

考虑:

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

答案 1 :(得分:0)

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

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