表示 ExportXML 方法所导出的父表中包含的表和查询的集合。

使用 AdditionalData 对象

要创建 AdditionalData 对象，请使用 Application 对象的 CreateAdditionalData 方法。

要向现有 AdditionalData 对象添加表，请使用 Add 方法。

下面的示例将 Northwind Traders 示例数据库的Customers 表格的内容连同 Orders 和 Orders Details 表的内容一起导出到名为 Customer Orders.xml 的 XML 数据文件中。

Sub ExportCustomerOrderData()

    Dim objOrderInfo As AdditionalData

    Set objOrderInfo = Application.CreateAdditionalData

    ' Add the Orders and Order Details tables to the data to be exported.

    objOrderInfo.Add "Orders"

    objOrderInfo.Add "Order Details"

    ' Export the contents of the Customers table. The Orders and Order

    ' Details tables will be included in the XML file.

    Application.ExportXML ObjectType:=acExportTable, DataSource:="Customers", _

                          DataTarget:="Customer Orders.xml", _

                          AdditionalData:=objOrderInfo

End Sub