vba - 错误 运行时错误 '1004' 文档未保存。

Question

我已成功运行一个宏，该宏将我的 Excel 工作表另存为 PDF 并通过电子邮件发送给我的执行团队。

我通过创建一个新工作表重新设计了它，并相应地更新了代码。

Sub NewDashboardPDF()

' New Executive Daily Dashboard Macro
'
' Create and email the Executive TEAM the Daily Dashboard.
    Dim strPath As String, strFName As String
    Dim OutApp As Object, OutMail As Object

' Create and email the Daily Report to Mitch/Dave/John/Jason ALL PAGES.
    Sheets("Executive Dashboard").Select
    strPath = Environ$("temp") & "\" 'Or any other path, but include trailing "\"
    strFName = Worksheets("Executive Dashboard").Range("V2").Value & " " & Format(Date, "yyyymmdd") & ".pdf"

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        strPath & strFName, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

     'Set up outlook
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
     'Create message
    On Error Resume Next
    With OutMail
        .to = xxx@testemail.com
        .CC = "steve@testemail.com"
        .BCC = ""
        .Subject = "Daily Dashboard"
        .Body = "All, " & vbNewLine & vbNewLine & _
                        "Please see the attached daily dashboard." & vbNewLine & _
                        "If you have any questions or concerns, please do not hesitate to contact me." & vbNewLine & _
                        "Steve"
        .Attachments.Add strPath & strFName
        .Display
        .Send
    End With
     'Delete any temp files created
    Kill strPath & strFName
    On Error GoTo 0

End Sub

我收到的错误消息是运行时错误“1004”文档未保存。该文档可能已打开或可能遇到错误。

当我调试时，以下部分会以最后一行的箭头突出显示。

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
strPath & strFName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

对旧工作表的所有引用均已更新为新工作表，因此我不认为这是问题所在。

另一方面，我很想知道如何创建包含我的默认电子邮件签名的电子邮件。目前它只是格式化为纯文本电子邮件。

Answer 1

Document not saved错误消息表明 PDF 文件不可写，可能是因为它已在 PDF 阅读器中打开。如果在尝试从 VBA 保存文档时打开 PDF 文档，我可能会重复该错误。

如果您没有打开该文档，Windows 可能会无意中锁定该文件。您可能需要重新启动电脑才能清除锁定。

如果该文件尚不存在，则您需要确认您实际上可以在该目录位置中创建文件。

如果 V2 中的值，您将遇到类似的错误包含最终使文件名无效的字符，例如 \ , / , : , * , ? , " , < , >或| .