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

Question

我已经编写了一个代码来将 excel 文件打印为带有页面设置参数的 .PDF 文件。而且它也消除了对提示对话框的需要。

但我需要知道我是否需要将 .PDF 文件命名为与以下代码的 excel 文件名相同但目标路径不同。例如：= 如果 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