运行时 COMException 未处理

Question

我正在开发一个可以写入 Excel 的应用程序。下面的 f 代码工作正常（它填充了请求的单元格），但生成了一个我无法摆脱的运行时异常。

    For i = 1 To 1000 Step 1
        If Not (cPart.Range("A" & i).Value = Nothing) Then
            If (cPart.Range("L" & i).Value = Nothing) Then
               cPart.Range("L" & i).Interior.ColorIndex = 3  
            End If
            i = i + 1
        End If
    Next

例外是： COMException 未处理：来自 HRESULT 的异常：0x800A01A8

有帮助吗？

Answer 1

该 HRESULT 表示需要对象。因此，您尝试操作的一个或多个对象似乎不存在，但由于目前编写了代码，因此很难确定它是哪个。不过，迫在眉睫的问题是您正在将值与 Nothing 进行比较，在 VB.Net 中，您应该使用 Is Nothing 来检查这一点。另外，您已经将 For 循环设置为从 1 到 1000，步长为 1（您不需要包含它，因为它是默认值），但您接下来要做的i = i + 1 这看起来像是一个错误？

因此，解决这个问题并将其分成几个部分可能会让您更好地了解哪些部分不起作用：

For i = 1 To 1000
    Dim aRange As Object = cPart.Range("A" & i)
    If aRange IsNot Nothing AndAlso aRange.Value IsNot Nothing Then
        Dim lRange As Object = cPart.Range("L" & i)
        If lRange IsNot Nothing AndAlso lRange.Value Is Nothing Then
            Dim interior As Object = lRange.Interior
            If interior IsNot Nothing Then
                interior.ColorIndex = 3  
            End If
        End If      
  End If
Next

我已将新对象声明为 Object ，它可能需要更改为正确的数据类型（取决于您的项目设置）。

希望您现在应该能够毫无错误地运行代码，并且还应该能够单步执行代码并找到新对象之一（aRange、lRange和 interior) 在某些不应该是 Nothing 的时候会告诉你为什么它之前抛出了这个错误。

像这样拆分代码的另一个优点是，您现在可以正确处理 Excel 对象，以便 Excel 实例可以干净地关闭。有关信息，请参阅此问答：Excel.Range 对象未处理，因此未关闭 Excel 进程