使用PowerShell选择特定的Excel列以导出到其他电子表格

# 引入Excel COM对象
$excel = New-Object -ComObject Excel.Application
$excel.Visible = $false

# 打开Excel文件
$workbook = $excel.Workbooks.Open("C:\path\to\input.xlsx")
$worksheet = $workbook.Worksheets.Item(1)

# 获取数据范围
$dataRange = $worksheet.UsedRange

# 获取列数
$columnCount = $dataRange.Columns.Count

# 定义要导出的列的索引，这里选择第2和第3列
$exportColumns = @(2, 3)

# 创建新的Excel文件用于导出
$newWorkbook = $excel.Workbooks.Add()
$newWorksheet = $newWorkbook.Worksheets.Item(1)

# 复制选择的列到新的Excel文件
foreach ($columnIndex in $exportColumns) {
    $columnToCopy = $worksheet.Columns.Item($columnIndex)
    $columnToCopy.Copy($newWorksheet.Columns.Item($columnIndex))
}

# 保存并关闭新的Excel文件
$savePath = "C:\path\to\output.xlsx"
$newWorkbook.SaveAs($savePath)
$newWorkbook.Close()

# 释放Excel COM对象
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($newWorksheet) | Out-Null
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($newWorkbook) | Out-Null
[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()

Write-Host "导出完成，保存路径为: $savePath"