VBA

VBA

den fulde form af VBA er udvideligt Markup sprog, som er meget gerne en HTML-fil, er designet til at gemme og transportere data fra forskellige programmer. Fil gemmer de data, som omfatter splits og separatorer. Vi kan oprette en VBA-kode, hvormed vi kan importere dataene fra filen. For at importere dataene fra filen til et andet format, skal vi indstille nogle regler, der fortæller, hvilken type data og felter der kan bruges i filen. For at oprette en makro i VBA til filen, behøver vi ikke obligatorisk Notesblok i vores system. Men hvis vi har det, vil det være let for os at læse filen for de data, vi har brug for.

selvom vi har en bestemmelse om at importere dataene fra filen, men ved hjælp af VBA kan vi læse, importere filen i filen.

vi har en række noder, der konstruktivt hjælper med at læse og analysere filen i andre kilder, f.eks. Hvert Dokumentelement henviser til nogle af nodelisterne nedenfor.

• Parent node
• First Child
• Last Child
• Child noder
• næste søskende
• tidligere søskende

alle ovennævnte noder bekræfter typen som , hvor kun Barneknuder er array typen af .

i dette eksempel vil vi se en meget enkel VBA-kode for at få adgang til filen, der er gemt i det enkelte systems placering og indlæse dem i VBA. Normalt har vi MSML2 for at importere filer i VBA.DOMDocument objekt for at tillade os at krydse dataene gennem strukturen. Men dette kan ikke bruges i dette eksempel.

til dette skal vi have en HML-fil, hvor vi kan oprette en datastruktur i form af skema. Nedenfor er skærmbilledet af Virksomhedsskema, hvor vi under det har Medarbejdergren med medarbejderoplysninger som Fornavn, Efternavn, kontaktnummer, e-mail-ID.

trin til Import& Tilføj VBA i VBA

nedenfor er eksemplerne på VBA i VBA-koden.

eksempel #1

Trin 1: Gå først til Indsæt menufanen i VBA og åbn et modul, hvor vi vil skrive koden tværgående data gennem VBA som vist nedenfor.

Trin 2: Skriv underproceduren i navnet på VBA for definitionen af koden.

kode:

Sub VBA_XML()End Sub

Trin 3: som vi allerede har diskuteret, vil vi kræve objekt for filen. Så Definer nu en variabel ved hjælp af DIM som streng, som vil blive brugt til lagring af filnavnet.

kode:

Sub VBA_XML()Dim XMLFile As StringEnd Sub

Trin 4: Nu bruger vi en applikation Display Alerts som bruges til at vise advarselsmeddelelsen, hvis den valgte sti er forkert.

kode:

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

Trin 5: Nu sætter vi linket eller placeringen, hvor vi har gemt filen og tildeler den til den definerede variabel.

kode:

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

Trin 6: Som vi diskuterede, får vi det første objekt med MSML2.DOMDoucment.

kode:

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

Trin 7: for at indlæse dataene i filen, skal vi åbne filen ved hjælp af navnet og placeringen, som vi har gemt i Filvariablen, og vælg indstillingen Indlæs som Import til listen som vist nedenfor.

kode:

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

Trin 8: Til sidst skal du igen bruge Applikationsindstillingen til at vise advarslen som sand, hvis der er nogen.

kode:

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

trin 9: Nu kompilerer vi den skrevne kode ved at trykke på F8 functional key og køre den, hvis der ikke findes nogen fejl under kompilering.

vi vil se, de data, der er gemt i filen, importeres ikke i en ny projektmappe som vist nedenfor. Vi kan hente en hvilken som helst længde af data fra fil til at udmærke sig ved hjælp af denne enkle VBA kode.

eksempel #2

der er en anden måde at importere data fra en VBA-fil ved hjælp af VBA-koden, som også er enkel. Til dette kan vi have et andet modul af Vi kan også foretage ændringerne i det samme modul.

Trin 1: til dette igen ville vi kræve et modul og der skrive underproceduren i navnet VBA.

kode:

Sub VBA_XML2()End Sub

Trin 2: Definer en variabel som streng, hvor vi gemmer filplaceringen og en anden variabel til projektmappe som vist nedenfor.

kode:

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

Trin 3: nu i lighed med det foregående eksempel vil vi nu bruge 2 applikationer, en af skærmopdatering og andre til Displayadvarsler som falske.

kode:

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

Trin 4: nu i den definerede variabel Hmlfil, vil vi tildele stien til HML-filen.

kode:

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

Trin 5: i lighed med eksempel-1, vil vi nu opdatere indstille koden til åbning af filen med stien defineret i variablen og indlæse 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

Trin 6: nu igen for at sætte Display alert ansøgning som sandt.

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

Trin 7: Når dataene er importeret, kopierer vi dem til en anden projektmappe fra den valgte celle A1:D1 pr.

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

Trin 8: Luk endelig koden ved hjælp af Skærmopdateringsprogrammet som sandt.

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

trin 9: hvis vi nu kører denne kode, vil vi se, at dataene fra filen importeres til en ny projektmappe som vist nedenfor.

fordele ved VBA

• selvom du ikke ved, hvordan du opretter en HML-fil og arbejder på den ved hjælp af sådanne VBA-koder, kan vi udtrække dataene i VBA-kode eller i udmærke.
• vi kan analysere en del af data eller udfylde data i VBA-vinduet ved hjælp af node referencer.

ting at huske

• hver node reference har sin egen værdi og betydning. Brug af den rigtige notetype er meget vigtig for enhver tilstand.
• HML til VBA er ikke begrænset til den kode, som vi har set i ovenstående eksempler.
• vi kan udtrække enhver type data ved hjælp af koden, som vi har set i ovenstående diskuterede eksempler. Men hold den rette placering og sti, som er let at få adgang til.
• vi kan også udtrække fildataene uden at åbne dem fra fanen Udvikler kilde mulighed. Dette vil hjælpe os med at få dataene, som de er i projektmappen.
• gem den skrevne kode i makro-aktiveret format for at undgå at miste koden.

Anbefalede artikler

dette er en guide til VBA. Her diskuterer vi trin til at importere & Tilføj til VBA og dens forskellige typer node sammen med praktiske eksempler og skabelon, der kan hentes. Du kan også gennemgå vores andre foreslåede artikler–

1. VBA LBound
2. VBA få celleværdi
3. VBA IsError
4. VBA Solver