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.

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–

1. VBA LBound
2. Vba Få Celleverdi
3. Vba IsError
4. VBA Løser