我正在尝试将四个工作表保存为一个PDF文件。以下是我目前的代码。当我在文件名中使用ActiveSheet.Name命令时,它能够正常工作,但是当我将其更改为动态单元格的范围时,它不再能正常工作并出现错误。任何帮助都将不胜感激。
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
Filename:="C:\Users\Allen\Desktop\Projects\" & ActiveSheet.Range("K17").Value & ".pdf"
)? - PatricK.Value
,日期将表示为带有正斜线的短日期,不能用作文件名。请使用ActiveSheet.Range("K17").Text
从单元格中获取格式化的值。确保单元格足够宽以显示完整的格式化文本,否则您的PDF文件名将会显示为######。 - user4039065Format(ActiveSheet.Range("K17"),"YYYY-MM-DD")
- MMerry