PowerShell导出XLSM指定工作表及处理CSV表头换行问题

1. 用PowerShell导出.xlsm文件中的指定工作表 #

完全可以，两种常用实现方法如下：

方法1：依赖Excel COM对象（无需额外模块，需本地安装Excel） #

直接调用本地Excel实例导出指定工作表，适合无第三方模块的场景：

$xlsmPath = "C:\path\to\your\file.xlsm"
$csvOutputPath = "C:\path\to\output.csv"
$sheetName = "目标工作表名称"

# 初始化Excel对象
$excel = New-Object -ComObject Excel.Application
$excel.Visible = $false # 后台静默运行
$workbook = $excel.Workbooks.Open($xlsmPath)
$worksheet = $workbook.Sheets.Item($sheetName)

# 导出为CSV，Local参数会沿用系统区域设置的分隔符（比如你的示例用分号）
$worksheet.SaveAs($csvOutputPath, [Microsoft.Office.Interop.Excel.XlFileFormat]::xlCSV, Local:$true)

# 强制清理Excel进程，避免残留
$workbook.Close()
$excel.Quit()
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($worksheet) | Out-Null
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($workbook) | Out-Null
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($excel) | Out-Null
[System.GC]::Collect()
[System.GC]::WaitForPendingFinalizers()

方法2：使用ImportExcel模块（更简洁，无需安装Excel） #

ImportExcel是PowerShell Gallery的第三方模块，专门处理Excel文件，先安装模块（需管理员权限）：

Install-Module -Name ImportExcel -Scope CurrentUser -Force

然后导出指定工作表：

$xlsmPath = "C:\path\to\your\file.xlsm"
$csvOutputPath = "C:\path\to\output.csv"
$sheetName = "目标工作表名称"

# 直接读取指定工作表并导出为分号分隔的CSV
Import-Excel -Path $xlsmPath -WorksheetName $sheetName | Export-Csv -Path $csvOutputPath -Delimiter ';' -NoTypeInformation -Encoding UTF8

2. 将CSV表头中的换行符替换为空格 #

针对你提供的分号分隔CSV，两种处理方式：

方式1：直接修改已生成的CSV文件 #

读取CSV文本，替换表头中的换行符为空格：

$csvPath = "C:\path\to\your\file.csv"
$tempPath = "$csvPath.tmp"

# 读取全部内容，仅处理第一行（表头）的换行符
$content = Get-Content -Path $csvPath -Raw -Encoding UTF8
$processedContent = $content -replace '^([^;]+(;[^;]+)*)', { $matches[0] -replace "`r`n|`n", ' ' }

# 覆盖原文件
Set-Content -Path $tempPath -Value $processedContent -Encoding UTF8
Remove-Item -Path $csvPath -Force
Rename-Item -Path $tempPath -NewName (Split-Path $csvPath -Leaf) -Force

方式2：导出CSV时直接处理表头（推荐） #

用ImportExcel导出前先替换表头的换行符，一步到位：

$xlsmPath = "C:\path\to\your\file.xlsm"
$csvOutputPath = "C:\path\to\output.csv"
$sheetName = "目标工作表名称"

# 读取Excel数据
$excelData = Import-Excel -Path $xlsmPath -WorksheetName $sheetName
# 替换表头中的换行符
$cleanHeaders = $excelData[0].PSObject.Properties.Name | ForEach-Object { $_ -replace "`r`n|`n", ' ' }

# 动态生成属性映射，批量替换表头
$propertyMap = 0..($cleanHeaders.Count-1) | ForEach-Object {
    @{
        Name = $cleanHeaders[$_]
        Expression = { $_."$($excelData[0].PSObject.Properties.Name[$_])" }
    }
}

# 导出处理后的数据
$excelData | Select-Object $propertyMap | Export-Csv -Path $csvOutputPath -Delimiter ';' -NoTypeInformation -Encoding UTF8

处理效果示例 #

原表头：

Host name;Computer name old;IP-addr.;"IP-addr.
free?";"Subnetmask
CIDR Suffix";Static DNS entry;DNS alias;"vCPU Number
[Units]";"RAM
[GB]";"Boot disk
[GB]";;;;;;;;;

处理后表头：

Host name;Computer name old;IP-addr.;IP-addr. free?;Subnetmask CIDR Suffix;Static DNS entry;DNS alias;vCPU Number [Units];RAM [GB];Boot disk [GB];;;;;;;;;

内容的提问来源于stack exchange，提问作者Eduard M.