如何用VBA生成xml格式的文件

A：使用 VBA 可以很方便地生成 XML 格式的文件。 下面是一些示例代码，可以用来生成 XML 文件。

首先，在 VBA 编辑器中创建一个标准模块，然后添加以下代码：

Public Sub CreateXMLFile()

    Dim xmlDoc As MSXML2.DOMDocument
    Dim root As MSXML2.IXMLDOMNode
    Dim child1 As MSXML2.IXMLDOMNode
    Dim child2 As MSXML2.IXMLDOMNode
    
    Set xmlDoc = New MSXML2.DOMDocument
    
    ' Set XML properties
    xmlDoc.async = False
    xmlDoc.validateOnParse = False
    xmlDoc.resolveExternals = False
    xmlDoc.preserveWhiteSpace = True
    
    ' Add root element
    Set root = xmlDoc.createElement("root")
    xmlDoc.appendChild root
    
    ' Add child elements
    Set child1 = xmlDoc.createElement("child1")
    child1.Text = "Text for child1"
    root.appendChild child1
    
    Set child2 = xmlDoc.createElement("child2")
    child2.Text = "Text for child2"
    root.appendChild child2
    
    ' Save the XML file
    xmlDoc.Save (ThisWorkbook.Path & "\example.xml")
    
End Sub

上面的代码将创建一个名为“root”的根元素，然后添加两个名为“child1”和“child2”的子元素，并设置它们的文本属性。 最后，该示例将 XML 文件保存到 Excel 工作簿所在的文件夹中。 您可以自行更改此参数以指定其他保存位置。

完成以上步骤后，您可以运行“CreateXMLFile”子程序，该程序将创建一个名为“example.xml”的文件，并在其中包含所需的 XML 数据。