【张大鸭子教程】汇总表格用VBA一键拆分后自动生成PDF文件

汇总表格用VBA一键的方法详见【张大鸭子教程】汇总表格用VBA一键拆分

在里面最后一组拆分代码（也就是代码4）替换成如下代码6，就可以实现拆分后自动生成PDF的格式了。

以工资表为例：

通过一键拆分的方法运行其中代码1，2，3

完成sheet的拆分

完成内容的拆分

通过运行代码6（见下附件)后，生成如下文件：

完成pdf的生成~

附件代码6

Sub 分拆工作表()

Dim sht As Worksheet

Dim MyBook As Workbook

Set MyBook = ActiveWorkbook

For Each sht In MyBook.Sheets

sht.Copy

pdfName = sht.Name

sht.PageSetup.Orientation = xlLandscape

'横向排布

With sht.PageSetup

.Draft = False

.PaperSize = xlPaperA4

.Zoom = False

.FitToPagesWide = 1

.FitToPagesTall = 1

End With

'将内容锁在一张A4大小里

ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlOpenXMLWorkbook

'将工作簿另存为xlsx格式

sht.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & ActiveSheet.Name & ".pdf"

'将拆分的工作簿另存为pdf

'sht.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

'将拆分的工作簿另存为pdf

ActiveWorkbook.Close

Next

MsgBox "文件已经被分拆完毕!"

End Sub