【问题标题】:Excel: Saving Selected Worksheets into PDF fileExcel:将选定的工作表保存到 PDF 文件中
【发布时间】:2016-07-23 08:27:56
【问题描述】:

虽然已经问过这个问题,但我没有找到真正的答案。 我需要以编程方式选择工作簿中的工作表并将它们保存到 PDF 文件中,而无需创建临时工作簿并将选定的工作表复制到其中。

另外,如何创建工作簿而不显示它 - 即在内存中然后在 HD 上?这又可能有助于解决第一个问题...

【问题讨论】:

    标签: excel pdf save add-in worksheet


    【解决方案1】:

    试试这个:

    Sub SaveToPdf()
    
    Dim ws As Worksheet
    
    Dim sfName As String
    
    For Each ws In Worksheets
    
    sfName = ws.Name
    sfName = "C:\Misc\" & sfName & ".pdf"
    
            ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            sfName, Quality:= _
            xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
    
    Next ws
    
    
    End Sub
    

    我认为您需要确保首先设置每张纸上的打印区域

    【讨论】:

    • 我不这样做 - 实际上我确信它没有 - 它如何知道要打印工作簿中的 SELECTED 工作表?此代码将工作表打印为单独的 PDF,这不是我的问题。也许你应该再读一遍……
    • 该代码适用于将所有工作表保存为单独的 pdf 文件。您想将多个工作表保存到一个 pdf 文件中吗?或者您是否正在寻找一种动态选择单个工作表以保存为 pdf 的方法?如果您总是想保存相同的工作表,您可以在代码中添加一个“if”语句来检查名称是否与您想要的匹配。
    猜你喜欢
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    • 2020-12-13
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    • 2020-06-14
    相关资源
    最近更新 更多