Outlook标志excel中的已完成日期格式

我正在excel中编写宏以将outlook电子邮件导出到excel。代码工作正常，但数据导出到excel时，“标记完成日期”字段的日期格式会更改

在outlook中，格式为dd-mm-yyy-hh:mm示例：2015年1月21日12:42。 将电子邮件导出到excel时，此字段的格式更改为2015年1月21日00:00

还有其他日期字段，它们的格式在excel中正确显示。只有此字段存在格式问题

请帮忙

谢谢大家!！ KSP

以下是我正在使用的代码：

Sub InboxToExcel()

    Dim objOL As Outlook.Application
    Dim objNS As Outlook.Namespace
    Dim objInbox As Outlook.Folder
    Dim objTable As Outlook.Table
    Dim objRow As Outlook.Row
    Dim objMsg As Outlook.MailItem
    Dim objWB As Excel.Workbook
    Dim objWS As Excel.Worksheet
    Dim objRange As Excel.Range
    Dim strFind As String
    Dim strProps As String
    Dim arr() As String
    Dim val As Variant
    Dim i As Integer
    Dim intRow As Integer

    strProps = _
      "SenderName,To,Subject,SentOn,ReadReceiptRequested"
    Set objOL = Application
    Set objNS = objOL.Session
    Set objInbox = objNS.GetDefaultFolder(olFolderInbox)
    Set objTable = objInbox.GetTable

    Set objWB = GetExcelWB()
    Set objWS = objWB.Sheets(1)
    objWS.Name = "Inbox"
    arr = Split(strProps, ",")
    intRow = 1
    For i = 0 To UBound(arr)
        objWS.Cells(intRow, i + 1) = arr(i)
        objTable.Columns.Add arr(i)
    Next
    Set objRange = objWS.Range _
                   (objWS.Cells(1, 1), objWS.Cells(1, i + 1))
    objRange.Font.Bold = True
    Do Until objTable.EndOfTable
        intRow = intRow + 1
        Set objRow = objTable.GetNextRow
        For i = 0 To UBound(arr)
            val = objRow(arr(i))
        Select Case VarType(val)
           Case vbDate
                val = DateToExcel(val)
           Case vbBoolean
                val = YesNoToString(val)
        End Select
            objWS.Cells(intRow, i + 1) = val
        Next
    Loop
    For i = 1 To (UBound(arr) + 1)
        objWS.Columns(i).EntireColumn.AutoFit
    Next
    objWS.Application.Visible = True
    objWS.Activate
    Set objOL = Nothing
    Set objNS = Nothing
    Set objRow = Nothing
    Set objWB = Nothing
    Set objWS = Nothing
    Set objRange = Nothing
End Sub

Function DateToExcel(propVal)
    Dim dteDate 'As Date
    If IsDate(propVal) Then
        dteDate = CDate(propVal)
        If dteDate = #1/1/4501# Then
            DateToExcel = Null
        Else
            DateToExcel = dteDate
        End If
    End If
End Function
Function YesNoToString(propVal)
    If propVal = "True" Then
        YesNoToString = "Yes"
    Else
        YesNoToString = "No"
    End If
End Function

---

看起来您需要更改单元格格式或在Excel中设置写入单元格的字符串格式。你们用什么代码？嗨，Eugene，我添加了代码供你们参考。Eugene，我试过在excel中格式化单元格，但它仍然显示00:00时间。看起来宏没有从outlook字段中拾取时间，它只拾取日期尝试调试代码，看看在后台发生了什么。我已经调试了代码。它只是从字段值中选取日期，而不是时间。其余的日期字段都可以。