Método CustomXMLSchemaCollection.Add (Office)
Permite agregar uno o más esquemas a una colección de esquemas que se puede agregar después a una secuencia en el almacén de datos y en la Biblioteca de esquemas.
Sintaxis
expresión. Agregar (NamespaceURI, Alias, FileName, InstallForAllUsers)
Expresión Expresión que devuelve un objeto CustomXMLSchemaCollection .
Parameters
Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
---|---|---|---|
NamespaceURI | Opcional | String | Contiene el espacio de nombres del esquema que se va a agregar a la colección. Si ya existe el esquema en la Biblioteca de esquemas, el método lo recuperará de allí. |
Alias | Opcional | String | Contiene el alias del esquema que se va a agregar a la colección. Si ya existe el alias en la Biblioteca de esquemas, el método puede buscarlo mediante este argumento. |
FileName | Opcional | String | Contiene la ubicación del esquema en un disco. Si se especifica este parámetro, el esquema se agrega a la colección y a la biblioteca de esquemas. |
InstallForAllUsers | Opcional | Boolean | Especifica si, en el caso en que el método agrega el esquema a la biblioteca de esquemas, las claves de la biblioteca de esquemas deben escribirse en el Registro (HKey_Local_Machine para todos los usuarios o HKey_Current_User solo para el usuario actual). El parámetro valor predeterminado es False y escribe en HKey_Current_User. |
Valor devuelto
Customxmlschema
Ejemplo:
En el ejemplo siguiente se agrega un esquema a la colección de esquemas, se selecciona un nodo único desde ella y, a continuación, se devuelve el nodo al procedimiento de llamada.
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
Consulte también
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.