若要指定要导出的其他数据,必须使用 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