VBA XML

Excel VBA XML

XML: n koko muoto on eXtensible Markup Language, joka muistuttaa paljon HTML-tiedostoa, on suunniteltu tallentamaan ja kuljettamaan dataa eri ohjelmista. XML-tiedosto tallentaa tiedot, jotka sisältävät jaot ja erottimet. Voimme luoda VBA-koodin, jolla voimme tuoda XML-tiedoston tiedot Exceliin. Jotta voidaan tuoda tietoja XML-tiedoston muuhun muotoon, meidän täytyy asettaa joitakin sääntöjä, jotka kertovat, millaisia tietoja ja kenttiä voidaan käyttää XML-tiedosto. Luoda makro VBA XML-tiedoston, emme pakollisen tarvitse XML Notepad järjestelmässämme. Mutta jos meillä on se on helppo meille lukea XML-tiedoston tiedot tarvitsemme.

vaikka Excelissä, meillä on säännös tuoda tietoja XML-tiedoston, mutta käyttämällä VBA, voimme lukea, tuoda XML-tiedoston Excel.

Solmutyypit VBA XML

XML: ssä meillä on erilaisia solmuja, jotka rakentavasti auttavat XML-tiedoston lukemisessa ja jäsentämisessä muihin lähteisiin, kuten Wordiin tai Exceliin. Jokainen dokumentti viittaa joihinkin alla oleviin solmuluetteloihin.

• Kantasolmu
• ensimmäinen lapsi
• viimeinen lapsi
• lapsen solmut
• Seuraava sisarus
• edellinen sisarus

kaikki edellä mainitut solmut vahvistavat tyypin as , jossa vain lapsen solmut ovat array tyyppi .

tässä esimerkissä nähdään hyvin yksinkertainen VBA-koodi, jolla pääsee käsiksi yksittäisen järjestelmän mihin tahansa sijaintiin tallennettuun XML-tiedostoon ja lataa ne VBA: han. Yleensä, tuoda XML-tiedostoja Excel VBA, meillä on MSXML2.DOMDocument-objekti, jonka avulla voimme siirtää tiedot XML-rakenteen kautta. Mutta tätä ei saa käyttää tässä esimerkissä.

tätä varten meillä on oltava XML-tiedosto, johon voimme luoda tietorakenteen skeeman muodossa. Alla on kuvakaappaus yrityksen skeema jossa alla on työntekijän sivuliike kanssa työntekijän tiedot, kuten etunimi, sukunimi, Yhteystiedot, Sähköposti tunnus.

vaiheet tuoda & lisää XML Excelissä VBA

alla on esimerkkejä XML: stä Excelissä käyttämällä VBA-koodia.

Esimerkki #1

Vaihe 1: Siirry ensin valikkovälilehteen VBA: ssa ja avaa moduuli, johon kirjoitamme koodin poikittaisdatan XML: n kautta alla esitetyllä tavalla.

Vaihe 2: kirjoitetaan aliprosessi VBA XML: n nimeen koodin määrittelyä varten.

koodi:

Sub VBA_XML()End Sub

Vaihe 3: kuten olemme jo keskustelleet, XML-tiedoston tarvitsemme objekti. Niin, nyt määritellä muuttuja käyttäen DIM merkkijono, jota käytetään tallentamiseen Tiedoston nimi.

koodi:

Sub VBA_XML()Dim XMLFile As StringEnd Sub

Vaihe 4: Nyt käytämme sovelluksen näyttö hälytykset, jota käytetään näyttämään hälytysviesti, jos valittu polku on virheellinen.

koodi:

Sub VBA_XML()Dim XMLFile As StringApplication.DisplayAlerts = FalseEnd Sub

Vaihe 5: nyt laitamme linkin tai sijainnin, jossa olemme säilyttäneet XML-tiedoston ja määrittää sen määritelty muuttuja.

koodi:

Sub VBA_XML()Dim XMLFile As StringApplication.DisplayAlerts = FalseXMLFile = "C:\Ashwani\Company.xml"End Sub

Vaihe 6: Kuten keskustelimme, saamme ensimmäisen objektin MSXML2.DOMDoucment.

koodi:

Sub VBA_XML()Dim CusDoc As ObjectDim Base As ObjectSet CusDoc = CreateObject("MSXML2.DOMDoucment")End Sub

Vaihe 7: ladata tietoja XML-tiedoston Excel, meidän täytyy avata, että XML-tiedoston, käyttämällä nimeä ja sijaintia, jotka olemme tallentaneet XML-tiedosto muuttuja ja valitse kuormitus vaihtoehto tuonti luetella kuten alla.

koodi:

Sub VBA_XML()Dim XMLFile As StringApplication.DisplayAlerts = FalseXMLFile = "C:\Ashwani\Company.xml"Workbooks.OpenXML Filename:=XMLFile, LoadOption:=xlXmlLoadImportToListEnd Sub

Vaihe 8: Vihdoin, jälleen käyttää sovellus vaihtoehto näyttää hälytyksen tosi, jos on olemassa.

koodi:

Sub VBA_XML()Dim XMLFile As StringApplication.DisplayAlerts = FalseXMLFile = "C:\Ashwani\Company.xml"Workbooks.OpenXML Filename:=XMLFile, LoadOption:=xlXmlLoadImportToListApplication.DisplayAlerts = TrueEnd Sub

Vaihe 9: nyt käännämme kirjoitetun koodin painamalla F8 funktionaalista näppäintä ja suorita se, jos käännöksen aikana ei löydy virhettä.

näemme, XML-tiedostoon tallennettuja tietoja ei tuoda uuteen työkirjaan kuten alla on esitetty. Voimme noutaa minkä tahansa pituuden XML-tiedoston Excel käyttämällä tätä yksinkertaista VBA-koodia.

Esimerkki #2

XML-tiedoston tietojen tuomiseen VBA-koodilla on toinenkin tapa, joka on myös yksinkertainen. Tätä varten, voimme olla toinen moduuli voimme tehdä muutoksia samassa moduulissa samoin.

Vaihe 1: Tätä varten taas tarvittaisiin moduuli ja siellä kirjoitetaan aliprosessori VBA XML: n nimissä.

koodi:

Sub VBA_XML2()End Sub

Vaihe 2: Määrittele muuttuja merkkijonoksi, johon Tallennamme tiedoston sijainnin ja toisen muuttujan Työkirjalle alla esitetyllä tavalla.

koodi:

Sub VBA_XML2()Dim XMLFile As StringDim WBook As WorkbookEnd Sub

Vaihe 3: nyt samanlainen kuin edellisessä esimerkissä käytämme nyt 2 sovelluksia, Yksi näytön päivittäminen ja muut näytön hälytykset vääränä.

koodi:

Sub VBA_XML2()Dim XMLFile As StringDim WBook As WorkbookApplication.ScreenUpdating = FalseApplication.DisplayAlerts = FalseEnd Sub

Vaihe 4: nyt määritelty muuttuja XMLFile, me määrittää polku XML-tiedoston.

koodi:

Sub VBA_XML2()Dim XMLFile As StringDim WBook As WorkbookApplication.ScreenUpdating = FalseApplication.DisplayAlerts = FalseXMLFile = "C:\Ashwani\Company.xml"End Sub

Vaihe 5: samanlainen esimerkki-1, päivitämme nyt asettaa koodin avaamiseen XML-tiedoston polku määritelty XMLFile muuttuja ja lataa tietojen tuonti luetteloon.

koodi:

Sub VBA_XML2()Dim XMLFile As StringDim WBook As WorkbookApplication.ScreenUpdating = FalseApplication.DisplayAlerts = FalseXMLFile = "C:\Ashwani\Company.xml"Set WBook = Workbooks.OpenXML(Filename:=XMLFile, LoadOption:=xlXmlLoadImportToList)End Sub

Vaihe 6: nyt jälleen laittaa näytön hälytys sovellus tosi.

koodi:

Sub VBA_XML2()Dim XMLFile As StringDim WBook As WorkbookApplication.ScreenUpdating = FalseApplication.DisplayAlerts = FalseXMLFile = "C:\Ashwani\Company.xml"Set WBook = Workbooks.OpenXML(Filename:=XMLFile, LoadOption:=xlXmlLoadImportToList)Application.DisplayAlerts = TrueEnd Sub

Vaihe 7:Kun tiedot tuodaan, kopioimme sen toiseen työkirjaan valitusta solusta A1: D1 kohti XML-tiedoston otsikoiden määrää.

koodi:

Sub VBA_XML2()Dim XMLFile As StringDim WBook As WorkbookApplication.ScreenUpdating = FalseApplication.DisplayAlerts = FalseXMLFile = "C:\Ashwani\Company.xml"Set WBook = Workbooks.OpenXML(Filename:=XMLFile, LoadOption:=xlXmlLoadImportToList)Application.DisplayAlerts = TrueWBook.Sheets(1).UsedRange.Copy ThisWorkbook.Sheets(1).Range("A1:D1")End Sub

Vaihe 8: vihdoin sulje koodi käyttämällä näytön päivittäminen sovellus todeksi.

koodi:

Sub VBA_XML2()Dim XMLFile As StringDim WBook As WorkbookApplication.ScreenUpdating = FalseApplication.DisplayAlerts = FalseXMLFile = "C:\Ashwani\Company.xml"Set WBook = Workbooks.OpenXML(Filename:=XMLFile, LoadOption:=xlXmlLoadImportToList)Application.DisplayAlerts = TrueWBook.Sheets(1).UsedRange.Copy ThisWorkbook.Sheets(1).Range("A1:D1")Application.ScreenUpdating = TrueEnd Sub

Vaihe 9:Nyt jos suoritamme tämän koodin, näemme tiedot XML-tiedosto saa tuodaan uuteen Excel-työkirja kuten alla.

plussat VBA XML

• vaikka et osaisi luoda XML-tiedostoa ja työstää sitä käyttäen tällaisia VBA-koodeja, voimme purkaa tiedot VBA-koodiin tai Exceliin.
• voimme jäsentää osan XML-datasta tai täydellisen datan VBA-ikkunaan solmuviitteiden avulla.

muistettavat asiat

• jokaisella solmuviitteellä on oma arvonsa ja merkityksensä. Oikean muistiinpanotyypin käyttäminen on erittäin tärkeää kaikissa olosuhteissa.
• XML – VBA ei rajoitu koodiin, jonka olemme nähneet yllä olevissa esimerkeissä.
• Voimme poimia minkä tahansa tyyppistä tietoa käyttämällä koodia, jonka olemme nähneet edellä käsitellyissä esimerkeissä. Mutta pitää oikea sijainti ja polku, joka on helppo käyttää.
• voimme myös purkaa XML-tiedoston tiedot avaamatta sitä kehittäjäilmaisimen Lähdeasetuksesta. Tämä auttaa meitä saamaan tiedot sellaisenaan Excel-työkirjaan.
• Tallenna kirjoitettu koodi Excel – tiedosto makro-käytössä olevaan excel-muotoon, jotta koodi ei häviä.

suositellut artikkelit

tämä on opas VBA XML: ään. Tässä keskustellaan vaiheet tuoda & lisää XML Excel VBA ja sen eri solmut sekä käytännön esimerkkejä ja ladattavia excel-malli. Voit myös käydä läpi muita ehdotettuja artikkeleita–

1. VBA LBound
2. VBA Get Cell Value
3. VBA IsError
4. VBA Solver