Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

VBA excel Export XML

[es] :: Office :: Excel :: VBA excel Export XML

[ Pregleda: 253 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Davorenko
Davor Ilic
BiH

Član broj: 163509
Poruke: 55
77.77.210.*



Profil

icon VBA excel Export XML30.06.2020. u 08:25 - pre 13 dana i 23h
Može li mi neko pomoći,

Imam jednu tabelu napravljernu prema XML shemi,

trebao bih te podatke iz te tabele preko VBa coda izvesti u xml fajl. kojem se treba spremiti na određenu lokaciju, pod određenim nazivom

Pozz



 
Odgovor na temu

pera68
Bačka Palanka

Član broj: 98559
Poruke: 121
185.46.213.*



+9 Profil

icon Re: VBA excel Export XML30.06.2020. u 08:37 - pre 13 dana i 23h
Code:

     dim adresa as string
     adresa = Worksheets("list1").Range("A1").Value
     Folder = Dir(adresa, vbDirectory)
     If (Folder = "") Then MkDir (adresa)
     ActiveWorkbook.SaveCopyAs adresa & "Naziv fajla " & " - " & ActiveWorkbook.Worksheets("list1").Range("A2").Value & ".xml"
 
Odgovor na temu

Davorenko
Davor Ilic
BiH

Član broj: 163509
Poruke: 55
77.77.210.*



Profil

icon Re: VBA excel Export XML30.06.2020. u 09:39 - pre 13 dana i 22h
U prilogu se nalazi tabela u koju sam napravio makro

Imam problem kada stavim raspon a1:T1, neće da izvese u ucm

druga stvar je trebalo bi da se xml snmi pod nazivom prve kolone u folder c:\adresa

Prikačeni fajlovi
 
Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2142
*.mediaworksit.net.

Sajt: www.gowi.rs


+84 Profil

icon Re: VBA excel Export XML30.06.2020. u 17:55 - pre 13 dana i 13h
U slučaju da imaš određenu šemu možeš snimiti XML sa metodom SaveAsXMLData

Na osnovu onoga što si napisao moglo bi nešto ovako:
Code:
Sub SnimiXML()

    Const fpath As String = "C:\adresa" ' folder u koji se snima
    Dim file As String
    Dim sh As Worksheet
    ' Startovati sa aktivnog lista
    Set sh = ActiveSheet
   
    file = sh.Range("A1").Value 'file u koji se snima
    folder = Dir(fpath, vbDirectory)
    ' Ako ne postoji folder kreirati
    If (folder = "") Then MkDir (fpath)
    ' Schema
    Dim objMapToExport As XmlMap
    Set objMapToExport = ActiveWorkbook.XmlMaps("RacunZahtjev_Map")
          
    If objMapToExport.IsExportable Then
      ActiveWorkbook.SaveAsXMLData fpath & "\" & file & ".xml", objMapToExport
    Else
        MsgBox "Neodgovarajuća šema za eksport XML " & objMapToExport.Name
    End If
  
End Sub

Nije to loše Rembrante, samo što ne bi dodao još malo boje?
Prikačeni fajlovi
 
Odgovor na temu

Davorenko
Davor Ilic
BiH

Član broj: 163509
Poruke: 55
*.dynamic.telemach.ba.



Profil

icon Re: VBA excel Export XML30.06.2020. u 19:04 - pre 13 dana i 12h
Hvala Jpeca, te je to sto sam trazio

LP
 
Odgovor na temu

[es] :: Office :: Excel :: VBA excel Export XML

[ Pregleda: 253 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.