Outlook 中的日期格式问题，而 Excel-Outlook 自动化

Question

我已使用宏将电子邮件导出到 Excel。通过使用 Mid 函数，我在电子邮件中找到了日期，但它的格式不是日期。

例如 2012 年 1 月 12 日星期四上午 8:30 此日期是文本，而不是格式化日期。如何将其格式化为日期？

Answer 1

您需要先删除“星期四”。然后使用CDate。这应该有效

DateStr = "Thursday, January 12, 2012 8:30 AM"
DateStr = Mid(DateStr, InStr(1, DateStr, ", ") + 1)
DateVal = CDate(DateStr)

Answer 2

尝试：

Format(DateValue, "dddd, mmmm d, yyyy hh:mm AM/PM")

Answer 3

如果您需要公式解决方案：

假设单元格 A1 中包含以下内容：

Thursday, January 12, 2012 8:30 AM

以下公式将提取日期部分并对其进行格式化作为日期：

=DATEVALUE(MID(A1,FIND(",",A1)+1,LEN(A1)))

这将显示单元格中的40920。将单元格格式设置为日期，将其显示为 mm/dd/yyyy 日期（或者您想要的格式）。