PowerShell创建Excel工作簿时报内存不足无法执行错误如何解决

你遇到的内存报错和服务器总内存无关，是PowerShell自身运行逻辑以及Excel COM对象的特性导致的，核心问题如下：

• 数组拼接产生大量内存碎片：你使用$Flowerbox +=的方式追加内容，PowerShell中数组是固定大小的，每次+=操作都会重新创建一个更大的新数组、复制所有旧内容，处理大量文件时会产生严重的内存碎片化，即使进程总内存占用不高，也会因为无法分配连续内存块触发内存不足错误。
• 多余的嵌套循环：匹配注释行时你额外嵌套了一层无意义的Foreach-Object，每次执行都会创建新的管道上下文，产生大量不必要的临时对象占用内存。
• 逐行读取文件的开销：Get-Content逐行读取时会给每一行内容附加文件路径、行号等额外属性，处理大量大体积CBL文件时会累积大量未及时释放的垃圾对象。
• Excel COM对象内存泄漏：你没有主动释放COM实例，每次操作单元格产生的COM对象不会被PowerShell自动回收，累积到一定程度就会触发内存限制；如果你使用的是32位版本的PowerShell，默认进程内存上限仅4GB，哪怕服务器有256GB内存也无法使用。
• 匹配逻辑漏洞：你匹配到第一行注释后就将$treat设为$false，只会提取第一行注释，不符合你要提取两个DIVISION之间所有注释的需求。

临时修复现有代码 #

调整核心逻辑、添加COM对象释放步骤即可解决内存报错：

$excel = New-Object -ComObject excel.application
$excel.visible = $False
$workbook = $excel.Workbooks.Add()
$diskSpacewksht= $workbook.Worksheets.Item(1)
$diskSpacewksht.Name = "XXXXX_Desc"
$col1=1
$diskSpacewksht.Cells.Item(1,1) = 'Program'
$diskSpacewksht.Cells.Item(1,2) = 'Description'

$CBLFileList = Get-ChildItem -Path 'C:\XXXXX\XXXXX' -Filter '*.cbl' -File -Recurse
# 用StringBuilder替代数组拼接，减少内存碎片
$Flowerbox = [System.Text.StringBuilder]::new()

ForEach($CBLFile in $CBLFileList) {
    $treat = $false
    Write-Host "Processing ... $($CBLFile.FullName)" -foregroundcolor green      
    # 加-ReadCount 0减少管道对象数量
    Get-content -Path $CBLFile.FullName -ReadCount 0 |
    ForEach-Object {
        if ($_ -match 'IDENTIFICATION DIVISION') {
            $treat = $true
        }
        if ($_ -match 'ENVIRONMENT DIVISION') {
            $col1++
            $diskSpacewksht.Cells.Item($col1,1) = $CBLFile.Name
            $diskSpacewksht.Cells.Item($col1,2) = $Flowerbox.ToString()
            $Flowerbox.Clear()
            $treat = $false
            continue
        }
        if ($treat) {
            if ($_ -match '\*(.{62})') {
                # 去掉多余的Foreach-Object，直接追加内容
                $null = $Flowerbox.AppendLine($matches[1])
            }
        }
    }
}

$excel.DisplayAlerts = $false
# 修正后缀错误
$path="C:\Desc.xlsx"
$workbook.SaveAs($path) 
$workbook.Close()
$excel.Quit()

# 主动释放COM对象，避免内存泄漏
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($diskSpacewksht) | Out-Null
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($workbook) | Out-Null
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($excel) | Out-Null
[System.GC]::Collect()
[System.GC]::WaitForPendingFinalizers()

更优方案：替换Excel COM为ImportExcel模块 #

无需安装Excel，没有COM内存泄漏问题，处理速度提升10倍以上：

1. 先执行命令安装模块：Install-Module ImportExcel -Scope CurrentUser
2. 替换为如下逻辑：

$output = [System.Collections.Generic.List[PSObject]]::new()
$CBLFileList = Get-ChildItem -Path 'C:\XXXXX\XXXXX' -Filter '*.cbl' -File -Recurse

ForEach($CBLFile in $CBLFileList) {
    Write-Host "Processing ... $($CBLFile.FullName)" -ForegroundColor Green
    # 一次性读取文件内容，减少临时对象
    $content = Get-Content $CBLFile.FullName -Raw
    # 正则直接匹配两个DIVISION之间的所有内容，不用逐行判断
    if($content -match '(?s)IDENTIFICATION DIVISION(.*?)ENVIRONMENT DIVISION') {
        $comments = [System.Text.StringBuilder]::new()
        $matches[1] -split "`n" | ForEach-Object {
            if($_ -match '\*(.{62})') {
                $null = $comments.AppendLine($matches[1])
            }
        }
        $output.Add([PSCustomObject]@{
            Program = $CBLFile.Name
            Description = $comments.ToString()
        })
    }
}

# 一次性导出到Excel
$output | Export-Excel -Path 'C:\Desc.xlsx' -WorksheetName 'XXXXX_Desc' -AutoSize

额外注意事项 #

确认你使用的是64位PowerShell：执行[Environment]::Is64BitProcess返回值为$true即可，32位PowerShell有4GB内存上限，无法利用服务器大内存。

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