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