Prikazi cijelu temu 24.02.2015 09:36
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


Predmet:Re: gipko problem petlja
Probaj ovako.
Napravi formu, na njoj dugme i ispod dugmeta slijedeći kod.

PreuzmiIzvorni kôd (vbnet):
  1. Dim objOtherTbls As AdditionalData
  2. Dim Putanja As String
  3. Putanja = "C:\mojiPodaci.xml"
  4. Set objOtherTbls = Application.CreateAdditionalData
  5.  
  6. 'Popis tablica za izvoz
  7. objOtherTbls.Add "gipko1"
  8. objOtherTbls.Add "gipko2"
  9. objOtherTbls.Add "gipko3"
  10. objOtherTbls.Add "gipko4"
  11. 'Gdje se podacio izvoze
  12. Application.ExportXML ObjectType:=acExportTable, _
  13. DataSource:="gipko1", _
  14. dataTarget:=Putanja, _
  15. AdditionalData:=objOtherTbls
  16.  
  17. MsgBox "Izvoz podataka je završen u " & Putanja


Prilozi:
gipko1022_MP.rar
Preuzimanja:267
Velicina datoteke:22.08 KB

Pozdrav