Batcher

回复 1# 19219962414


test-1.bat

# & cls & @cd /d "%~dp0" & powershell "Get-Content '%~0' | Out-String | Invoke-Expression " & exit /b
$Excel = New-Object -ComObject Excel.Application
$Excel.Visible = $false
$Workbook = $Excel.Workbooks.Open("$PWD\1.xlsx")
$Sheet = $Workbook.WorkSheets.Item(1)
$n = 100
[void]$Sheet.Range("45:$($n+16)").Delete()
$Workbook.Save()
$Workbook.Close()
$Excel.Quit()
复制代码