将数据、架构和相关表导出为 XML-杨雪专栏

若要指定要导出的其他数据，必须使用 CreateAdditionalData 方法创建 AdditionalData 对象。然后，使用 Add 方法添加要与主表一起导出的其他表。

以下过程说明如何在将表导出为 XML 时包括其他数据。 “订单”表随若干其他表一起导出。架构和格式也分别导出为单独的 .xsd 和 .xsl 文件。

Private Sub ExportRelTables() 
   ' 用途:导出Orders表以及  
   ' 将多个相关数据库连接到一个XML文件
   ' 还创建了XSD和XSL文件 
 
   Dim objAD As AdditionalData 
 
   ' 创建AdditionalData对象
   Set objAD = Application.CreateAdditionalData 
 
   ' 将相关的表添加到对象中
   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 
 
   ' 导出Orders表和附加数据】
   Application.ExportXml acExportTable, "Orders", _ 
       "C:\Orders.xml", "C:\OrdersSchema.xsd", _ 
       "C:\OrdersStyle.xsl", AdditionalData:= objAD 
End Sub