我帮你梳理下这个VBA导出JSON时遇到的问题，从几个关键方向排查和修复：

1. 先确认VBA-JSON库是否正确导入 #

你用到的JsonConverter.ConvertToJson是第三方库（VBA-JSON）的功能，这是最容易忽略的点：

• 打开VBA编辑器（按Alt+F11）
• 右键点击你的项目 → 「导入文件」→ 选择JsonConverter.bas模块（如果还没获取这个库，你需要先下载它的模块文件并导入到项目中）
• 另外，这个库依赖Dictionary对象，所以还要确保启用了「Microsoft Scripting Runtime」引用：在VBA编辑器的「工具」→「引用」里勾选这个选项。

2. 修复代码里的语法和逻辑错误 #

你的代码里有几个小问题，会直接导致运行时错误或者结果不符合预期：

• 多余的End If：If ws Is Nothing Then Exit Sub后面的End If是多余的，这会触发编译错误，直接删掉这行。
• 未指定工作表的单元格引用：Cells(1,1).CurrentRegion和循环里的Cells(i,1)等都没有绑定到你指定的ws工作表，默认会用当前活动工作表，这会导致数据读取错误。要改成：

  Set excelRange = ws.Cells(1, 1).CurrentRegion
  ' 循环内的单元格也要加上ws前缀，同时显式写.Value更稳妥
  jsonDictionary("Institution-id") = ws.Cells(i, 1).Value
  

• 未关闭文件：原代码写完文件后没有关闭，可能导致文件被占用或者内容写入不完整，要加上jsonFileExport.Close。

3. 修复后的完整代码 #

这里是调整后的可运行代码，你可以直接替换测试：

Private Sub CommandButton3_Click()
    Dim wb As Workbook: Set wb = ThisWorkbook
    Dim ws As Worksheet
    Set ws = wb.Sheets("Draft Log")
    If ws Is Nothing Then Exit Sub ' 处理工作表未找到的情况
    
    Dim excelRange As Range
    Dim jsonItems As New Collection
    Dim jsonDictionary As Dictionary
    Dim jsonFileObject As Object
    Dim jsonFileExport As Object
    Dim i As Long
    
    ' 绑定到指定工作表的当前数据区域
    Set excelRange = ws.Cells(1, 1).CurrentRegion
    
    For i = 2 To excelRange.Rows.Count
        Set jsonDictionary = New Dictionary ' 每次循环新建一个字典对象
        jsonDictionary("Institution-id") = ws.Cells(i, 1).Value
        jsonDictionary("record-id") = ws.Cells(i, 2).Value
        jsonDictionary("anonymous") = ws.Cells(i, 3).Value
        jsonItems.Add jsonDictionary
    Next i
    
    ' 修改为你实际的保存路径
    Set jsonFileObject = CreateObject("Scripting.FileSystemObject")
    Set jsonFileExport = jsonFileObject.CreateTextFile("C:\Users\你的用户名\Desktop\jsonExample.json", False)
    jsonFileExport.WriteLine JsonConverter.ConvertToJson(jsonItems, Whitespace:=3)
    jsonFileExport.Close ' 关闭文件释放资源
End Sub

4. 其他可能的报错原因 #

• 路径权限问题：确保你填写的保存路径是存在的，并且你的账户有写入权限（比如不要写到系统盘的根目录，桌面是比较安全的选择）。
• 数据格式问题：如果工作表里的单元格包含特殊字符（比如双引号、换行符），可能导致JSON转换失败，你可以先检查数据，或者在读取时处理这些特殊字符。

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