VBA另存为PDF，文件名为单元格值

我试图将四张表保存为一个PDF。 下面的代码是我到目前为止。 当我在文件名中使用ActiveSheet.Name命令时，它可以工作，但是当我将其更改为dynamic单元格的范围时，它不再起作用，并且出错。 任何帮助，将不胜感激。

Sheets(Array("Dashboard Pg 1", "Dashboard Pg 2", "Dashboard Pg 3", _ "Dashboard Pg 4")).Select Sheets("Dashboard Pg 1").Activate ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\Allen\Desktop\Projects\" & ActiveSheet.Range("K17").Value & ".pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=False Sheets("Summary").Select 

Answer 1

尝试这个：

 Dim strFilename As String Dim rngRange As Range 'Considering Sheet1 to be where you need to pick file name Set rngRange = Worksheets("Sheet1").Range("K17") 'Create File name with dateStamp strFilename = rngRange.Value & Format(Now(), "yyyymmdd hhmmss") Sheets(Array("Dashboard Pg 1", "Dashboard Pg 2", "Dashboard Pg 3", "Dashboard Pg 4")).Select Sheets("Dashboard Pg 1").Activate ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\Allen\Desktop\Projects\" & strFilename & ".pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=False Sheets("Summary").Select