将多个工作表保存为PDF

即时通讯试图将多个工作表保存为单个PDF文件。
以下macros使用表名称，但它不适合我，因为我的表具有dynamic名称。 试图使用表格（1）寻址但没有工作。 有人有什么主意吗？

Sub export_to_pdf() Sheets(Array("Configuration", "chart")).Copy ActiveWorkbook.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:="filename.pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=False, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=True ActiveWorkbook.Close (False) End Sub 

Answer 1

使用

 Sheets(1).ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:="filename.pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=False, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=True 

或者如果你有更多

 Sheets(Array(1, 2, 5)).Copy ActiveWorkbook.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:="filename.pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=False, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=True ActiveWorkbook.Close (False) 

Answer 2

你的程序代码适用于我，只需稍作更改即可。

 Sub export_to_pdf() Sheets(Array("Sheet1", "Sheet2")).Copy 'Change to your sheets ActiveWorkbook.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:="filename.pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ 'changed to True IgnorePrintAreas:=False, _ OpenAfterPublish:=True ActiveWorkbook.Close (False) End Sub 

在这种情况下，我也在Tools Reference设置了对Microsoft Word Object Library Reference