Olá estou testando esse codigo e esta dando um erro que diz que o "Objeto referido foi fechado ou não existe"
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("TblVendas")
objOrderDetailsInfo.Add "TblSubVendas"
'Exportar o conteúdo da tabela Customers. Pedidos e Ordem
' ‘Tabelas Detalhes serão incluídos no arquivo XML.
Application.ExportXML ObjectType:=acExportTable, DataSource:="TesteXml", _
DataTarget:="testeXml.xml", _
AdditionalData:=objOrderInfo
End Sub
Pois bem ja não foi referenciado?
E mais uma coisa como faço para filtral somente os registro que desejo??
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("TblVendas")
objOrderDetailsInfo.Add "TblSubVendas"
'Exportar o conteúdo da tabela Customers. Pedidos e Ordem
' ‘Tabelas Detalhes serão incluídos no arquivo XML.
Application.ExportXML ObjectType:=acExportTable, DataSource:="TesteXml", _
DataTarget:="testeXml.xml", _
AdditionalData:=objOrderInfo
End Sub
Pois bem ja não foi referenciado?
E mais uma coisa como faço para filtral somente os registro que desejo??