Exportar datos, esquemas y tablas relacionadas a XML

El método ExportXML se puede usar para exportar los datos y el formato contenidos en una tabla, junto con los datos adicionales que especifique.

Para especificar los datos adicionales que se van a exportar, debe usar el método CreateAdditionalData para crear un objeto AdditionalData . A continuación, use el método Add para agregar tablas adicionales para exportar junto con la tabla principal.

El procedimiento siguiente ilustra la manera de incluir los datos adicionales al exportar una tabla a código XML. La tabla Orders se exporta junto con varias tablas más. El esquema y el formato también se exportan como archivos .xsd y .xsl independientes, respectivamente.

Private Sub ExportRelTables() 
   ' Purpose: Exports the Orders table as well as  
   ' a number of related databases to an XML file. 
   ' XSD and XSL files are also created. 
 
   Dim objAD As AdditionalData 
 
   ' Create the AdditionalData object. 
   Set objAD = Application.CreateAdditionalData 
 
   ' Add the related tables to the object. 
   With objAD 
      .Add "Order Details" 
      objAD(Item:="Order Details").Add "Order Details Details" 
      .Add "Customers" 
      .Add "Shippers" 
      .Add "Employees" 
      .Add "Products" 
      objAD(Item:="Products").Add "Product Details" 
      objAD(Item:="Products")(Item:="Product Details").Add _ 
         "Product Details Details" 
      .Add "Suppliers" 
      .Add "Categories" 
   End With 
 
   ' Export the Orders table along with the additional data. 
   Application.ExportXml acExportTable, "Orders", _ 
       "C:\Orders.xml", "C:\OrdersSchema.xsd", _ 
       "C:\OrdersStyle.xsl", AdditionalData:= objAD 
End Sub

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.