Question

我正在尝试将工作表导出为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

Answer 1

在\之后，您缺少反斜杠/（如果在Mac上则为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

希望这会有所帮助。

Answer 2

请添加msgbox Activeworkbook.path来检查您的保存路径，您需要再添加一个“ \”

带有VBA代码的“运行时错误1004”启动了PDF导出

2 个答案: