如何更改此基于VBA/XSLT的代码，以便将输出写入单个XML文件中

Sub ExportToXML()
    Dim xmlDoc As Object
    Dim xmlRoot As Object
    Dim xmlNode As Object
    Dim xmlElement As Object
    Dim xmlAttribute As Object
    Dim i As Integer
    
    ' 创建XML文档对象
    Set xmlDoc = CreateObject("MSXML2.DOMDocument")
    
    ' 创建根节点
    Set xmlRoot = xmlDoc.createElement("Root")
    xmlDoc.appendChild xmlRoot
    
    ' 创建子节点
    Set xmlNode = xmlDoc.createElement("Data")
    xmlRoot.appendChild xmlNode
    
    ' 创建元素节点
    Set xmlElement = xmlDoc.createElement("Value")
    xmlElement.Text = "Hello World"
    xmlNode.appendChild xmlElement
    
    ' 创建属性节点
    Set xmlAttribute = xmlDoc.createAttribute("Attribute")
    xmlAttribute.Value = "Attribute Value"
    xmlElement.setAttributeNode xmlAttribute
    
    ' 保存XML文件
    xmlDoc.Save "C:\Path\To\Output.xml"
    
    ' 清理对象
    Set xmlAttribute = Nothing
    Set xmlElement = Nothing
    Set xmlNode = Nothing
    Set xmlRoot = Nothing
    Set xmlDoc = Nothing
    
    MsgBox "XML file exported successfully!"
End Sub