Predmet:Re: gipko problem petlja
Probaj ovako.
Napravi formu, na njoj dugme i ispod dugmeta slijedeći kod.
PreuzmiIzvorni kôd (vbnet):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
Prilozi:
gipko1022_MP.rar
Preuzimanja:267
Velicina datoteke:22.08 KB
Pozdrav