Excel Interop设置UsedRange值时触发0x800A03EC错误的排查

我正在将Excel工作表转换为CSV格式，由于部分单元格存在合并情况，希望取消合并并复制数据以避免丢失。但运行以下PowerShell代码时，在标注的行触发0x800A03EC错误：

$Script:comExcelWB = $Script:comExcelApp.Workbooks.Open($TargetXlsxPath.FullName)
foreach ($Script:comExcelWS in $Script:comExcelWB.Worksheets) {
    if ($Script:comExcelWS.Visible) {
        $Script:comExcelWS.Select()
        foreach ($Script:comExcelRNG in $Script:comExcelWS.UsedRange) {
            if ($Script:comExcelRNG.MergeCells) {
                $Script:comExcelMA = $Script:comExcelRNG.MergeArea
                $Script:comExcelRNG.UnMerge()
                $Script:comExcelMA.Value = $Script:comExcelRNG.Value # 此处触发0x800A03EC错误
            }
        }
        $Script:comExcelWB.SaveAs("$($WSDestination.FullName)\$($Script:comExcelWS.Name).csv",
            [Microsoft.Office.Interop.Excel.XlFileFormat]::xlCSV, [Microsoft.Office.Interop.Excel.XlSaveAsAccessMode]::xlNoChange)
    }
}

你忽略的核心要点 #

• 取消合并后MergeArea失效：执行UnMerge()后，原合并区域的MergeArea属性已不再指向有效范围——单元格拆分后，MergeArea会变成单个单元格，此时再对它赋值必然引发错误。正确流程是先保存合并区域的内容，再取消合并，最后给拆分后的所有单元格赋值。
• 遍历逻辑重复处理：直接遍历UsedRange的每个单元格会重复处理合并区域内的单元格，比如一个跨3行的合并单元格会被遍历3次，每次都触发合并判断，导致冗余操作。应该先批量获取所有合并区域，再逐个处理。
• 赋值对象错误：合并单元格的内容仅存储在左上角单元格，原代码试图给已失效的MergeArea赋值，正确做法是先提取左上角单元格的值，再将值批量设置到拆分后的所有单元格中。

修正后的代码示例 #

$Script:comExcelWB = $Script:comExcelApp.Workbooks.Open($TargetXlsxPath.FullName)
foreach ($Script:comExcelWS in $Script:comExcelWB.Worksheets) {
    if ($Script:comExcelWS.Visible) {
        # 批量获取所有合并区域
        $mergedRanges = $Script:comExcelWS.UsedRange.SpecialCells([Microsoft.Office.Interop.Excel.XlCellType]::xlCellTypeSameFormatConditions) | Where-Object { $_.MergeCells }
        
        foreach ($mergeRange in $mergedRanges) {
            # 提取合并区域的内容（仅左上角单元格存储值）
            $cellValue = $mergeRange.Cells(1,1).Value2
            # 取消单元格合并
            $mergeRange.UnMerge()
            # 给拆分后的所有单元格赋值
            $mergeRange.Value2 = $cellValue
        }

        $Script:comExcelWB.SaveAs("$($WSDestination.FullName)\$($Script:comExcelWS.Name).csv",
            [Microsoft.Office.Interop.Excel.XlFileFormat]::xlCSV, [Microsoft.Office.Interop.Excel.XlSaveAsAccessMode]::xlNoChange)
    }
}

额外说明 #

• 使用SpecialCells筛选合并区域比逐个遍历单元格效率更高，避免重复处理。
• 优先使用Value2，它比Value更高效，且不会自动转换日期/货币类型为COM对象，减少类型错误。

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