如何通过 excel 宏使用“.ExportAsFixedFormat”选项将 excel 文件打印为 pdf

Question

我已经编写了一个代码，可以使用页面设置参数将 excel 文件打印到 .PDF 文件。而且它还消除了对提示对话框的需要。

但我需要知道是否需要使用以下代码将 .PDF 文件命名为与 excel 文件名相同但目标路径不同。例如：= if excel 文件名是“质量报告 1411185623689” 此文件由系统生成，因此其名称每天都在更改。 我该如何解决？

 Sub Save_As_PDF()
With ActiveSheet.PageSetup
     .Orientation=xlLandscape
     .Zoom=16

End With
ActiveSheet.ExportAsFixedFormat _
 Type:=xlTypePDF, _
 FileName:="C\:Desktop\Reports\Same as excel file name", _
 Quality:=xlQualityStandard, _
 IncludeDocProperties:=False, _
 IgnorePrintAreas:=False, _
 OpenAfterPublish:=True

Exit Sub

Answer 1

未经测试，但假设您希望将 PDF 命名为与 Excel 文件相同的名称（忽略文件扩展名），但位于不同的文件夹中（例如某个名为 "C\:Desktop\Reports\" 的文件夹/目录）：

Option explicit

Sub SaveAsPDF()

Dim folderPath as string
folderPath = "C\:Desktop\Reports\" ' Change to whatever folder, but make sure it ends with a \

If len(dir$(folderPath, vbDirectory)) = 0 then
Msgbox("'" & folderPath & "' is not a valid/existing directory. Abandoning export. Code will stop running now.")
Exit sub
End if

Dim Filename as string
Filename = left$(Thisworkbook.name, instrrev(Thisworkbook.name, ".", -1, vbbinarycompare) -1) & ".pdf"

With ActiveSheet.PageSetup
     .Orientation=xlLandscape
     .Zoom=16
End With
ActiveSheet.ExportAsFixedFormat _
 Type:=xlTypePDF, _
 FileName:=folderPath & filename, _
 Quality:=xlQualityStandard, _
 IncludeDocProperties:=False, _
 IgnorePrintAreas:=False, _
 OpenAfterPublish:=True

Exit Sub