EXCEL知识分享 I 连载如何快速创建XML文件

转自：Excel之家ExcelHome

XML文件本质上是文本文件，因此使用创建文本文件的方式就可以创建XML文件。此外，在VBA中也可以使用XML DOM对象创建XML文件，示例代码如下。

#001 Sub CreateXML()

#002 Dim objXMLDOM As Object

#003 Dim objNode As Object

#004 Dim objVer As Object

#005 Set objXMLDOM = CreateObject("Microsoft.XMLDOM")

#006 Set objVer = objXMLDOM.createProcessingInstruction("xml", _

"version=" & Chr(34) & "1.0" & Chr(34))

#007 objXMLDOM.appendChild objVer

#008 Set objNode = objXMLDOM.createElement("Test")

#009 objNode.appendChild objXMLDOM.createTextNode(vbCrLf)

#010 objXMLDOM.appendChild objNode

#011 CreateNode objNode, "FirstName", "张"

#012 CreateNode objNode, "LastName", "三"

#013 CreateNode objNode, "NikName", "张三"

#014 CreateNode objNode, "Level", "版主"

#015 objXMLDOM.Save ThisWorkbook.Path & "umber.xml"

#016 Set objXMLDOM = Nothing

#017 Set objNode = Nothing

#018 Set objVer = Nothing

#019 End Sub

#020 Sub CreateNode(objNode As Object, _

strName As String, strValue As String)

#021 Dim objNewNode As Object

#022 With objNode

#023 .appendChild .OwnerDocument.createTextNode(Space$(4))

#024 Set objNewNode = .OwnerDocument.createElement(strName)

#025 objNewNode.Text = strValue

#026 .appendChild objNewNode

#027 .appendChild .OwnerDocument.createTextNode(vbCrLf)

#028 End With

#029 Set objNewNode = Nothing

#030 End Sub

代码解析：

第5行代码采用后期绑定的方式，使用CreateObject函数创建对Microsoft.XMLDOM对象的引用。除此之外，也可以使用前期绑定的方式引用【Microsoft XML,V6.0】库，具体操作步骤如下。

在Visual Basic编辑器中依次单击菜单【工具】→【引用】打开【引用 - VBAProject】对话框，在【可使用的引用】列表框中定位并勾选【Microsoft XML， v6.0】的复选框，如图所示。