PowerShell生成Excel文件后提示损坏或格式错误，寻求技术指导

问题根源分析 #

你的代码存在三个核心问题导致文件损坏：

• 变量混淆覆盖：初始$Excel是Excel应用程序对象，后续执行$Excel = $Excel.Workbooks.Add()后，$Excel被替换为Workbook对象，导致后续调用SaveAs、Close等方法时对象类型混乱。
• 重复保存冲突：连续执行两次SaveAs，第一次用数字1（对应xls格式），第二次用xlsx格式枚举值，两次保存会导致文件格式冲突损坏。
• COM对象未正确清理：未关闭Excel应用程序、未释放COM对象，残留进程可能导致文件锁定或损坏。

修正后的代码 #

$SaveAsPathFinal = "C:\Temp\myfile.xlsx"
# 用独立变量区分Excel应用和工作簿，避免覆盖
$excelApp = New-Object -ComObject Excel.Application
Add-Type -AssemblyName Microsoft.Office.Interop.Excel
$xlOpenXMLWorkbook = [Microsoft.Office.Interop.Excel.XlFileFormat]::xlOpenXMLWorkbook

$excelApp.Visible = $True
$workBook = $excelApp.Workbooks.Add()
$sheet = $workBook.Worksheets.Item(1)
$sheet.Name = "Printer Inventory"

# 写入表头
$sheet.Cells.Item(1,1) = "Print Server"
$sheet.Cells.Item(1,2) = "Printer Name"

$intRow = 2
$usedRange = $sheet.UsedRange
$usedRange.Interior.ColorIndex = 40
$usedRange.Font.ColorIndex = 11
$usedRange.Font.Bold = $True
$PrintServerCounter = 0

# 循环写入打印机数据
foreach ($PrinterInfo in $Script:Jobs_PrinterInfo)
{
    $sheet.Cells.Item($intRow, 1) = $PrinterInfo.Server
    $sheet.Cells.Item($intRow, 2) = $PrinterInfo.Name
    $intRow ++
}

# 自动调整列宽
$usedRange.EntireColumn.AutoFit() | Out-Null

# 写入完成提示行
$intRow ++ 
$sheet.Cells.Item($intRow,1) = "Printer inventory completed"
$sheet.Cells.Item($intRow,1).Font.Bold = $True
$sheet.Cells.Item($intRow,1).Interior.ColorIndex = 40
$sheet.Cells.Item($intRow,2).Interior.ColorIndex = 40
Write-Verbose "$(Get-Date): Completed!"

# 单次正确保存，使用xlsx格式
$workBook.SaveAs($SaveAsPathFinal, $xlOpenXMLWorkbook)
$workBook.Saved = $True

# 关闭工作簿与Excel应用
if ($CloseReportFile)
{
    $workBook.Close()
    $excelApp.Quit()
}

# 释放COM对象，清理残留进程
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($sheet) | Out-Null
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($workBook) | Out-Null
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($excelApp) | Out-Null
[System.GC]::Collect()
[System.GC]::WaitForPendingFinalizers()

关键修改说明 #

1. 变量分离：用$excelApp存储Excel应用程序对象，$workBook存储工作簿对象，彻底避免变量覆盖问题。
2. 单一保存操作：仅执行一次SaveAs，指定正确的xlsx格式枚举值，避免格式冲突。
3. 完整资源清理：关闭工作簿和Excel应用后，通过Marshal释放COM对象并触发垃圾回收，彻底清理Excel进程，防止文件锁定。

切换为xls格式的方法 #

若需要保存为xls格式，只需修改两处：

• 将$xlOpenXMLWorkbook替换为[Microsoft.Office.Interop.Excel.XlFileFormat]::xlWorkbookNormal
• 将文件路径的扩展名改为.xls，即$SaveAsPathFinal = "C:\Temp\myfile.xls"

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