rename-workbook.bat
@echo off
powershell -file .\rename-workbook.ps1 %cd% "请不要修改些处"
@pause
rename-workbook.ps1
CLS
cd $args[0]
$xldoc = New-Object -ComObject "Excel.Application"
foreach($file in ls *.xls*){
$excelFile=$file.FullName
“$($args[1]) --> renaming the first worksheet name from $($file.Name)”
$xldoc.Visible = $false
$xldoc.DisplayAlerts = $false
$xldoc.AutomationSecurity = 'msoAutomationSecurityForceDisable'#禁用宏提示
$workbook = $xldoc.Workbooks.Open($excelFile)
foreach ($worksheet in $workbook.Worksheets)
{
$n = $ExcelFileName ##+ "_" + $worksheet.Name
$worksheet = $workbook.worksheets.item(1)
$worksheet.name = "$($args[1])"
$workbook.Save()
$workbook.Close()
}
$xldoc.Quit()
}
下载