idwma

#@&cls&powershell "type %~s0|out-string|iex"&pause&exit
$r='a5'
$c='f1'
$d='f5'
$t='abc'
dir 123.xls|%{
$a=(new-object -comobject excel.application).workbooks.open($_.fullname)
$b=$a.sheets.item(1)
$b.range($r).EntireRow.insert()
$b.range($c).Entirecolumn.insert()
$row=$b.range($d).row
$column=$b.range($d).column
$b.cells.item($row,$column)=$t
$b.Range($d).interior.colorindex=6
$b.Range($d).font.colorindex=3
$b.Range($d).font.bold=$true
$a.save()
$a.close() 
}
复制代码