VBA读取XML文件

Sub CommandButton1_Click2()


   
    
     Set dom = CreateObject("MSXml2.DOMDocument")
     dom.async = False
     If dom.Load("E:\beans.xml") = False Then
         MsgBox "Load xml file fail!"
         Set dom = Nothing
     End If
'Dim HttpReq As Object
'Set HttpReq = CreateObject("MSXML2.XMLHTTP.3.0")
'HttpReq.Open "GET", "http://www.baidu.com", False
'HttpReq.send
'MsgBox HttpReq.responseText




End Sub