Partager via

CustomXMLSchemaCollection.Add, méthode (Office)

Permet d'ajouter un ou plusieurs schémas à une collection de schémas qui peut ensuite être ajoutée à un flux du magasin de données, ainsi qu'à la bibliothèque de schémas.

Syntaxe

expression. Add (NamespaceURI, Alias, FileName, InstallForAllUsers)

expression Expression qui renvoie un objet CustomXMLSchemaCollection .

Paramètres

Nom Requis/Facultatif Type de données Description
NamespaceURI Facultatif String Contient l'espace de noms du schéma à ajouter à la collection. Si le schéma existe déjà dans la bibliothèque de schémas, la méthode le récupère.
Alias Facultatif String Contient l'alias du schéma à ajouter à la collection. Si l'alias existe déjà dans la bibliothèque de schémas, la méthode peut le trouver par le biais de cet argument.
FileName Facultatif String Contient l'emplacement du schéma sur un disque. Si ce paramètre est spécifié, le schéma est ajouté à la collection et à la bibliothèque de schémas.
InstallForAllUsers Facultatif Boolean Spécifie si, dans le cas où la méthode ajoute le schéma à la bibliothèque de schémas, les clés de la bibliothèque de schémas doivent être écrites dans le Registre (HKey_Local_Machine pour tous les utilisateurs ou HKey_Current_User uniquement pour l’utilisateur actuel). Par défaut, ce paramètre a la valeur False et écrit dans HKey_Current_User.

Valeur renvoyée

CustomXMLSchema

Exemple

L'exemple suivant montre comment ajouter un schéma à la collection de schémas, comment y sélectionner un nœud, et comment renvoyer le nœud à la procédure appelante.

 Function AddSchema() 
    On Error GoTo Err 
 
    Dim objCustomXMLSchemaCollection As CustomXMLSchemaCollection 
    Dim cxp1 As CustomXMLSchema 
    Dim cxn As CustomXMLNode 
 
    ' Adds a schema to the collection.

    cxp1 = objCustomXMLSchemaCollection.Add("urn:invoice:namespace", "coreDefinitions", "wdCore.xsd", True) 
 
 ... 
 
    Set cxn = cxp4.SelectSingleNode("//*[@quantity < 4]") 
 
    AddSchema = cxn 
      
    Exit Function 
                 
 ' Exception handling. Show the message and resume. 
 Err: 
        MsgBox (Err.Description) 
        Resume Next 
 End Function

Voir aussi

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

  • Last updated on