如下代码示例的功能是，在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