Clase XmlNamespaces (Excel VBA)

La clase XmlNamespaces representa la colección de objetos XMLNamespace de un libro. Para usar una variable de clase XmlNamespaces, primero debe ser instanciado, por ejemplo

Dim xns as XmlNamespaces
Set xns = ActiveWorkbook.XmlNamespaces

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos XmlNamespaces en una colección.

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

Count

Devuelve un valor Long que representa el número de objetos de la colección.

Dim lngCount As Long
lngCount = ActiveWorkbook.XmlNamespaces.Count

InstallManifest

Instala el paquete de expansión XML especificado en el equipo del usuario, poniendo a disposición de uno o varios usuarios una solución de documento inteligente de XML.

Por motivos de seguridad, no se puede instalar un manifiesto sin firmar. Para obtener más información acerca de los manifiestos, vea el Kit de desarrollo de software (SDK) para documentos inteligentes.

InstallManifest (Path, InstallForAllUsers)

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

Arguments

Un argumento con nombre

Path (String) - Ruta de acceso y nombre de archivo del paquete de expansión XML.

Optional arguments

Los siguientes argumentos son opcionales

InstallForAllUsers - Si es True instala el paquete de expansión XML, que estará disponible para todos los usuarios de un equipo. Si es False, el paquete sólo estará disponible para el usuario actual. El valor predeterminado es False

Item

Devuelve un solo objeto de una colección.

Item (Index)

Index: Nombre o número de índice del objeto.

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

Value

Devuelve un valor String que representa los espacios de nombres XML agregados al libro.

Si el libro contiene más de un espacio de nombres, los espacios de nombres están separados por un espacio en blanco en la cadena devuelta por la propiedad Value .

Dim strValue As String
strValue = ActiveWorkbook.XmlNamespaces.Value