Excel VBA运行时错误458：变量使用VB不支持的自动化类型

针对你遇到的运行时错误458，结合你用JsonConverter解析{"ok":true,"result":[]}的场景，大概率是变量类型不匹配或者对JsonConverter返回的对象类型操作不当导致的，以下是具体的排查和解决线索：

1. 先确认基础依赖是否正确 #

JsonConverter模块依赖Microsoft Scripting Runtime引用，你可以按以下步骤检查：

• 打开VBA编辑器 → 工具 → 引用
• 确保Microsoft Scripting Runtime选项已勾选，没有的话找到它并勾选

2. 检查变量声明与JsonConverter返回类型的匹配度 #

JsonConverter解析JSON后返回的是**Dictionary（根对象）或Collection（数组）**类型的对象，不是VBA原生的数组或基本类型，如果你用了错误的变量类型接收，就会触发458错误：

• 对于你的JSON，根对象是Dictionary，其中：
  • ok是Boolean类型的值
  • result是空的Collection对象
• 错误示例（直接用原生数组接收Collection）：

  Dim arr() As Variant
  arr = JsonConverter.ParseJson("{""ok"":true,""result"":[]}")("result") ' 这里会报错458
  

• 正确的声明方式：

  Dim jsonRoot As Object ' 或直接声明为 Dictionary
  Set jsonRoot = JsonConverter.ParseJson("{""ok"":true,""result"":[]}")
  
  Dim resultCollection As Collection
  Set resultCollection = jsonRoot("result") ' 用Collection类型接收数组对象
  

3. 定位最后一行代码的问题 #

错误出现在最后一行，你可以通过以下方式排查：

• 用TypeName()函数打印变量类型，确认操作的对象类型：

  Debug.Print TypeName(jsonRoot("result")) ' 应该输出"Collection"
  

• 如果最后一行是尝试将Collection赋值给原生数组，需要手动遍历转换：

  ' 将空Collection转成Variant数组（示例）
  Dim arr() As Variant
  ReDim arr(0 To resultCollection.Count - 1)
  
  Dim i As Integer
  For i = 1 To resultCollection.Count
      arr(i - 1) = resultCollection(i)
  Next i
  

• 如果是访问ok属性时出错，确保没有把它赋值给不兼容的类型（比如把Boolean赋值给需要字符串的变量，不过这种情况更多是类型不匹配而非458错误）

4. 其他可能的排查点 #

• 确认JsonConverter模块是最新版本，旧版本可能存在某些类型解析的bug
• 检查监视窗口中变量的类型：如果result显示为Collection/Empty，那说明解析是正常的，问题出在你对这个Collection的后续操作上

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