求助：批量生成PDF时如何避免Excel崩溃？

问题背景 #

我有一个用于发票管理的大型Excel工作表，计算发票金额的工作表包含大量公式。通过VBA的Do循环调用saveRangeAsPDF函数批量生成PDF，函数代码如下：

Function saveRangeAsPDF(rangeName As String, showMsg As Boolean)
    Dim FileName As String
    Dim FolderName As String
    Dim Folderstring As String
    Dim FilePathName As String
    Dim ccRng As Range
    Dim sMsg As String

    ' If my ActiveSheet is landscape, I must attach this line
    ' for making the PDF also landscape, seems to default to xlPortait
    ActiveSheet.PageSetup.Orientation = ActiveSheet.PageSetup.Orientation

    ' Ensure the filename does not contain invalid characters
    FileName = Trim(Cells(9, 2).Value) & "_" & Cells(6, 2).Value & "_" & Cells(2, 9).Value & "_" & Cells(2, 2).Value & "_" & Cells(2, 16).Value
    FileName = Replace(FileName, ":", "_")
    FileName = Replace(FileName, "/", "_")
    FileName = Replace(FileName, "\", "_")
    FileName = Replace(FileName, "*", "_")
    FileName = Replace(FileName, "?", "_")
    FileName = Replace(FileName, Chr(34), "_") ' Replaces " with _
    FileName = Replace(FileName, "<", "_")
    FileName = Replace(FileName, ">", "_")
    FileName = Replace(FileName, "|", "_")

    sMsg = Cells(9, 2).Value & " - " & Cells(2, 2).Value

    Set ccRng = ActiveSheet.Range(rangeName)
    If CStr(ActiveSheet.Cells(ccRng.Row + ccRng.Rows.Count, 2)) = "CC" Then
        FileName = FileName & "_" & CStr(ActiveSheet.Cells(ccRng.Row + ccRng.Rows.Count, 3))
    End If

    FileName = FileName & ".pdf"

    Folderstring = getSaveFolder()
    If Folderstring = "" Then
        MsgBox "Geen geldige map geselecteerd.", vbExclamation
        Exit Function
    End If

    FilePathName = Folderstring & Application.PathSeparator & FileName

    setPrintSettings (rangeName)
    
    On Error GoTo errHandler
    ActiveSheet.Range(rangeName).ExportAsFixedFormat _
        Type:=xlTypePDF, _
        FileName:=FilePathName, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
    
    If showMsg Then
         Call AddStatus("Factuurbestand (PDF) aangemaakt, deze bevind zich in de volgende locatie : " & FilePathName)
    End If

    Exit Function

errHandler:
    MsgBox "Er is een fout opgetreden bij het genereren van de PDF: " & Err.Description, vbCritical

End Function

目前确定是PDF生成操作导致崩溃，手动单个生成偶尔也会崩溃，重新打开文件后运行宏又恢复正常。文件大小约45MB，iMac配备32GB内存，内存使用率通常不足一半。计算模式已设为手动，所有计算通过VBA的Application.CalculateFull方法执行，文件名已处理非法字符，现需排查崩溃原因或寻找替代ExportAsFixedFormat的PDF生成方法。

崩溃原因排查方向 #

• 资源泄漏与回收：批量生成时，Excel可能存在未释放的对象或内存泄漏。每次生成后添加对象释放代码（Set ccRng = Nothing），并加入短暂延迟（Application.Wait Now + TimeValue("00:00:01")），让系统有时间回收资源。
• 冗余页面设置代码：ActiveSheet.PageSetup.Orientation = ActiveSheet.PageSetup.Orientation逻辑冗余，会触发不必要的页面设置刷新，建议直接移除该行；若默认方向异常，仅在初始化时手动设置一次即可。
• 打印设置累积错误：setPrintSettings函数可能重复设置打印参数，导致打印引擎状态异常。建议在每次生成前重置打印区域（ActiveSheet.PageSetup.PrintArea = ""），再重新设置目标区域的打印参数。
• 文件隐性损坏：大体积Excel文件（含大量公式）易出现隐性损坏，建议另存为新的.xlsm文件，清理未使用的名称、隐藏工作表和冗余格式，缩小文件体积并修复潜在问题。
• Mac版Office兼容性：Mac版Excel的ExportAsFixedFormat存在已知稳定性问题，尤其是处理复杂公式或大区域时。尝试更新Office到最新版本，修复官方已知bug。

替代PDF生成方法 #

1. 调用虚拟打印机打印到PDF #

绕过ExportAsFixedFormat，直接使用Mac版的虚拟打印机生成PDF：

Sub PrintRangeToPDF(rng As Range, filePath As String)
    Dim originalPrinter As String
    ' 保存当前打印机
    originalPrinter = Application.ActivePrinter
    ' 设置为Mac虚拟PDF打印机（先通过Debug.Print Application.ActivePrinter确认准确名称）
    Application.ActivePrinter = "Save as PDF"
    ' 设置打印区域
    rng.Parent.PageSetup.PrintArea = rng.Address
    ' 打印到指定路径
    rng.Parent.PrintOut _
        OutputFileName:=filePath, _
        PrintToFile:=True
    ' 恢复原打印机
    Application.ActivePrinter = originalPrinter
End Sub

2. 拆分批量任务 #

将批量生成拆分为小批次（如每次生成15个PDF），完成后保存并重新打开Excel文件，避免长时间运行导致的资源累积：

Sub BatchGeneratePDFs()
    Dim i As Integer, batchSize As Integer, totalInvoices As Integer
    batchSize = 15
    totalInvoices = 100 ' 替换为实际发票总数

    For i = 1 To totalInvoices Step batchSize
        ' 生成当前批次的PDF（需实现GenerateBatchPDFs逻辑）
        GenerateBatchPDFs i, WorksheetFunction.Min(i + batchSize - 1, totalInvoices)
        ' 保存并重启Excel
        ThisWorkbook.Save
        Application.Quit
        Shell "open " & ThisWorkbook.FullName, vbNormalFocus
        ' 等待Excel重启完成
        Application.Wait Now + TimeValue("00:00:10")
    Next i
End Sub

3. 使用Office Scripts（Office 365适用） #

如果使用Office 365，可改用Office Scripts替代VBA，通过更稳定的现代API生成PDF：

function main(workbook: ExcelScript.Workbook, rangeName: string, filePath: string) {
    const sheet = workbook.getActiveWorksheet();
    const targetRange = sheet.getRange(rangeName);
    // 生成PDF并保存到指定路径
    targetRange.exportAsFixedFormat(ExcelScript.FixedFormatType.pdf, filePath);
}

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