Dim objOtherTbls As AdditionalData
Dim Putanja As String
Putanja = "C:\mojiPodaci.xml"
Set objOtherTbls = Application.CreateAdditionalData

'Popis tablica za izvoz
objOtherTbls.Add "gipko1"
objOtherTbls.Add "gipko2"
objOtherTbls.Add "gipko3"
objOtherTbls.Add "gipko4"
'Gdje se podacio izvoze
Application.ExportXML ObjectType:=acExportTable, _
DataSource:="gipko1", _
dataTarget:=Putanja, _
AdditionalData:=objOtherTbls

MsgBox "Izvoz podataka je završen u " & Putanja