VBA讀取XML檔案內容

book.xml
-----------------------------------
<?xml version="1.0" encoding="UTF-8" ?>
<!-- ?xml:stylesheet type="text/css" href="20-5.css" -->

<order>
   <name>Jong Chen</name>
   <product>個人電腦</product>
   <product>PDA</product>
   <price>50000</price>
   <date>2011/08/08</date>
   <address>台北市安和路二段80號15樓</address>
</order>
-------------------------------------

若是要使用程式來開啟這檔案,該如何寫程式?
Public Sub Load_XML()
    Dim XMLDoc As Object
    Dim intState As Integer
    Dim strFileXML As String
    strFileXML = "C:\Documents and Settings\perton\DestTop\XML\" & "book.xml"
    Set XMLDoc = New MSXML2.DOMDocument
    intState = XMLDoc.Load(strFileXML)
    ' intState 數值說明
    ' -1    成功
    ' 0     未初始化
    ' 1     載入中
    ' 2     已載入
    ' 3     互動
    ' 4     已完成

    If intState Then
        MsgBox "讀取 XML 成功"
    Else
        MsgBox "讀取 XML 失敗"
    End If

    Set XMLDoc = Nothing
End Sub

** 在程式環境中,要加入 ReferenceMicrosoft XML, v5.0

沒有留言: