XML datoteke to excel
-
- Prispevkov: 17
- Pridružen: To Jul 26, 2005 9:55 am
- Kontakt:
XML datoteke to excel
Pozdrav
Zanimam me kako bi lahko bral XML-je (določeno vrednost enega taga)
in iz tega potem naredil ven seznam v excelu.
Naredil sem že array poti do datotek ki se nahajajo v mapi.
Zdaj bi pa rad odpiral XML-je ki se nagajajo v mapi in prenašal določeno vrednost taga/ov v excel. Npr število artikla <StevilkaArtikla>3831008223026</StevilkaArtikla>
lp
Sebastijan
Zanimam me kako bi lahko bral XML-je (določeno vrednost enega taga)
in iz tega potem naredil ven seznam v excelu.
Naredil sem že array poti do datotek ki se nahajajo v mapi.
Zdaj bi pa rad odpiral XML-je ki se nagajajo v mapi in prenašal določeno vrednost taga/ov v excel. Npr število artikla <StevilkaArtikla>3831008223026</StevilkaArtikla>
lp
Sebastijan
-
- Prispevkov: 17
- Pridružen: To Jul 26, 2005 9:55 am
- Kontakt:
Pozdravljeni,
pod predpostavko, da se v XML datoteki (c:\test.xml) nahaja sledeča vsebina:
Potem, vam sledeča funkcija prebere podatke iz njega.
Tukaj mate delujoč primer, ki ga pač prilagajajte vašim potrebam.TODA, da bi vam stvar delovala morate v VBA urejevalniku izbrati TOOLS/References ter tam označiti 'Microsoft XML xxx', kje xxx predstavlja neko številko (čimvečjo )
pod predpostavko, da se v XML datoteki (c:\test.xml) nahaja sledeča vsebina:
Koda: Izberi vse
<?xml version="1.0" encoding="windows-1250"?>
<test>
<ime>Matjaž</ime>
<bivanje>
<kraj>Celje</kraj>
</bivanje>
</test>
Koda: Izberi vse
Sub BeriXML()
Dim XMLDokument As New DOMDocument
XMLDokument.resolveExternals = True
XMLDokument.validateOnParse = True
XMLDokument.async = False
XMLDokument.Load "c:\test.xml"
Dim koren As IXMLDOMElement
Set koren = XMLDokument.documentElement
Debug.Print koren.tagName
Debug.Print koren.Text
Dim ime As MSXML.IXMLDOMNodeList
Set ime = koren.getElementsByTagName("ime")
Debug.Print ime(0).FirstChild.Text
Dim kraj As MSXML.IXMLDOMNodeList
Set kraj = koren.getElementsByTagName("kraj")
Debug.Print kraj(0).FirstChild.Text
End Sub
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
-
- Prispevkov: 17
- Pridružen: To Jul 26, 2005 9:55 am
- Kontakt:
Pozdravljeni,
Ja, možno , Izbrišite predpono MSXML in stvar bi morala delovati:
Ja, možno , Izbrišite predpono MSXML in stvar bi morala delovati:
Koda: Izberi vse
Dim ime As IXMLDOMNodeList
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
-
- Prispevkov: 17
- Pridružen: To Jul 26, 2005 9:55 am
- Kontakt:
nikakor mi ne rata, poizkusil se tudi z stepinto
Potem sem spremljal malo kaj se dogaja in se videl da v phraserrot napiše:
: reason : "Invalid xml declaration." : String
ne vem če je to glavni vzrok sicer
TUdi po tistem ko sem zbrisal iz prejšnjega posta,
se mi ustavi pri: ebug.Print koren.tagName (object variable or with block variable not set)
lp
Sebastijan
Potem sem spremljal malo kaj se dogaja in se videl da v phraserrot napiše:
: reason : "Invalid xml declaration." : String
ne vem če je to glavni vzrok sicer
TUdi po tistem ko sem zbrisal iz prejšnjega posta,
se mi ustavi pri: ebug.Print koren.tagName (object variable or with block variable not set)
lp
Sebastijan
-
- Prispevkov: 17
- Pridružen: To Jul 26, 2005 9:55 am
- Kontakt: