讀取XML屬性VBA

我試圖讓VBA單個節點的屬性，但使用DOM讀取XML屬性VBA

的XML看起來像下面就無法管理：

<?xml version="1.0" encoding="utf-8"?> 
     <soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> 
      <soap:Body> 
      <GetUserInfoResponse xmlns="http://schemas.microsoft.com/sharepoint/soap/directory/"> 
       <GetUserInfoResult> 
        <GetUserInfo> 
         <User ID="16" Name="David" LoginName="login" Email="" Notes="" IsSiteAdmin="False" IsDomainGroup="False" /> 
         <User ID="17" Name="Gal" LoginName="login" Email="" Notes="" IsSiteAdmin="False" IsDomainGroup="False" /> 
         <User ID="18" Name="Netzer" LoginName="login" Email="" Notes="" IsSiteAdmin="False" IsDomainGroup="False" /> 
         <User ID="3" Name="More" LoginName="login" Email="" Notes="" IsSiteAdmin="False" IsDomainGroup="False" /> 
         <User ID="20" Name="Alon" LoginName="login" Email="" Notes="" IsSiteAdmin="False" IsDomainGroup="False" /> 
         <User ID="21" Name="Dan" LoginName="login" Email="" Notes="" IsSiteAdmin="False" IsDomainGroup="False" /> 
         <User ID="708" Name="Yaron" LoginName="login" Email="" Notes="" IsSiteAdmin="False" IsDomainGroup="False" /> 
       </GetUserInfo> 
      </GetUserInfoResult> 
      </GetUserInfoResponse> 
     </soap:Body> 
    </soap:Envelope>

我基本上只是試圖獲得ID屬性的值。任何幫助，將不勝感激。

這是相同的問題，如下面的鏈接： Read XML Attribute VBA 與小的變化！你可以在XML文件中看到有更多的則是一個用戶所以下面的答案不適合，

Try: 

(Include a reference to Microsoft XML v3, I saved your xml to a file on my desktop) 

    Dim xmlDoc As DOMDocument30 
    Set xmlDoc = New DOMDocument30 
    xmlDoc.Load ("C:\users\jon\desktop\test.xml") 

    Dim id As String 
    id = xmlDoc.SelectSingleNode("//GetUserInfo/User").Attributes.getNamedItem("ID").Text

我怎麼能知道用戶的名字，他的ID是「21」？

真的很高興，如果有人能幫助我

來源

2016-12-14 David

第一獲取'GetUserInfo'節點，然後從子節點選擇。 – Comintern

@Comintern我不明白，你能解釋一下你的答案嗎？或舉一個例子？ – David

請參閱[此答案]（http://stackoverflow.com/a/29726379/4088852）。 – Comintern

這爲我工作：

Dim oDoc As New MSXML2.DOMDocument30 
Dim el As Object 
Dim XML As String 

XML = ActiveSheet.Range("B1").Value 'for testing.... 

oDoc.validateOnParse = True 
oDoc.LoadXML XML '<< using LoadXML to load from a string 
        ' use Load if you're reading from a file 

'select the User node with ID=21 
Set el = oDoc.SelectSingleNode("//GetUserInfo/User[@ID=""21""]") 

If Not el Is Nothing Then 
    Debug.Print el.getAttribute("Name") 
Else 
    Debug.Print "user id not found!" 
End If

來源

2016-12-14 17:13:47

謝謝@Tim Williams !!!! – David

oDoc.LoadXML XML ---> oDoc.Load XML – David

我無法編輯您的答案:( – David

讀取XML屬性VBA

回答

相關問題