使用COM对象时PowerShell向Excel写入ASCII码而非字符的问题

当数组全填充为'-'时Excel显示ASCII码45，个别填充时却正常，核心原因是Excel对纯'-'的单元格自动做了类型解析：

• 个别'-'存在时，周围有文本内容，Excel默认按文本处理；
• 整列都是'-'时，Excel会将其识别为数值相关格式（如空数值占位符），导致显示为ASCII码值45。

方案1：统一给所有'-'添加前置单引号 #

修改数组填充逻辑，给'-'也加上前置单引号，和非空值的处理保持一致，强制Excel按文本解析：

foreach ($array in $Arrays){
    $index = 0
    while ($index -ne $IDArray.Count) {
        try {
            if([String]::IsNullOrEmpty($array[$index])){
                $array[$index] = "'-"  # 给'-'添加单引号强制文本类型
            }
            else {
                $array[$index] = "'" + $array[$index]
            }
        }
        catch {
            $array = $array + "'-"  # 异常分支也同步修改
        }
        finally{
            $index++
        }
    }

    $Arrays[$IndexArrays] = $array
    $IndexArrays++
    $array = @()
}

方案2：先设置单元格格式为文本再赋值 #

在写入Excel前，将目标区域的单元格格式统一设为文本，彻底避免Excel自动解析类型：

# 先设置目标区域为文本格式
$startCell = $ExcelComObjectWorkSheetMuster.Cells.Item($IDIndexMuster, 1)
$endCell = $ExcelComObjectWorkSheetMuster.Cells.Item($IDIndexMuster + $IDArray.Count -1, $j-1)
$targetRange = $ExcelComObjectWorkSheetMuster.Range($startCell, $endCell)
$targetRange.NumberFormat = "@"  # 文本格式标识

# 执行原写入逻辑
$ArrayIndex2 = 0
$CounterSpalte = 1
$CounterZeile = 0
$ArrayIndex1 = 0

while ($CounterZeile -lt $IDArray.Count) {
    while($CounterSpalte -lt $j){
        $ExcelComObjectWorkSheetMuster.Cells.Item($IDIndexMuster + $CounterZeile, $CounterSpalte) = $Arrays[$ArrayIndex1][$ArrayIndex2]
        $ArrayIndex1++
        $CounterSpalte++
    }
    $ArrayIndex1 = 0
    $ArrayIndex2++
    $CounterZeile++
    $CounterSpalte = 1
}

• 简化写入循环，提升代码可读性：

# 替换原嵌套while循环的简洁写法
for ($row = 0; $row -lt $IDArray.Count; $row++) {
    for ($col = 0; $col -lt $Arrays.Count; $col++) {
        $cell = $ExcelComObjectWorkSheetMuster.Cells.Item($IDIndexMuster + $row, $col + 1)
        $cell.Value = $Arrays[$col][$row]
    }
}

• 用foreach重构数组填充逻辑，减少索引操作的出错概率：

foreach ($array in $Arrays){
    $filledArray = @()
    foreach ($item in $array) {
        $filledArray += [String]::IsNullOrEmpty($item) ? "'-" : "'$item"
    }
    # 补全数组长度到与IDArray一致
    while ($filledArray.Count -lt $IDArray.Count) {
        $filledArray += "'-"
    }
    $Arrays[$IndexArrays] = $filledArray
    $IndexArrays++
}

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