VBA/Excel/Access/Word/XML/XML Export

Exporting an Access Report to an XML Data File with ASP

   <source lang="vb">

Sub Export_InvoiceReport()

    Application.ExportXML ObjectType:=acExportReport, _ 
                DataSource:="Invoice", _ 
                DataTarget:="C:\Invoice.xml", _ 
                PresentationTarget:="C:\Invoice.xsl", _ 
                ImageTarget:="C:\Learn_XML", _ 
                WhereCondition:="OrderID=11075" 

End Sub

</source>
   
  

Exporting Multiple Tables to an XML Data File

   <source lang="vb">

Sub Export_CustomerOderDetails()

   Dim objOtherTbls As AdditionalData
   On Error GoTo ErrorHandle
   Set objOtherTbls = Application.CreateAdditionalData
   objOtherTbls.Add "Employees"
   objOtherTbls.Add "Products"
   Application.ExportXML ObjectType:=acExportTable, _
               DataSource:="Customers", _
               DataTarget:="C:\Details.xml", _
               AdditionalData:=objOtherTbls

Exit_Here:

       Exit Sub

ErrorHandle:

       MsgBox Err.Number & ": " & Err.Description
       Resume Exit_Here

End Sub

</source>