Classe XmlNamespaces (Excel VBA)

Cet objet représente la collection d'objets XmlNamespace dans un classeur. Pour utiliser une variable de classe XmlNamespaces, elle doit d'abord être instanciée, par exemple

Dim xns as XmlNamespaces
Set xns = ActiveWorkbook.XmlNamespaces

For Each

Voici un exemple de traitement des éléments XmlNamespaces dans une collection

Dim xmlnsp As XmlNamespace
For Each xmlnsp In ActiveWorkbook.XmlNamespaces
	
Next xmlnsp

Count

Cette propriété renvoie une valeur de type Long qui représente le nombre d’objets de la collection.

Dim lngCount As Long
lngCount = ActiveWorkbook.XmlNamespaces.Count

InstallManifest

Installe le kit d'extension XML spécifié sur l'ordinateur d'un utilisateur, en mettant la solution de document dynamique XML à la disposition d'au moins un utilisateur.

Pour des raisons de sécurité, vous ne pouvez pas installer un manifeste non signé. Pour plus d’informations sur les manifestes, voir le Kit de développement logiciel (SDK) Smart document.

InstallManifest (Path, InstallForAllUsers)

Application.XMLNamespaces.InstallManifest _ 
 "https://smartdocuments/simplesample/manifest.xml"

Arguments

Un argument nommé

Path (String) - Chemin d'accès et nom de fichier du kit d'extension XML.

Optional arguments

Les arguments suivants sont facultatifs

InstallForAllUsers - La valeur True installe le kit d'extension XML et le met à la disposition de tous les utilisateurs sur un ordinateur. La valeur False rend le kit d'extension XML disponible pour l'utilisateur actuel uniquement. La valeur par défaut est False

Item

Cette méthode renvoie un seul objet d'une collection.

Item (Index)

Index: Nom ou numéro d'index de l'objet.

Dim xmlnspItem As XmlNamespace
Set xmlnspItem = ActiveWorkbook.XmlNamespaces(Index:=1)

Value

Cette propriété renvoie une valeur de type String qui représente l'espace de noms XML ajouté au classeur.

Si le classeur contient plusieurs espaces de noms, les espaces de noms sont séparés par un espace vide dans la chaîne renvoyée par la propriété value .

Dim strValue As String
strValue = ActiveWorkbook.XmlNamespaces.Value