select单元格范围，保存在预设名称为PDF的设置文件夹中

我试图将一系列的单元格导出为PDF格式，并将其保存为一个预先设定的名称到一个文件夹。 我只使用的代码将创build一个PDF，并询问我想保存它的位置。 有什么build议么？

Sub ExcelToPDF() Range("A11:D57").Select Selection.ExportAsFixedFormat Type:=xlTypePDF, fileName:="C:\Documents\Plantwide\Document Managerment Control\File Name", Quality:=xlQualityStandard, _ IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True End Sub 

Answer 1

我发现我的错误。 以下是正确的代码：

 Sub ExcelToPDF() Dim myFilename As String myFilename = "C:\Documents\Plantwide\Document Managerment Control\" & Range("B3") & " - " & Format(Range("B1"), "mm.dd.yyyy") & " - Final Report" Range("A11:D57").Select Selection.ExportAsFixedFormat Type:=xlTypePDF, fileName:=myFilename, Quality:=xlQualityStandard, _ IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True End Sub