excel - 保存文件名中带有日期的 Outlook 附件

Question

我想做的只是在下面的代码中在 VBA 中设置一个日期变量。但是，如果我尝试使用 mydate = date，它就不起作用：

Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment

Dim saveFolder As String
Dim mydate As String

mydate = date

saveFolder = "T:\EC Portfolio Reports\CCA Credit Europe\ctpty"
    For Each objAtt In itm.Attachments
    objAtt.SaveAsFile saveFolder & "\" & mydate & objAtt.FileName
    Set objAtt = Nothing
Next
End Sub

Answer 1

要将日期作为字符串，请使用format. 这也将允许您删除日期中的任何非法字符，以及date返回斜杠 - 文件名不能包含/:*？"<>|

利用mydate = format(date,"yyyymmdd")