将日期从YYYY.MM.DD更改为DD / MM / YYYY

Question

我从文本文件将日期导入Excel工作表。 日期的格式为：YYYY.MM.DD。

我想将日期倒转为：DD / MM / YYYY。

我已经尝试过NumberFormat，Format和其他一些子例程。

这是代码：

Sub ImportRange()

    Dim Filename As String
    Dim Data

    Dim Pos As Integer

    On Error Resume Next

    Filename = Application.DefaultFilePath & "\putty.log"

    Open Filename For Input As #1

    If Err <> 0 Then
        MsgBox "Not found:" & Filename, vbCritical, "ERROR"
        Exit Sub
    End If

    Application.ScreenUpdating = False

    Line Input #1, Data

    Close #1

    Pos = InStr(Data, "log")
    Sheets("ÐÉÓÔÏÐÏÉÇÔÉÊÏ").Range("B20").Value = Mid(Data, Pos + 4, 10) 

    Application.ScreenUpdating = True

End Sub

Answer 1

我为转换插入了一个示例公式，请告诉我是否有帮助。

如果单元格A2具有给定日期，则可以在B2中插入给定公式= DATE（VALUE（LEFT（A2,4）），VALUE（MID（A2,6,2）），VALUE（RIGHT（A2,2）））

Answer 2

确保将日期实际输入的单元格格式化为日期