VBA从Excel导出PDF格式的副本2份
问题描述:
我正在寻找一个解决方案,将几张表格从Excel导出到一个文件PDF。我录制了一个可以创建漂亮的PDF和所有有趣的表单的宏。但是我需要在同一PDF中的其中一张纸的两份副本,但我不知道该怎么做。 这是我的代码。VBA从Excel导出PDF格式的副本2份
Sub ExportPDF()
Sheets(Array("PackingList", "Administracyjny", "Nadawca", "Odbiorca", "Przewoźnik")).Select
Sheets("PackingList").Activate
ChDir "C:\Users\XXXXXX\Desktop"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\XXXXXX\Desktop\Spools_PackingList.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:= False
End Sub
答
See here for copying a worksheet,它可能是一个很好的解决方法,整个工作表在你的代码的开始复制,然后你可以在与(taken from here)年底将其删除:
Sub sbDeleteASheet()
Sheet1.Delete
'OR You can mention the Sheet name
Sheets("Sheet2").Delete
End Sub
这个网站是在这方面充分的解决方案:http://*.com/questions/36597511/excel-vba-export-multiple-sheets-to-pdf或复制工作表,然后http://*.com/questions/20750854/ excel-vba-to-export-selected-sheets-to-pdf。 – Ralph
谢谢。我会检查工作中的所有内容。 – Adam