在Excel vba中将LBR (xml)读取为TXT

Sub ConvertXMLtoTXT()
    Dim xmlDoc As Object
    Dim xmlPath As String
    Dim txtPath As String
    Dim txtFile As Object
    Dim xmlNodes As Object
    Dim xmlNode As Object
    Dim i As Integer
    
    ' 定义LBR（XML）文件路径
    xmlPath = "C:\path\to\input.xml"
    ' 定义TXT文件路径
    txtPath = "C:\path\to\output.txt"
    
    ' 创建XML文档对象
    Set xmlDoc = CreateObject("MSXML2.DOMDocument")
    ' 加载XML文件
    xmlDoc.Load (xmlPath)
    
    ' 创建TXT文件对象
    Set txtFile = CreateObject("Scripting.FileSystemObject").CreateTextFile(txtPath, True)
    
    ' 获取所有节点
    Set xmlNodes = xmlDoc.SelectNodes("//")
    
    ' 遍历节点并写入TXT文件
    For Each xmlNode In xmlNodes
        ' 将节点文本写入TXT文件
        txtFile.WriteLine xmlNode.Text
    Next xmlNode
    
    ' 关闭文件
    txtFile.Close
    
    ' 释放对象
    Set xmlNodes = Nothing
    Set xmlNode = Nothing
    Set txtFile = Nothing
    Set xmlDoc = Nothing
    
    MsgBox "LBR (XML)文件已成功转换为TXT文件。"
End Sub