PowerShell脚本开发需求：遍历Excel文件并修改工作表名称

原脚本的核心问题 #

• 仅固定处理第一个工作表（$Everyexcel.Worksheet.item(1)），无法覆盖所有无固定排序的工作表
• 条件判断误用赋值运算符=，而非比较运算符-eq，导致逻辑完全失效
• 修改后未保存工作簿，所有操作仅停留在内存中
• 未清理Excel COM对象，易导致后台Excel进程残留
• 替换规则硬编码，后续扩展不便

修复后的完整脚本 #

param
(
    [Parameter(Mandatory=$true)][string]$InputPath
)

# 定义工作表名称替换映射，可按需添加更多规则
$sheetNameMap = @{
    "ABC" = "XYZ"
    "CDE" = "PRQ"
}

# 获取目标路径下的所有Excel文件
$ExcelFiles = Get-ChildItem -Path $InputPath -Filter *.xlsx -File

# 初始化Excel对象
$ExcelObject = New-Object -ComObject Excel.Application
$ExcelObject.DisplayAlerts = $false
$ExcelObject.Visible = $false

foreach ($ExcelFile in $ExcelFiles) {
    try {
        # 打开目标工作簿
        $workbook = $ExcelObject.Workbooks.Open($ExcelFile.FullName)
        
        # 遍历工作簿内所有工作表
        foreach ($worksheet in $workbook.Worksheets) {
            # 检查当前表名是否在替换规则内
            if ($sheetNameMap.ContainsKey($worksheet.Name)) {
                $newName = $sheetNameMap[$worksheet.Name]
                $worksheet.Name = $newName
                Write-Host "已修改文件 [$($ExcelFile.Name)]：[$($worksheet.Name)] → [$newName]"
            }
        }
        
        # 保存修改并关闭工作簿
        $workbook.Save()
        $workbook.Close()
    }
    catch {
        Write-Error "处理文件 [$($ExcelFile.Name)] 失败：$_"
        # 异常时强制关闭工作簿，避免占用
        if ($workbook) { $workbook.Close($false) }
    }
}

# 清理Excel COM对象，释放资源
$ExcelObject.Quit()
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($ExcelObject) | Out-Null
Remove-Variable ExcelObject

关键改进点 #

• 用哈希表管理替换规则，新增/修改规则只需修改映射表
• 遍历工作簿内所有工作表，彻底解决无固定排序的问题
• 用ContainsKey判断是否需要替换，避免冗余的多条件判断
• 加入try/catch异常处理，单个文件出错不影响整体遍历
• 强制保存并关闭工作簿，确保修改写入磁盘
• 最后清理COM对象，彻底释放Excel进程资源

内容的提问来源于stack exchange，提问作者Aaron