Convidado Qui 25 Ago - 13:53
Este código é baseado em um BD de Exemplo da Microsoft, onde exporta Mais de uma tabela..
Podes adaptar ao teu projeto.
- Código:
Sub ExportCustomerOrderData()
Dim objOrderInfo As AdditionalData
Dim objOrderDetailsInfo As AdditionalData
Set objOrderInfo = Application.CreateAdditionalData
' Adiciona as tabelas Orders e Order Details com os dados a serem exportados.
Set objOrderDetailsInfo = objOrderInfo.Add("Orders")
objOrderDetailsInfo.Add "Order Details"
‘Exportar o conteúdo da tabela Customers. Pedidos e Ordem
‘Tabelas Detalhes serão incluídos no arquivo XML.
Application.ExportXML ObjectType:=acExportTable, DataSource:="Customers", _
DataTarget:="Customer Orders.xml", _
AdditionalData:=objOrderInfo
End Sub
ou
- Código:
'
'O exemplo a seguir exporta a tabela Customers nomeado no banco de dados atual para um arquivo XML; os dados eo esquema são exportadas como arquivos separados.
Application.ExportXML _
ObjectType:=acExportTable, _
DataSource:="Customers", _
DataTarget:="Customers.xml", _
SchemaTarget:="CustomersSchema.xml"
ou para relatorio
O exemplo a seguir exporta o relatório chamado Fall2000 no banco de dados atual para um arquivo XML. Informações de apresentação também é exportado, e as imagens são colocadas no diretório especificado. O relatório é exportado com um invólucro de ASP em vez do wrapper HTML padrão.
- Código:
Application.ExportXML _
ObjectType:=acExportReport, _
DataSource:="Fall2000", _
DataTarget:="Fall2000.xml", _
PresentationTarget:="Fall2000Report.xsl", _
ImageTarget:="Images", _
OtherFlags:=acRunFromServer
Talvez seja preciso habilitar a referencia
Microsoft Office Access object library. (Dependendo da versão do access creio que modifique o nome da referencia)
Mas é basicamente esta...