当前位置：首页>Excel>法律人必备干货,一键拆分Excel并导出PDF

法律人必备干货,一键拆分Excel并导出PDF

2026-07-10 18:50:19

这周处理的买卖合同纠纷的案子，当事人给我了不少于20个excel的对账文件，每个excel中又有多个工作簿（sheet），提交给法院必须要转成pdf。

也就是说，要把每个表格中的sheet单独保存后，再转为pdf，太费劲了，没有半天到一天的功夫，感觉这活儿根本干不完。

好在互联网时代，总能遇到一些热心分享的网友。我把他们的技巧进行了整合，为自己处理案件节约了大量的时间，今天也分享给大家。

Excel表格拆分多个sheet

首先要做的是，把一个excel表格中的多个sheet拆分成多个子表格，具体操作步骤如下：

1.打开总表，按快捷键Alt+F11，调出VBA编辑器。再点击“插入“，选择“模块”，输入下述代码：

PrivateSub 分拆工作表()Application.ScreenUpdating = False'让屏幕不显示操作过程，Dim sht As WorksheetDim MyBook As WorkbookSet MyBook = ActiveWorkbookFor Each sht In MyBook.SheetsIf sht.Visible = True Then '隐藏的sheet跳过，否则会报1004无法复制错误sht.CopyActiveWorkbook.SaveAsFilename:=MyBook.Path & "\" & sht.Name & ".xlsx", FileFormat:=xlWorkbookDefault '将工作簿另存为EXCEL默认格式ActiveWorkbook.CloseEnd IfNextMsgBox "文件已经被分拆完毕!"Application.ScreenUpdating = True '让屏幕恢复显示操作过程，End Sub

2.点击“运行”后，总表中不同的sheet就拆分好了。

Excel批量转PDF

一、准备工作

1. 新建一个空白 Excel 文件，把它和你要转 PDF 的所有 Excel 文件，放在同一个文件夹里（这是关键！）NB：建议先复制几份测试用的文件，避免操作失误损坏原件。
2. 打开 VBA 编辑器，按快捷键 Alt + F11，调出 VBA 编辑器窗口。

二、导入代码

1. 在 VBA 编辑器里，右键点击左侧的当前工作簿名称 → 选择「插入」→「模块」。
2. 把下面这段完整代码，复制粘贴到右侧的空白代码窗口里：

Sub test()    myPath = ThisWorkbook.Path & "\"    myFile = Dir(ThisWorkbook.Path & "\" & "*.xls*")    Do While myFile <> ""        If myFile <> ThisWorkbook.Name Then            Set am = Workbooks.Open(myPath & myFile)            myFile2 = myPath & myFile & ".pdf"                        am.ExportAsFixedFormat _                Type:=xlTypePDF, _                Filename:=myFile2, _                Quality:=xlQualityStandard, _                IncludeDocProperties:=True, _                IgnorePrintAreas:=False, _                OpenAfterPublish:=False            Workbooks(myFile).Close False        End If        myFile = Dir    Loop    MsgBox "CONVERSION ACABADA"End Sub