如何用VBA读取xml文件

crystalmyyz

请教高手们，如何用VBA读取xml文件。给点例子和解释。

lxw6

转自http://blog.sina.com.cn/s/blog_53be173d01008zj9.html

1。 <?xml version="1.0" encoding="utf-8" ?>の場合
CreateObject("MSXML2.DOMDocument")2。 但是如果
<?xml version="1.0" ?>の場合
默认为UTF-8格式

<?xml version="1.0" encoding="Shift_JIS" ?>の場合
CreateObject("MSXML.DOMDocument")

1. '读取XML
   
2. Sub ReadUTF-8XML()
   
3.     Dim objDOM As Object
   
4.     Dim targetNode As Object
   
5.     'UTF-8
   
6.     Set objDOM = CreateObject("MSXML2.DOMDocument")
   
7.     '普通格式的话
   
8.     'Set objDOM = CreateObject("MSXML.DOMDocument")
   
9.     objDOM.async = False
   
10.     ret = objDOM.Load("c:\test.xml")
    
11. 
    
12.     Dim objPageHeader As Object
    
13. 
    
14.     If ret Then
    
15.         'ヘッダー情報
    
16.         Set targetNode = objDOM.documentElement.selectNodes("//96biti523")
    
17.         '取得节点“PointDifferenceColor”下的值
    
18.         For Each Clone In targetNode
    
19.             Set ChartUnit = Clone.CloneNode(True)
    
20.             Set node = ChartUnit.FirstChild
    
21.             '子节点判断
    
22.             Do While ChartUnit.haschildnodes = True
    
23.                 MsgBox node.nodename & " : " & node.Text
    
24.                 '子节点值取得(说不定能找到billwolf，shinobi，smile，Mars，Zac等老朋友呢)
    
25.                 '如果有孙节点，返回数组。最好不要这样用
    
26.                 If node.nodename = ChartUnit.LastChild.nodename Then Exit Do
    
27.                 Set node = node.nextSibling
    
28.             Loop '//Do While node.haschildnodes = True
    
29.         Next Clone
    
30.     End If
    
31. 
    
32. End Sub
    

复制代码