VBA XML

Excel VBA XML

az XML teljes formája az eXtensible Markup Language, amely nagyon hasonlít egy HTML fájlhoz, célja a különböző programok adatainak tárolása és szállítása. Az XML fájl tárolja az adatokat, amelyek tartalmazzák a felosztásokat és elválasztókat. Létrehozhatunk egy VBA kódot, amellyel importálhatjuk az adatokat az XML fájlból az Excelbe. Annak érdekében, hogy az adatokat az XML fájlból bármilyen más formátumba importáljuk, be kell állítanunk néhány szabályt, amely megmondja, hogy milyen adatok és mezők használhatók az XML fájlban. Makró létrehozása A VBA-ban az XML fájlhoz, nem kötelező szükség van XML jegyzettömbre a rendszerünkben. De ha megvan, akkor könnyű lesz elolvasni az XML fájlt a szükséges adatokhoz.

bár az Excelben van egy RENDELKEZÉSÜNK az XML fájl adatainak importálására, de a VBA használatával olvashatjuk, importálhatjuk az XML fájlt Excel-ben.

csomópont típusok a VBA XML-ben

az XML-ben számos csomópont van, amelyek konstruktív módon segítenek az XML-fájl olvasásában és elemzésében más forrásokban, például Wordben vagy Excel-ben. Minden Dokumentumelem az alábbi csomópontok listájára utal.

• szülő csomópont
• első gyermek
• utolsó gyermek
• gyermek csomópontok
• következő testvér
• előző testvér

az összes fent említett csomópont megerősíti a típust , ahol csak a gyermek csomópontok a tömb típusa nak,-nek .

ebben a példában egy nagyon egyszerű VBA kódot fogunk látni, amellyel hozzáférhetünk az egyes rendszerek bármely helyére mentett XML fájlhoz, és betölthetjük őket a VBA-ba. Általában az XML fájlok Excel-be történő importálásához a VBA használatával MSXML2 van.DOMDocument objektum, amely lehetővé teszi számunkra, hogy az adatokat XML struktúrán keresztül keresztezzük. De ez nem használható ebben a példában.

ehhez szükségünk van egy XML fájlra, amelyben adatstruktúrát hozhatunk létre séma formájában. Az alábbiakban látható a vállalati séma képernyőképe, ahol az alkalmazotti fióktelepünk van az alkalmazottak adataival, például keresztnévvel, vezetéknévvel, kapcsolattartási számmal, e-mail azonosítóval.

importálási lépések & XML hozzáadása Excel-ben VBA

az alábbiakban bemutatjuk az XML-t Excel-ben a VBA-kód használatával.

1. példa

1. lépés: Először lépjen a Menü beszúrása fülre a VBA – ban, és nyisson meg egy modult, ahol a kód keresztirányú adatait XML-en keresztül írjuk az alábbiak szerint.

2. lépés: Írja be az aleljárást a VBA XML nevébe a kód meghatározásához.

Kód:

Sub VBA_XML()End Sub

3. lépés: mint már megbeszéltük, az XML fájlhoz objektumra lesz szükségünk. Tehát most definiáljon egy változót a DIM As String használatával, amelyet a fájlnév tárolására használnak.

Kód:

Sub VBA_XML()Dim XMLFile As StringEnd Sub

4. lépés: Most egy alkalmazást fogunk használni megjelenítési figyelmeztetések amelyet a riasztási üzenet megjelenítésére használnak, ha a kiválasztott útvonal helytelen.

Kód:

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

5. lépés: most feltesszük a linket vagy a helyet, ahol az XML fájlt tartottuk, és hozzárendeljük a megadott változóhoz.

Kód:

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

6. lépés: Amint megbeszéltük, megkapjuk az első objektumot az MSXML2-vel.DOMDoucment.

Kód:

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

Lépés 7: az XML fájl adatainak Excel-be történő betöltéséhez meg kell nyitnunk az XML fájlt, az XML Fájlváltozóban tárolt név és hely használatával, és válassza a load opciót Importálás a listához az alábbiak szerint.

Kód:

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

8. lépés: Végül ismét használja az alkalmazás opciót, hogy a riasztást igazként jelenítse meg, ha van ilyen.

Kód:

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

9. lépés: Most lefordítjuk az írott kódot az F8 funkcionális gomb megnyomásával, és futtatjuk, ha a fordítás során nem található hiba.

látni fogjuk, hogy az XML fájlban tárolt adatok nem kerülnek importálásra egy új munkafüzetbe az alábbiak szerint. Mi lehet letölteni bármilyen hosszúságú adatok XML fájl Excel ezzel az egyszerű VBA kódot.

példa # 2

van egy másik módja annak, hogy importálni az adatokat egy XML fájl segítségével a VBA kódot, ami egyszerű is. Ehhez lehet egy másik modulunk is, ugyanabban a modulban is elvégezhetjük a változtatásokat.

1. lépés: ehhez ismét szükségünk lenne egy modulra, és írjuk be az aleljárást a VBA XML nevében.

Kód:

Sub VBA_XML2()End Sub

2. lépés: Határozzon meg egy változót karakterláncként, ahol a fájl helyét tároljuk, valamint egy másik változót a munkafüzethez az alábbiak szerint.

Kód:

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

3. lépés: az előző példához hasonlóan most 2 alkalmazást fogunk használni, az egyik a Képernyőfrissítés, a másik pedig a megjelenítési figyelmeztetések hamis.

Kód:

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

4. lépés: Most a meghatározott xmlfile változóban hozzárendeljük az XML fájl elérési útját.

Kód:

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

5. lépés: az 1. példához hasonlóan most frissítjük az XML fájl megnyitásának kódját az XMLFile változóban meghatározott elérési úttal, és betöltjük az adatok importálását a listába.

Kód:

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

Lépés 6: most ismét, hogy a Display alert alkalmazás igaz legyen.

Kód:

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

Lépés 7: Az adatok importálása után átmásoljuk azt egy másik munkafüzetbe a kiválasztott cellából A1: D1 az XML fájlban elérhető fejlécek számának megfelelően.

Kód:

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

8. lépés: végül zárja be a kódot a Képernyőfrissítő alkalmazás használatával, mint igaz.

Kód:

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

Lépés 9: Most, ha futtatjuk ezt a kódot, látni fogjuk, hogy az XML fájl adatai egy új Excel munkafüzetbe kerülnek az alábbiak szerint.

előnyei VBA XML

• még ha nem tudja, hogyan kell létrehozni egy XML fájlt, és a munka rajta, az ilyen VBA kódok, tudjuk kivonat az adatokat VBA kódot vagy Excel.
• elemezhetjük az XML adatok egy részét vagy a teljes adatokat a VBA ablakba csomópont-hivatkozások használatával.

emlékezetes dolgok

• minden csomóponthivatkozásnak megvan a maga értéke és jelentése. A megfelelő jegyzettípus használata minden feltételnél nagyon fontos.
• XML VBA nem korlátozódik a kódot, amit láttunk a fenti példákban.
• bármilyen típusú adatot kinyerhetünk a kód segítségével, amelyet a fent tárgyalt példákban láttunk. De tartsa meg a megfelelő helyet és utat, amely könnyen elérhető.
• az XML fájl adatait kibonthatjuk anélkül is, hogy megnyitnánk azokat a fejlesztő fül forrás opciójából. Ez segít nekünk abban, hogy az adatokat az Excel munkafüzetbe helyezzük.
• mentse el az írott kódot Excel fájl makró engedélyezett excel formátumban, hogy elkerülje a kód elvesztését.

ajánlott cikkek

ez egy útmutató a VBA XML-hez. Itt megvitatjuk a & XML hozzáadásának lépéseit az Excel VBA – ban és annak különböző típusú csomópontjaiban, gyakorlati példákkal és letölthető excel sablonnal együtt. Azt is megy át a többi javasolt cikkek–

1. VBA LBound
2. VBA Get Cell érték
3. VBA IsError
4. VBA megoldó