VBA XML

Excel VBA XML
DEN fulle FORMEN FOR XML er eXtensible Markup Language som er mye som EN HTML-fil, er laget for å lagre og transportere data fra forskjellige programmer. XML-filen lagrer dataene som inkluderer delinger og separatorer. Vi kan lage EN VBA-kode som vi kan importere dataene fra XML-filen Til Excel. For å importere data FRA XML-filen til et annet format, må vi sette noen regler som forteller hva slags data og felt som kan brukes I XML-filen. For å lage en makro I VBA FOR XML-filen, trenger vi ikke OBLIGATORISK XML Notisblokk i vårt system. Men hvis vi har det, vil det være enkelt for OSS å lese XML-filen for dataene vi trenger.
Selv Om Vi i Excel har en bestemmelse om å importere dataene TIL XML-filen, men ved HJELP AV VBA, kan vi lese, importere XML-filen I Excel.
Se Våre Demo Kurs Og Videoer
Verdivurdering, Hadoop, Excel, Mobile Apps, Web Development & mange flere.
Typer Av Node I VBA XML
I XML har VI en rekke Noder som konstruktivt hjelper til med å lese OG analysere XML-filen i andre kilder som Word eller Excel. Hvert Dokumentelement refererer til noen av nodene lister nedenfor.
- Foreldernode
- Første Barn
- Siste Barn
- Barnnoder
- Neste Søsken
- Forrige Søsken
alle de ovennevnte nodene bekrefter typen som , der Bare barnnoder er de Samme Nodene .array type av.
I dette eksemplet ser vi en veldig enkel Vba-Kode for å få tilgang TIL XML-filen lagret i det enkelte systemets plassering og laste dem inn I VBA. Vanligvis, for å importere XML-filer i Excel ved HJELP AV VBA, har VI MSXML2.DOMDocument objekt for å tillate oss å krysse data GJENNOM XML struktur. Men dette kan ikke brukes i dette eksemplet.
For dette må vi ha EN XML-fil der vi kan lage en datastruktur i Form Av Skjema. Nedenfor er skjermbildet Av Selskapsskjema der under det har Vi Ansatt gren med ansattes detaljer Som Fornavn, Etternavn, Kontaktnummer, E-POST-ID.


Trinn For Å Importere & Legg TIL XML I Excel VBA
nedenfor er eksempler PÅ XML i Excel ved HJELP AV Vba-Koden.
Eksempel #1
Trinn 1: først går Du Til Sett inn menyfanen I VBA og åpner En Modul der vi skal skrive koden tverrgående data GJENNOM XML som vist nedenfor.

Trinn 2: Skriv delprosedyren i NAVNET PÅ VBA XML for definisjonen av koden.
Kode:
Sub VBA_XML()End Sub

Trinn 3: Som vi allerede diskuterte, FOR XML-filen vil vi kreve Objekt. Så, nå definere en variabel MED DIM Som Streng som skal brukes til lagring Av Filnavnet.
Kode:
Sub VBA_XML()Dim XMLFile As StringEnd Sub

Trinn 4: Nå vil vi bruke et program Display Varsler som brukes for å vise varselmeldingen hvis den valgte banen er feil.
Kode:
Sub VBA_XML()Dim XMLFile As StringApplication.DisplayAlerts = FalseEnd Sub

Trinn 5: Nå vil vi sette lenken eller stedet der VI har holdt XML-filen og tilordne den til den definerte variabelen.
Kode:
Sub VBA_XML()Dim XMLFile As StringApplication.DisplayAlerts = FalseXMLFile = "C:\Ashwani\Company.xml"End Sub

Trinn 6: Som vi diskuterte, får vi det første Objektet MED MSXML2.DOMDoucment.
Kode:
Sub VBA_XML()Dim CusDoc As ObjectDim Base As ObjectSet CusDoc = CreateObject("MSXML2.DOMDoucment")End Sub

Trinn 7: for å laste inn DATAENE I XML-filen I Excel, må vi åpne DEN XML-filen, ved hjelp av navnet og stedet som vi har lagret I XML – filvariabelen, og velg lastalternativet Som Import Til Liste som vist nedenfor.
Kode:
Sub VBA_XML()Dim XMLFile As StringApplication.DisplayAlerts = FalseXMLFile = "C:\Ashwani\Company.xml"Workbooks.OpenXML Filename:=XMLFile, LoadOption:=xlXmlLoadImportToListEnd Sub

Trinn 8: Endelig, bruk Igjen Programalternativet for å vise varselet SOM SANT hvis det er noen.
Kode:
Sub VBA_XML()Dim XMLFile As StringApplication.DisplayAlerts = FalseXMLFile = "C:\Ashwani\Company.xml"Workbooks.OpenXML Filename:=XMLFile, LoadOption:=xlXmlLoadImportToListApplication.DisplayAlerts = TrueEnd Sub

Trinn 9: nå skal vi kompilere den skriftlige koden ved å trykke på f8 functional key og kjøre den, hvis det ikke er funnet feil under kompilering.
vi vil se, dataene som er lagret I XML-filen, importeres ikke i en ny arbeidsbok som vist nedenfor. Vi kan hente lengden PÅ DATA AV XML-fil I Excel ved hjelp av denne enkle Vba-Koden.

Eksempel #2
Det er en annen måte å importere dataene TIL EN XML-fil ved HJELP AV Vba-Koden, som også er enkel. For dette kan vi ha en annen modul av vi kan gjøre endringene i samme modul også.
Trinn 1: for dette igjen ville vi kreve en modul og der skrive delprosedyren i navnet VBA XML.
Kode:
Sub VBA_XML2()End Sub

Trinn 2: Definer en variabel Som Streng der vi skal lagre filplasseringen og en annen variabel For Arbeidsbok som vist nedenfor.
Kode:
Sub VBA_XML2()Dim XMLFile As StringDim WBook As WorkbookEnd Sub

Trinn 3: nå ligner på forrige eksempel vil vi nå bruke 2-Programmer, En Av Skjermoppdatering og andre For Visningsvarsler SOM FALSKE.
Kode:
Sub VBA_XML2()Dim XMLFile As StringDim WBook As WorkbookApplication.ScreenUpdating = FalseApplication.DisplayAlerts = FalseEnd Sub

Trinn 4: nå i den definerte variabelen XMLFile, vil vi tildele BANEN TIL XML-filen.
Kode:
Sub VBA_XML2()Dim XMLFile As StringDim WBook As WorkbookApplication.ScreenUpdating = FalseApplication.DisplayAlerts = FalseXMLFile = "C:\Ashwani\Company.xml"End Sub

Trinn 5: I Likhet med eksempel-1, oppdaterer vi nå koden for Å Åpne XML-filen med banen definert I xmlfile-variabelen og laster Dataimporten til listen.
Kode:
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

Trinn 6: nå igjen for å sette Skjermvarslingsprogrammet SOM SANT.
Kode:
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

Trinn 7: når dataene er importert, kopierer vi det til en annen arbeidsbok fra den valgte cellen A1: D1 i henhold til antall overskrifter som er tilgjengelige I XML-filen.
Kode:
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

Trinn 8: endelig lukk koden ved Hjelp Av Skjermoppdateringsprogrammet SOM SANT.
Kode:
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

Trinn 9: nå hvis vi kjører denne koden, vil vi se at dataene FRA XML-filen blir importert til en Ny Excel-arbeidsbok som vist nedenfor.

Pros AV VBA XML
- selv om du ikke vet hvordan du lager EN XML-fil og jobber med den, kan vi ved hjelp av SLIKE vba-koder trekke ut dataene i VBA-Kode eller I Excel.
- vi kan analysere EN del AV XML-Data eller komplette data i vba-vinduet ved hjelp av nodereferanser.
Ting Å Huske
- Hver node referanse har sin egen verdi og mening. Bruke riktig notat typen er svært viktig for hver tilstand.
- XML TIL VBA er ikke begrenset til koden som vi har sett i eksemplene ovenfor.
- vi kan trekke ut alle typer data ved hjelp av koden som vi har sett i ovennevnte eksempler. Men hold riktig sted og sti som er lett å få tilgang til.
- Vi kan også trekke UT XML-fildataene uten å åpne den fra utviklerfanen Kildealternativ. Dette vil hjelpe oss å få dataene som det er i Excel-arbeidsboken.
- Lagre Den skrevne koden Excel-filen I Makroaktivert excel-format, for å unngå å miste koden.
Anbefalte Artikler
dette er en veiledning TIL VBA XML. Her diskuterer Vi Trinn For Å Importere & Legg TIL XML I Excel VBA og dens forskjellige typer node sammen med praktiske eksempler og nedlastbar excel-mal. Du kan også gå gjennom våre andre foreslåtte artikler–
- VBA LBound
- Vba Få Celleverdi
- Vba IsError
- VBA Løser
Leave a Reply