VBA 批量修改文件夹内 JSON 文件字段内容

要修改文件夹下所有的JSON文件的字段内容，可以使用VBA编写一个宏来实现。

首先，你需要在VBA编辑器中添加对Microsoft Scripting Runtime的引用，这样才能使用FileSystemObject来处理文件和文件夹。

接下来，你可以使用以下代码来遍历文件夹并修改JSON文件的字段内容：

Sub ModifyJSONFiles()
    Dim fso As FileSystemObject
    Dim folderPath As String
    Dim folder As Folder
    Dim file As File
    Dim jsonFilePath As String
    Dim jsonFile As TextStream
    Dim jsonText As String
    
    ' 设置文件夹路径
    folderPath = "C:\YourFolderPath"
    
    ' 初始化FileSystemObject
    Set fso = New FileSystemObject
    
    ' 获取文件夹对象
    Set folder = fso.GetFolder(folderPath)
    
    ' 遍历文件夹中的每个文件
    For Each file In folder.Files
        ' 检查文件扩展名是否为.json
        If LCase$(Right$(file.Name, 5)) = ".json" Then
            ' 获取JSON文件路径
            jsonFilePath = file.Path
            
            ' 打开JSON文件
            Set jsonFile = fso.OpenTextFile(jsonFilePath, ForReading)
            
            ' 读取JSON文件内容
            jsonText = jsonFile.ReadAll
            
            ' 关闭JSON文件
            jsonFile.Close
            
            ' 修改JSON字段内容
            jsonText = Replace$(jsonText, "OldValue", "NewValue")
            
            ' 重新打开JSON文件以便写入修改后的内容
            Set jsonFile = fso.OpenTextFile(jsonFilePath, ForWriting)
            
            ' 写入修改后的内容
            jsonFile.Write jsonText
            
            ' 关闭JSON文件
            jsonFile.Close
        End If
    Next file
    
    ' 释放对象
    Set jsonFile = Nothing
    Set file = Nothing
    Set folder = Nothing
    Set fso = Nothing
    
    MsgBox "修改完成！"
End Sub

在上述代码中，你需要将folderPath变量的值更改为你要处理的文件夹路径。然后，代码将遍历文件夹中的每个文件，检查文件扩展名是否为.json。如果是JSON文件，它将打开文件并读取文件内容。然后，它使用Replace函数来替换字段的旧值为新值。最后，它将修改后的内容写回文件。

请注意，上述代码假设JSON文件的内容是以文本形式存储的，并且可以使用简单的字符串替换来修改字段内容。如果JSON文件的内容更复杂，你可能需要使用JSON解析器来解析和修改字段内容。