excel shell合成_PowerShell 合并excel

#设计思路，新建一个excel，将打开的excel表复制到新excel并关闭，继续下一个，一直到结束。

#版本要求 最低Excel 2013。10版本的默认需要删除3个表

$xl=New-Object -ComObject excel.application

$xl.visible=$false

$xl.AlertBeforeOverwriting=$false

$xl.DisplayAlerts=$false

$files=Get-ChildItem -Path d:\Report #存放excel文件的目录，可以做成弹出文件夹选择的模式。

$wb_dst=$xl.Workbooks.add()

$ws_dst=$wb_dst.Sheets.Item("Sheet1")

$Type_Missing=[System.Type]::Missing #若copy需要在某个之后，则copy第一个参数需要type missing

Write-Host "开始合并-----------------------------------------------" -ForegroundColor DarkCyan

foreach($file in $files){

$wb=$xl.Workbooks.Open($file.FullName)

$ws=$wb.sheets.item(1)

$ws.Copy($ws_dst)

$wb.Close()

}

$ws_dst.Delete() #删除默认的excel表

$wb_dst.SaveAs("D:\report.xlsx") #汇总存放的目录及文件名

$xl.Quit()

Write-Host "合并结束------------------------------------------" -ForegroundColor DarkYellow

×用微信扫描并分享