Excel VBA能否将富数据类型值赋值给变量？报错如何解决

• 需求：将B2单元格通过Excel富数据类型（Rich data type）获取的股票代码（ticker symbol）存入变量，操作界面参考：
• 触发规则：修改A2单元格内容时自动执行VBA过程
• 原实现代码：

Private Sub Worksheet_Change(ByVal Target As Range)
        Dim Ticker As String
        
        If Target.Address = "$A$2" Then
            Ticker = Activesheet.Range("B2").Value
            MsgBox Ticker
        End If

End Sub

• 故障表现：尝试将变量声明为Variant、String类型，或强制转换取值为文本/字符串格式均未生效，运行时抛出运行时错误'13'：类型不匹配，调试时查看Ticker变量为空字符串。
• 待确认点：该赋值操作是否可行，原代码的错误位置。

直接调用富数据类型单元格的.Value属性时，返回的不是普通的字符串/数值基础类型，而是关联数据类型（Linked Data Type）的对象本体，直接给String类型变量赋值对象类型必然触发类型不匹配错误。
同时富数据类型的联网数据是异步加载的，A2修改触发Worksheet_Change事件时，B2关联的股票数据可能还没完成拉取，此时取值会得到空结果。

富数据类型的字段值不能直接取.Value，需要通过Range.Value(字段属性名)的方式指定要提取的具体字段，股票代码对应的属性名为Ticker。同时需要补充事件防递归、数据加载容错逻辑，修正后代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Ticker As String
    
    ' 非A2单元格修改时直接退出过程
    If Target.Address <> "$A$2" Then Exit Sub
    
    ' 关闭事件触发，避免过程中修改单元格引发递归死循环
    Application.EnableEvents = False
    ' 容错：数据未加载完成时不抛出致命错误
    On Error Resume Next
    
    ' 指定提取富数据类型的Ticker（股票代码）字段
    Ticker = Me.Range("B2").Value("Ticker")
    
    ' 恢复错误捕获和事件触发
    On Error GoTo 0
    Application.EnableEvents = True
    
    ' 结果判断
    If Len(Ticker) > 0 Then
        MsgBox Ticker
    Else
        MsgBox "股票数据正在加载，请稍后重试"
    End If
End Sub

如果需要提取富数据类型的其他字段，只需将代码中"Ticker"替换为对应字段名即可，所有支持的字段可以通过在单元格输入=B2.后弹出的自动补全列表查看。

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