VB代码导出多页为单PDF问题：仅导出最后一条循环结果

问题根源 #

原来的代码在循环中每次执行ExportAsFixedFormat都会覆盖已有的PDF文件，因此最终只保留最后一次循环的结果。要实现所有结果导出到单个PDF，需要先将所有循环生成的内容汇总到一个统一区域，再一次性导出。

修改后的完整代码 #

Sub ExportAllResultsToSinglePDF()
    Dim wsData As Worksheet, wsResult As Worksheet, wsTemp As Worksheet
    Dim i As Integer, lastRow As Long
    Dim rollNo As String, studentName As String
    Dim exportPath As String
    
    ' 初始化工作表对象
    Set wsData = ThisWorkbook.Sheets("Sheet1")
    Set wsResult = ThisWorkbook.Sheets("Results")
    ' 创建临时工作表用于汇总所有结果
    Set wsTemp = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    wsTemp.Name = "TempResults"
    
    ' 设置导出路径（自行修改为你的目标路径）
    exportPath = "C:\YourTargetFolder\AllStudentResults.pdf"
    
    For i = 5 To 15
        ' 读取Sheet1中的学号和姓名（假设学号在A列，姓名在B列，可根据实际调整）
        rollNo = wsData.Cells(i, "A").Value
        studentName = wsData.Cells(i, "B").Value
        
        ' 将学号写入Results表的M13单元格
        wsResult.Range("M13").Value = rollNo
        
        ' 复制Results表的内容到临时工作表
        wsResult.UsedRange.Copy
        ' 找到临时工作表的最后一行，确保内容往下追加
        lastRow = wsTemp.Cells(wsTemp.Rows.Count, "A").End(xlUp).Row
        ' 第一次复制从第一行开始，后续留空行分隔不同结果
        If lastRow = 1 And wsTemp.Cells(1, "A").Value = "" Then
            wsTemp.Cells(1, "A").PasteSpecial Paste:=xlPasteAll
        Else
            wsTemp.Cells(lastRow + 2, "A").PasteSpecial Paste:=xlPasteAll
        End If
        Application.CutCopyMode = False
    Next i
    
    ' 将临时工作表的全部内容导出为单个PDF
    wsTemp.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=exportPath, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False ' 若需导出后打开PDF，改为True
    
    ' 删除临时工作表（可选，按需保留）
    Application.DisplayAlerts = False
    wsTemp.Delete
    Application.DisplayAlerts = True
    
    MsgBox "所有结果已成功导出至：" & exportPath, vbInformation
End Sub

关键修改说明 #

• 新增临时工作表：用来汇总每次循环生成的Results表内容，彻底避免覆盖问题。
• 内容追加逻辑：每次循环后将Results表内容复制到临时工作表的下一个空白区域，确保所有结果都被保留。
• 一次性导出：所有循环完成后，再将临时工作表的全部内容导出为单个PDF文件。
• 可选清理步骤：导出完成后删除临时工作表，保持工作簿整洁。

注意事项 #

• 根据实际情况调整代码中学号、姓名所在的列（当前假设为A列和B列）。
• 修改exportPath变量为你的目标文件路径，确保路径存在且有写入权限。
• 如果Results表有固定打印区域，可将wsResult.UsedRange替换为具体区域（如wsResult.Range("A1:Z50")）。

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