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