时间戳

首页 > 解决方案 > 使用 VBA 代码启动 PDF 导出的“运行时错误 1004”

excel - 使用 VBA 代码启动 PDF 导出的“运行时错误 1004”

问题描述

我正在尝试将工作表导出为 PDF，但是当我运行代码时，我不断收到 1004 错误。

我相信它链接到保存目的地的文件夹路径。我尝试以不同的方式定义文件路径，但仍然出现错误。

此代码应该从单元格 B1 中提取文件名的一部分，并从工作表的位置提取文件路径。PDF 应该保存到工作表的位置。我对VBA相当陌生。任何帮助表示赞赏！

这是代码

Sub ExportAsPDFTest()

Dim Name As String
Dim Preface As String


Name = Cells(1, "B").Value
Preface = "PreR Summer 2019 - "

ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    FileName:=ActiveWorkbook.Path & Preface & Name & ".pdf", _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=False, _
    IgnorePrintAreas:=False, _
    From:=1, _
    To:=1, _
    OpenAfterPublish:=False

End Sub

标签： excelvba

解决方案

在. \_ /_ ActiveWorkbook.Path您可以使用Application.PathSeparator它，因此它适用于以下两者：

Sub ExportAsPDFTest()
    Dim Name As String
    Dim Preface As String

    Name = Cells(1, "B").Value
    Preface = "PreR Summer 2019 - "

    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=ActiveWorkbook.Path & Application.PathSeparator & Preface & Name & ".pdf", _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=False, _
        IgnorePrintAreas:=False, _
        From:=1, _
        To:=1, _
        OpenAfterPublish:=False
End Sub

希望这可以帮助。

推荐阅读