如何修改VBA代码将员工信息批量合并导出为单个PDF

'Copyrighted of geedrecorder
Sub ExportAllToSinglePDF()
    '定义工作表对象
    Dim detailsSheet As Worksheet
    Dim reportSheet As Worksheet
    Dim tempSheet As Worksheet
    Dim i As Integer
    Dim rowIndex As Integer
    
    '指定数据源表和模板表
    Set detailsSheet = ActiveWorkbook.Sheets("Mark")
    Set reportSheet = ActiveWorkbook.Sheets("Design")
    
    '创建临时工作表用于汇总所有员工信息
    Set tempSheet = ActiveWorkbook.Sheets.Add(After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count))
    tempSheet.Name = "Temp_Employee_Report"
    
    '复制模板表的表头到临时表
    reportSheet.Rows(1).Copy Destination:=tempSheet.Rows(1)
    rowIndex = 2 '临时表的起始数据行
    
    '循环读取所有员工数据（此处假设数据源到第20行，可按需调整）
    For i = 2 To 20
        '读取员工信息
        Sname = detailsSheet.Cells(i, 1).Value
        Spuid = detailsSheet.Cells(i, 2).Value
        Srestriction = detailsSheet.Cells(i, 3).Value
        
        '将信息写入临时表
        tempSheet.Cells(rowIndex, 2).Value = Sname
        tempSheet.Cells(rowIndex + 1, 2).Value = Spuid
        tempSheet.Cells(rowIndex + 2, 2).Value = Srestriction
        
        '添加空行分隔不同员工信息（可选，提升可读性）
        tempSheet.Rows(rowIndex + 3).Insert shift:=xlDown
        rowIndex = rowIndex + 4 '更新下一个员工的起始行
    Next i
    
    '删除最后多余的空行
    tempSheet.Rows(rowIndex).Delete
    
    '导出临时表为单个PDF
    tempSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\alyssa\Documents\Zoom\All_Employees_Report.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
    
    '可选：删除临时工作表，保持工作簿整洁
    Application.DisplayAlerts = False
    tempSheet.Delete
    Application.DisplayAlerts = True
    
    MsgBox "所有员工信息已合并导出为单个PDF！"
End Sub

关键修改说明 #

• 新增临时工作表：创建临时表统一汇总所有员工信息，避免原代码中反复替换模板内容、多次导出的操作。
• 批量写入数据：循环读取每条员工信息后，依次写入临时表，添加空行分隔不同员工的内容，让PDF排版更清晰。
• 单次导出PDF：所有数据整理完成后，一次性导出临时表为单个PDF文件。
• 自动清理临时表：导出完成后自动删除临时工作表，避免工作簿产生冗余内容。

可选优化点 #

• 如果数据源行数不固定，可将循环终止条件改为detailsSheet.Cells(detailsSheet.Rows.Count, 1).End(xlUp).Row，自动获取实际数据的最后一行。
• 可根据需求调整导出路径和PDF文件名。

内容的提问来源于stack exchange，提问作者Israel Mello