Scripting.Dictionary等对象类型判断的性能问题规避方案

API 探路者

2026-10-1

TypeName调用Scripting.Dictionary性能问题解决方案

核心根因

TypeName对COM对象的类型判断需要走COM接口的IDispatch::GetTypeInfo调用，Scripting.Dictionary的类型信息读取逻辑开销远高于其他COM对象，是性能问题的核心来源。

可落地优化方案

优先使用TypeOf做类型判断
对于已添加Microsoft Scripting Runtime引用的前期绑定场景，直接用TypeOf判断对象类型，该方法直接读取对象虚表接口标识，无额外COM调用开销，对Scripting.Dictionary的判断耗时稳定在0.2~0.5µs，性能提升上千倍。
代码示例：
```
If TypeOf targetObj Is Scripting.Dictionary Then
    ' 对应业务逻辑
End If
```
注意：TypeOf仅支持对象类型判断，Double等基础类型仍可使用VarType或TypeName判断，性能无影响。
提前缓存类型标识，避免循环内重复判断
若需要批量处理一批混合类型的变量，可在变量存入集合/数组时并行存储类型标记：
1. 新增一个和业务数据同长度的布尔数组，预先标记对应位置的对象是否为Dictionary
2. 或封装自定义类，同时存储业务对象和类型标识属性
  循环处理时直接读取预存的标记，完全无需调用TypeName。
后期绑定场景下的替代方案
若使用CreateObject("Scripting.Dictionary")的后期绑定场景无法使用TypeOf，可在创建Dictionary时添加一个唯一标识的特殊键：
```
Dim dict As Object
Set dict = CreateObject("Scripting.Dictionary")
dict("__internal_type_tag") = "Scripting.Dictionary"
```
判断时直接检查该特殊键是否存在，耗时仅1~2µs，远低于TypeName调用。
前置过滤减少TypeName调用次数
若必须使用TypeName做判断，可先通过VarType做前置过滤：仅当VarType(targetObj) = vbObject（值为9）时才调用TypeName，基础类型直接通过VarType判断即可，可过滤掉绝大多数不需要调用TypeName的场景。