Question

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

或者如何在不显示工作簿的情况下创建工作簿 - 即在内存中然后在HD上？这又可能有助于解决第一个问题...

Answer 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

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

Excel：将选定的工作表保存为PDF文件

1 个答案: