VB.NET读取含AA/AB等超Z列的Excel报错HRESULT:0x800A03EC求助

你的代码里用CChar(ChrW(65 + j)) & i生成单元格地址，当j >= 26时，65 + 26 = 91，对应ASCII字符是[，所以会生成[1这种无效的Excel单元格地址，这就是导致HRESULT:0x800A03EC错误的根本原因——Excel无法识别这种非法的单元格引用。

需要实现一个能将列索引（从0开始）转换为Excel标准列名（如A、B...Z、AA、AB...）的函数，替换原来的地址生成逻辑。

列索引转Excel列名函数 #

Private Function GetExcelColumnName(columnIndex As Integer) As String
    Dim columnName As String = ""
    Dim currentIndex As Integer = columnIndex + 1 ' 转换为从1开始的索引
    While currentIndex > 0
        Dim remainder As Integer = (currentIndex - 1) Mod 26
        columnName = ChrW(65 + remainder) & columnName
        currentIndex = (currentIndex - remainder - 1) \ 26
    End While
    Return columnName
End Function

修改后的代码 #

For i = 1 To 1
    For j = 0 To mColumn - 1 Step 1
        Dim columnName As String = GetExcelColumnName(j)
        ExcelRange = wsExcel.Range(columnName & i)
        For k = 0 To NomColonne.Count - 1
            If ExcelRange.Value IsNot Nothing Then
                If ExcelRange.Value.ToString() = NomColonne(k) Then
                    NoLigne(k) = i
                    NoColonne(k) = j
                End If
            End If
        Next k
    Next j
Next i

额外优化说明 #

• 原代码里的ExcelRange.Value <> Nothing建议改为ExcelRange.Value IsNot Nothing，这是VB.NET中判断对象是否为空的标准写法。
• 函数GetExcelColumnName将从0开始的索引转换为Excel的列名逻辑：先把索引转为从1开始（因为Excel列是从A=1开始），然后通过取余和整除循环生成列名，支持无限多级列（如AAA、AAB等）。

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