VB.NET继承Excel Range接口扩展自定义属性的实现方案咨询

错误根因 #

你遇到的System.InvalidCastException（HRESULT: 0x80004002 E_NOINTERFACE）是COM互操作的底层机制导致的：

• .NET侧定义的继承自Range的MyRange2接口会被分配独立的COM接口标识符（IID），这个IID仅存在于你自己的程序集中，Excel进程内的原生Range COM对象从未实现过这个自定义接口。
• 当你将原生COM对象强转为MyRange2时，.NET运行库会调用COM对象的QueryInterface方法请求自定义接口的IID，Excel的COM对象无法识别该IID，自然返回"不支持此接口"的错误。
• COM的接口继承逻辑与.NET完全不同：COM不支持客户端侧直接扩展现有COM组件的接口定义，你无法仅通过在.NET代码中继承COM接口，就让原生COM对象"自动实现"你追加的成员。

方案1：扩展方法/扩展属性（推荐，最轻量无额外开销） #

这是.NET生态下扩展现有类型（包括COM互操作类型）成员的标准方案，不需要额外包装类，直接给原生Range类型追加自定义成员，调用时完全符合你预期的直接访问效果。
VB.NET实现示例：

Imports Microsoft.Office.Interop.Excel
Imports System.Runtime.CompilerServices

' 扩展成员必须定义在Module中
Module RangeCustomExtensions
    ' 为Range追加LastColumn自定义属性
    <Extension()>
    Public ReadOnly Property LastColumn(rng As Range) As Integer
        Get
            Return rng.Column + rng.Columns.Count - 1
        End Get
    End Property

    ' 其他需要追加的自定义成员都可以按这个格式写
End Module

调用代码示例：

Dim testRng As Range = Xl.Range("Test")
' 直接访问原生Range成员
Dim firstCol As Integer = testRng.Column
' 直接访问自定义属性
Dim lastCol As Integer = testRng.LastColumn

如果你使用的是VB.NET 14以前的版本（不支持扩展属性），可以将自定义逻辑改写为扩展方法，调用时写testRng.GetLastColumn()即可，逻辑完全一致。

方案2：透明包装类（需要存储自定义状态时使用） #

如果你需要追加的不是基于Range本身计算的无状态属性，而是需要给Range实例绑定额外的自定义状态（比如自定义标记、关联业务数据），可以实现透明包装类，通过隐式转换和成员透传实现和直接访问原生Range一致的体验。
实现示例：

Public Class MyRange
    ' 内部持有原生Range实例
    Private ReadOnly _coreRng As Range

    ' 构造函数接收原生Range实例
    Public Sub New(coreRng As Range)
        _coreRng = coreRng
    End Sub

    ' 自定义属性，可存储独立状态
    Public Property LastColumn As Integer
    ' 其他自定义状态属性可以按需求追加

    ' 按需透传常用的原生Range成员，不需要全量实现，用到什么加什么
    Public ReadOnly Property Column As Integer
        Get
            Return _coreRng.Column
        End Get
    End Property

    Public ReadOnly Property Row As Integer
        Get
            Return _coreRng.Row
        End Get
    End Property

    Public Property Value As Object
        Get
            Return _coreRng.Value
        End Get
        Set(value As Object)
            _coreRng.Value = value
        End Set
    End Property

    ' 隐式转换：支持原生Range直接赋值给MyRange类型
    Public Shared Widening Operator CType(coreRng As Range) As MyRange
        Return New MyRange(coreRng)
    End Operator

    ' 隐式转换：支持MyRange直接传给需要Range类型参数的Excel方法
    Public Shared Widening Operator CType(myRng As MyRange) As Range
        Return myRng._coreRng
    End Operator
End Class

调用代码示例：

' 直接赋值，不需要显式类型转换
Dim rng As MyRange = Xl.Range("Test")
' 直接访问透传的原生成员
Dim firstCol As Integer = rng.Column
' 直接访问自定义属性
rng.LastColumn = 5
' 可以直接作为参数传给Excel原生方法，不需要手动取内部Range实例
Xl.Range("A1").Copy(rng)

注意事项 #

不要尝试通过修改互操作程序集、手动重定义COM接口的方式给原生Range追加成员，这类方案会破坏COM互操作的兼容性，在不同Excel版本、不同环境下极易出现难以排查的异常。

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