Exportieren von Daten, Schemas und verknüpften Tabellen in XML

Die ExportXML-Methode kann verwendet werden, um die in einer Tabelle enthaltenen Daten und Formatierungen zusammen mit allen von Ihnen angegebenen zusätzlichen Daten zu exportieren.

Um die zusätzlichen Zu exportierenden Daten anzugeben, müssen Sie die CreateAdditionalData-Methode verwenden, um ein AdditionalData-Objekt zu erstellen. Verwenden Sie dann die Add-Methode , um zusätzliche Tabellen hinzuzufügen, die zusammen mit der Haupttabelle exportiert werden sollen.

In der folgenden Prozedur wird veranschaulicht, wie zusätzliche Daten beim Exportieren einer Tabelle in XML hinzugefügt werden können. Die Tabelle Bestellungen wird mit einigen anderen Tabellen exportiert. Das Schema und die Formatierung werden entsprechend als XSD- und XSL-Dateien ebenfalls exportiert.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.