VBA 修改多个 JSON 文件中特定字段值：代码示例和实现步骤

这段代码演示了如何使用 VBA 脚本批量修改多个 JSON 文件中特定字段的值。

代码中调用了两个自定义函数：ReadFile 和 WriteFile，分别用于读取和写入 JSON 文件内容。这两个函数在代码中并没有定义，需要自行实现。

实现步骤：

定义 ReadFile 函数： 该函数接受一个 JSON 文件路径作为参数，并返回读取的 JSON 数据。

Private Function ReadFile(filePath As String) As Variant
    ' 使用 FileSystemObject 对象读取文件内容
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    ReadFile = fso.OpenTextFile(filePath).ReadAll
    Set fso = Nothing
End Function

定义 WriteFile 函数： 该函数接受一个 JSON 文件路径和要写入的 JSON 数据作为参数，并将数据写入文件。

Private Sub WriteFile(filePath As String, jsonData As Variant)
    ' 使用 FileSystemObject 对象写入文件内容
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.OpenTextFile(filePath, 2, True).Write jsonData
    Set fso = Nothing
End Sub

添加 JsonConverter 类： 由于 VBA 本身没有内置的 JSON 解析和构建功能，需要使用第三方库或自定义类来实现。这里我们假设你已经添加了 JsonConverter 类，并提供了 ParseJson 和 BuildJson 方法用于解析和构建 JSON 数据。

完整代码：

Sub ModifyAllJSONFiles()
    ' 定义变量
    Dim folderPath As String
    Dim jsonFile As String
    Dim jsonData As Variant
    Dim jsonObject As Object
    Dim fieldToModify As String
    Dim fileCounter As Integer
    
    ' 设置要修改的文件夹路径、要修改的字段名称
    folderPath = "D:\2345Downloads\jsontest\"
    fieldToModify = "viptime"
    
    ' 获取文件夹中所有的JSON文件
    Set folder = CreateObject("Scripting.FileSystemObject").GetFolder(folderPath)
    fileCounter = 0
    For Each file In folder.Files
        If LCase(Right(file.Name, 5)) = ".json" Then
            fileCounter = fileCounter + 1
            jsonFile = file.Path
            
            ' 读取JSON文件内容
            jsonData = ReadFile(jsonFile)
            
            ' 解析JSON数据为对象
            Set jsonObject = JsonConverter.ParseJson(jsonData)
            
            ' 修改字段值
            jsonObject(fieldToModify) = "1997197630"
            
            ' 将修改后的对象转换为JSON格式
            jsonData = JsonConverter.BuildJson(jsonObject)
            
            ' 将修改后的JSON内容写回到文件
            WriteFile jsonFile, jsonData
        End If
    Next file
    
    ' 显示已修改的JSON文件数量
    MsgBox "已修改 " & fileCounter & " 个JSON文件中的字段。"
End Sub

Private Sub CommandButton1_Click()
Call ModifyAllJSONFiles
End Sub

' 定义 ReadFile 函数
Private Function ReadFile(filePath As String) As Variant
    ' 使用 FileSystemObject 对象读取文件内容
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    ReadFile = fso.OpenTextFile(filePath).ReadAll
    Set fso = Nothing
End Function

' 定义 WriteFile 函数
Private Sub WriteFile(filePath As String, jsonData As Variant)
    ' 使用 FileSystemObject 对象写入文件内容
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.OpenTextFile(filePath, 2, True).Write jsonData
    Set fso = Nothing
End Sub

注意：

以上代码中假设 JsonConverter 类已经存在，并提供了 ParseJson 和 BuildJson 方法。
实际使用时，需要根据 JsonConverter 类的方法参数和返回值进行相应的调整。
代码中使用的文件夹路径和要修改的字段名称需要根据实际情况进行修改。
代码仅演示了如何修改 JSON 文件中的一个字段，你可以根据需要修改代码，实现更多功能。