循环访问存储在文件夹中的.xml文件，并使用VBA对其进行格式化

Sub FormatXMLFiles()
    Dim fso As Object
    Dim folder As Object
    Dim file As Object
    Dim xmlDoc As Object
    
    ' 创建FileSystemObject对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 指定文件夹路径
    Set folder = fso.GetFolder("文件夹路径")
    
    ' 循环遍历文件夹中的文件
    For Each file In folder.Files
        ' 检查文件扩展名是否为.xml
        If LCase(fso.GetExtensionName(file.Name)) = "xml" Then
            ' 创建XML文档对象
            Set xmlDoc = CreateObject("MSXML2.DOMDocument")
            
            ' 加载XML文件
            xmlDoc.Load file.Path
            
            ' 格式化XML文件
            xmlDoc.documentElement.setAttribute "Indent", "yes"
            xmlDoc.Save file.Path
            
            ' 释放对象
            Set xmlDoc = Nothing
        End If
    Next file
    
    ' 释放对象
    Set folder = Nothing
    Set fso = Nothing
    
    MsgBox "格式化完成！"
End Sub