powershell 批量修改excel第一个worksheet的名字

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()


}

下载

http://download.csdn.net/detail/wangzhpwang/9678762