使用 PowerShell 将 Excel 中的工作表提取到单独的文件中

Question

我正在尝试将具有多张工作表的 excel 文件拆分为多个文件，并搜索了此博客：Extract worksheets from Excel into separate files with PowerShell。我尝试了 xls 文件，它工作正常。但是当我尝试使用 xlsx 文件时，它只输出整个源文件，当我使用 Excel 应用程序打开生成的文件时，每个工作表都作为默认工作表。我为解决方案而苦苦挣扎，但没有运气。我的测试代码就像一击：

$Excel = New-Object -ComObject "Excel.Application" 
$Excel.Visible = $false #Runs Excel in the background. 
$Excel.DisplayAlerts = $false #Supress alert messages. 

$filepath ="D:\powershell\test.xlsx"
$Workbook = $Excel.Workbooks.open($filepath)
$WorkbookName = "test.xlsx"
$output_type = "xlsx"

if ($Workbook.Worksheets.Count -gt 0) { 
    write-Output "Now processing: $WorkbookName" 
    $FileFormat = [Microsoft.Office.Interop.Excel.XlFileFormat]::xlOpenXMLWorkbook 

    $WorkbookName = $filepath -replace ".xlsx", "" 

    foreach($Worksheet in $Workbook.Worksheets) {
        $ExtractedFileName = $WorkbookName + "~~" + $Worksheet.Name + "." + $output_type 
        $Worksheet.SaveAs($ExtractedFileName, $FileFormat) 

        write-Output "Created file: $ExtractedFileName"
    }
} 

$Workbook.Close() 
$Excel.Quit() 

Answer 1

按照标准 Excel 实践，将工作表复制到无目的地将创建一个新工作簿，该工作表作为单独的工作表，该工作簿将是 ActiveWorkbook。

$Excel = New-Object -ComObject "Excel.Application" 
$Excel.Visible = $false #Runs Excel in the background. 
$Excel.DisplayAlerts = $false #Supress alert messages. 

$filepath ="D:\powershell\test.xlsx"
$Workbook = $Excel.Workbooks.open($filepath)
$WorkbookName = "test.xlsx"
$output_type = "xlsx"

if ($Workbook.Worksheets.Count -gt 0) { 
    write-Output "Now processing: $WorkbookName" 
    $FileFormat = [Microsoft.Office.Interop.Excel.XlFileFormat]::xlOpenXMLWorkbook 

    $WorkbookName = $filepath -replace ".xlsx", "" 

    foreach($Worksheet in $Workbook.Worksheets) {
        $Worksheet.Copy()
        $ExtractedFileName = $WorkbookName + "~~" + $Worksheet.Name + "." + $output_type 
        $Excel.ActiveWorkbook.SaveAs($ExtractedFileName, $FileFormat) 
        $Excel.ActiveWorkbook.Close

        write-Output "Created file: $ExtractedFileName"
    }
} 

$Workbook.Close() 
$Excel.Quit() 
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($Excel)
Stop-Process -Name EXCEL
Remove-Variable Excel

现在确实将工作簿传播到多个工作簿中，每个工作簿都有一个原始工作表的副本。我在其末尾添加了几个“谋杀 Excel”命令，以便不在任务管理器的“进程”选项卡中出现一个流氓（且不可见）的 excel.exe。

在How to Open; SaveAs; then Close an Excel 2013 (macro-enabled) workbook from PowerShell4 中删除最后一个 excel.exe 实例有一个很好的线程。