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

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

将日期从YYYY.MM.DD重新格式化为DD / MM / YYYY

2 个答案: