Visio 2010标准版VBA操作DataRecordset报错，求解决方法

原因分析 #

Microsoft Visio 2010标准版不支持DataRecordset对象及相关功能，这类数据链接与管理特性仅在Visio 2010专业版和高级版中提供，这是官方明确的版本功能差异。

可行解决方案 #

1. 升级Visio版本 #

如果业务场景必须使用DataRecordset的相关功能，唯一直接的解决办法是升级到Visio 2010专业版或高级版，这两个版本完整支持数据记录集的创建、操作等所有特性。

2. 替代实现方案（无需升级版本） #

若无法升级版本，可以通过以下方式实现类似的数据关联需求：

• 手动将数据添加到形状的**形状数据（Shape Data）**中：右键形状 → 数据 → 形状数据，手动输入或批量导入数据。
• 用VBA操作ShapeSheet属性存储数据：通过访问形状的Shape.Cells属性来读写自定义数据，示例代码如下：

Public Sub AddShapeData()
    Dim shp As Visio.Shape
    ' 获取页面上的第一个形状
    Set shp = ThisDocument.Pages(1).Shapes(1)
    ' 添加自定义数据行
    shp.AddRow visSectionProp, visRowProp + 1, visTagDefault
    ' 设置数据名称和值
    shp.CellsSRC(visSectionProp, visRowProp + 1, visCustPropsName).FormulaU = """CustomerID"""
    shp.CellsSRC(visSectionProp, visRowProp + 1, visCustPropsValue).FormulaU = """C001"""
End Sub

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