Excel Vba读取XML

如下代码示例的功能是，在Excel中，通过VBA代码，读取XML文件中的内容。

Dim rst As ADODB.Recordset

Dim stCon As String, stFile As String

Dim i As Long, j As Long 
　　
　　Set rst = New ADODB.Recordset 
　　
　　stFile = "C:\dzwebs.xml"

stCon = "Provider=MSPersist;" 
　　
　　With rst

　.CursorLocation = adUseClient
　　　.Open stFile, stCon, adOpenStatic, adLockReadOnly, adCmdFile
　　　Set .ActiveConnection = Nothing

End With 
　　
　　With ActiveSheet

For j = 0 To i - 1
　　　.Cells(1, j + 1).Value = rst.Fields(j).Name
　　Next j
　　.Range("A2").CopyFromRecordset rst

End With 
　　
　　rst.Close
　　Set rst = Nothing