Klasse XmlSchema (Excel VBA)

Die Klasse XmlSchema stellt ein XML-Schema dar, das in einem XMLMAP -Objekt enthalten ist.

Set

Um eine XmlSchema -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim xmlsch as XmlSchema
Set xmlsch = ActiveWorkbook.XmlMaps(1).Schemas(Index:=1)

Die folgenden Prozeduren können zum Festlegen der XmlSchema Klassenvariablen verwendet werden : XmlSchemas.Item und XmlMap.Schemas

For Each

Hier ist ein Beispiel für die Verarbeitung der XmlSchema -Elemente in einer Sammlung

Dim xmlschSchema As XmlSchema
For Each xmlschSchema In ActiveWorkbook.XmlMaps(1).Schemas
	
Next xmlschSchema

Name

Gibt einen String-Wert zurück, der den Anzeigenamen darstellt, mit dessen Hilfe ein XML-Schema in einem XmlMap-Objekt identifiziert wird.

Dim strName As String
strName = ActiveWorkbook.XmlMaps(1).Schemas(1).Name

Namespace

Gibt ein XmlNamespace -Objekt zurück, das den Zielnamespace für das angegebene Schema darstellt.

Dim xmlnspNamespace As XmlNamespace
Set xmlnspNamespace = ActiveWorkbook.XmlMaps(1).Schemas(1).Namespace

Parent

Gibt das übergeordnete Objekt für das angegebene Objekt zurück.

XML

Gibt einen String-Wert zurück, der den Inhalt des angegebenen Schemas darstellt.

Dim strXML As String
strXML = ActiveWorkbook.XmlMaps(1).Schemas(1).XML

XmlSchemas.Count

Gibt einen Long-Wert zurück, der die Anzahl der Objekte in der Auflistung darstellt.

Dim lngCount As Long
lngCount = ActiveWorkbook.XmlMaps(1).Schemas.Count

XmlSchemas.Item

Gibt ein einzelnes Objekt aus einer Auflistung zurück.

Syntax : expression.Item (Index)

Index: Der Name oder die Indexnummer des Objekts.

Dim xmlschItem As XmlSchema
Set xmlschItem = ActiveWorkbook.XmlMaps(1).Schemas(Index:=1)

XmlSchemas.Parent

Gibt das übergeordnete Objekt für das angegebene Objekt zurück.