使用 VBA 代码将 Excel 工作表导出为单个 pdf

Question

我有一个脚本，我想在 MS Access 中运行以将后期绑定的选定工作簿中的所有工作表导出到特定位置的单个 PDf，其中 PDF 文件名是工作表的名称。以下是我到目前为止所拥有的，但我无法弄清楚导出代码是什么。我曾尝试修改 Excel VBA 代码 (Excel VBA to Export Selected Sheets to PDF) 以导出，但它在每一步都不断返回编译错误。

Dim xls  As Object
Dim wkb  As Object
Dim wks1 As Object
Dim wks2 As Object
Dim wks3 As object
Set xls = CreateObject("Excel.Application")
Set wkb = xls.Workbooks.Open("\\EXCHSVR1\stone\Mold_Books\" & mold_id & "\" & Mid(Mid(strFlpath, InStrRev(strFlpath, "/") + 1), InStrRev(strFlpath, "\") + 1))
Set wks1 = wkb.Worksheets(1)
 'code to export the first worksheet to "C:\test\" & wks1.name
Set wks2 = wkb.Worksheets(2)
 'code to export the second worksheet to "C:\test\" & wks2.name
Set wks3 = wkb.Worksheets(3)
 'code to export the third worksheet to "C:\test\" & wks3.name

Answer 1

根据您的评论，这是您面临的编译错误的一个示例：

发生这种情况是因为xlTypePDF 是一个 Excel 常量，除非您设置对 Microsoft Excel 对象库 的引用，否则 Access 不知道该常量。

由于您想使用后期绑定，您可能不想将该引用添加到您的 VBA 项目中。在这种情况下，您可以做两件事。

1. 在您的访问代码中声明常量：Const xlTypePDF As Long = 0 然后您可以继续在代码的其他地方使用该常量的名称，而不会触发编译错误。
2. 或者在您的访问代码中使用常量的值 (0) 而不是它的名称。

您将不得不以同样的方式处理其他 Excel 常量，例如 xlQualityStandard。

Answer 2

您正在查看的帖子正在使用活动工作表。您正在创建工作表对象。在每个工作表对象上使用ExportAsFixedFormat。

wks1.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=myPDFFilePathAndName, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

wks2.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=myPDFFilePathAndName, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

wks3.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=myPDFFilePathAndName, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False