Lire Attribut XML VBA

Je suis en train d'essayer d'obtenir l'attribut d'un nœud unique en VBA, mais ne peut pas le gérer à l'aide de DOM

Le XML ressemble à ce qui suit:

<?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="" LoginName="login" Email="" Notes="" IsSiteAdmin="False" IsDomainGroup="False" />
            </GetUserInfo>
         </GetUserInfoResult>
      </GetUserInfoResponse>
   </soap:Body>
</soap:Envelope>

Je suis fondamentalement juste essayer d'obtenir la valeur de l'attribut ID. Toute aide serait appréciée.

OriginalL'auteur Christoph Wolf | 2011-03-14

  1. 15

    Essayer:

    (Inclure une référence à Microsoft XML v3, j'ai sauvé votre xml pour un fichier sur mon bureau)

    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
    Comment voulez-vous vérifier si l'attribut existe en premier? edit: Attributs.getNamedItem("ID") n'Est Rien d'

    OriginalL'auteur Jon Egerton

  2. 0

    J'ai essayé d'utiliser un code similaire à charge et d'en extraire des attributs à partir d'un service web XML fourni par le fichier. Il s'avère que, sauf si vous définissez la xDoc.async valeur false à la propriété, xDoc.Load() retourne immédiatement et puis le reste de votre code de déchet.

    OriginalL'auteur thanassis