如何在Excel数据录入表单中正确使用数据类型，解决VBA复制股票数据类型报错问题

问题根因 #

你遇到的报错是Excel「股票」链接数据类型的特性导致的：这类数据是包含多字段的结构化对象，不是普通文本/数值，直接读取.Value/.Value2无法拿到可直接赋值的有效内容，会返回#VALUE!错误；你之前拿到的TRUE是.ConvertToLinkedDataType方法执行成功的返回值，被直接写入了单元格。

解决方案 #

场景1：仅需要存储股票代码纯文本，不需要保留链接数据属性 #

直接读取股票对象的对应代码字段即可，A股/美股通用的代码字段名为Ticker，将原赋值代码替换为：

database.Cells(iRow, 3).Value = frm.Range("F5").Field("Ticker").Value

场景2：需要数据库列也保留股票链接类型，支持后续调取市值、市盈率等数据 #

先写入股票代码再执行类型转换即可，示例代码如下：

' 写入纯股票代码到目标单元格
database.Cells(iRow, 3).Value = frm.Range("F5").Field("Ticker").Value
' 转换为中文环境下的股票链接类型，ServiceID=2625对应股票类数据
database.Cells(iRow, 3).ConvertToLinkedDataType ServiceID:=2625, LanguageCulture:="zh-CN"

如果需要适配英文环境，将LanguageCulture参数改为"en-US"即可。

可选补充：验证转换结果 #

可增加判断逻辑确认转换成功，方便后续自动拉取其他股票字段：

If database.Cells(iRow, 3).LinkedDataTypeType = xlLinkedDataTypeTypeStocks Then
    ' 示例：自动填充市值到第四列
    database.Cells(iRow, 4).Value = database.Cells(iRow, 3).Field("市值").Value
End If

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