VBA中Variant访问Scripting Dictionary元素的性能损耗问题

• 优化字典取值逻辑，避免循环内重复哈希查询
  Scripting.Dictionary的Item属性每次通过key访问都会执行一次哈希查找，嵌套层级深、字典元素多的时候累计开销非常高。可以一次性预读取字典的Keys和Items数组，通过索引直接取值，省略每次循环的字典查询步骤：

  If TypeOf itemToParse Is Scripting.Dictionary Then
      Dim dict As Scripting.Dictionary
      Set dict = itemToParse
      ' 一次性加载所有键和值，仅做一次字典读取
      Dim keys As Variant, items As Variant
      keys = dict.Keys
      items = dict.Items
      
      Dim i As Long
      For i = LBound(keys) To UBound(keys)
          ' 直接通过索引取预加载的元素，无需查询字典
          parseToJSON items(i)
      Next i
  End If
  

• 显式声明参数传递规则，减少隐式类型检查开销
  当前函数参数默认是按引用传递（VBA默认ByRef），传入itemToParse(key)这种临时值时会触发隐式的值拷贝和类型校验，建议将参数显式声明为按值传递：

  Function parseToJSON(ByVal itemToParse As Variant) As String
  

  显式声明后编译器会提前处理参数传递逻辑，避免运行时额外的隐式检查。
• 调整类型判断顺序，减少无效匹配开销
  将高频出现的变量类型放到Select Case的最前面，比如业务场景里字符串、数值类型占比最高，就把vbString、vbLong、vbDouble这些Case放在最靠前的位置，匹配到就直接执行对应逻辑，不用遍历后续不相关的类型判断。
• 修复代码拼写错误
  现有代码中递归调用写的是parsetojon，和函数名parseToJSON拼写不一致，虽然VBA不区分大小写，但是会增加运行时的名称解析开销，建议统一修正为正确的函数名。

额外优化提示：如果使用的是32位/64位完整版VBA，可以在VBA编辑器的「工具-选项-通用」中勾选「编译为原生代码」，选择「优化代码速度」，编译后执行速度可以提升30%以上。

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