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
** 在程式環境中,要加入 Reference :Microsoft XML, v5.0