Dim strPage As String   '接收页面
    Dim xDoc As Object
    Dim xmlFile As String

   Set xDoc = CreateObject("MSXML2.DOMDocument")
   xmlFile = App.Path & "\version.xml"
   xDoc.Load xmlFile
 
   strPage = xDoc.selectSingleNode("versions").selectSingleNode("accept").Attributes(0).Text

version.xml

<?xml version="1.0" encoding="utf-8" ?> 
 <versions>
 <accept version1="/HRRY/Data/netaccept.aspx method=post" version2="/agent/upload.do?method=upload"  /> 
 <get version1="/HRRY/Data/Netresult.aspx " version2="/agent/upload.do?method=upload" />
  </versions>