xczxczxcz

来个PS的。

$Excel=New-Object -ComObject Excel.Application
$Excel.Visible=$false
Get-ChildItem ".\*" -Include *.xlsx,*.xls -Recurse|%{
	$Workbook=$Excel.Workbooks.Open($_.FullName)
	#脚本只修改第一页
	$Sheet=$Workbook.WorkSheets.Item(1)
	$Sheet.Cells.Item(3,2)='文字一'
	$Sheet.Cells.Item(4,2)='文字二'
	$Sheet.Cells.Item(5,2)='文字三'
	$Workbook.WorkSheets.item(1).Name='第1页修改'
	$Workbook.Close()
	$Excel.Quit()
}
Gps|?{$_.Name -match "Excel"}|Select $_|Stop-Process
pause
复制代码

==================

xczxczxcz

回复 5# flashercs

这条好像不起作用。
不过 倒是在第11条前少了一条 自动保存  $Workbook.Save()

xczxczxcz

回复 7# flashercs

WIN10  X64   Office 2016 木有任何问题。

xczxczxcz

回复 7# flashercs

$Excel.quilt() 放‘}’循环内或外，没发现任何问题。

...
	$Sheet.Cells.Item(3,2)='文字一'
	$Sheet.Cells.Item(4,2)='文字二'
	$Sheet.Cells.Item(5,2)='文字三'
	$Workbook.Save()
	$Workbook.Close()
	$Excel.Quit()
}
复制代码

----------------

...
	$Sheet.Cells.Item(3,2)='文字一'
	$Sheet.Cells.Item(4,2)='文字二'
	$Sheet.Cells.Item(5,2)='文字三'
	$Workbook.Save()
	$Workbook.Close()
}
$Excel.Quit()
复制代码

发现都没有区别。