Skriv tekstfil i Excel VBA

Vi støder alle sammen på en sådan form for situation, hvor vi var nødt til at lægge enorme data i excel-filer, men til sidst har vi stået over for situationen, når størrelsen på den fil med de enorme data gik så op, at vi måtte konvertere det til en tekst fil. På grund af dette kunne vi hverken arbejde på denne fil eller gemme filen i Excel-format. Denne form for situation har vi set i mange projekter, hvor vi er nødt til at udtrække dataene fra databasen. Udtræk af dataene fra databasen er muligt, hvis du bruger tekstfil til dette formål. Tekstfilen hænges ikke op, og vi kan gemme så mange data og tabeller i en enkelt tekstfil uden at ødelægge filen. Til dette er vi nødt til at konvertere excel-filen til en tekstfil. Selvom det ikke er en stor opgave at når det er en gentagen aktivitet og kan tage enorm tid at udføre.

For at undgå dette har vi en proces i VBA, med den kan vi konvertere excel-filen til en tekstfil uden at skade dataene. På denne måde kan vi gemme et enormt sæt data i tekstfilen ved at reducere og komprimere filstørrelsen også.

At forstå VBA-koden til skrivning af tekstfilen er ret kompliceret, men det er ikke svært at forstå.

Process fulgt:

  • Filsti: Sætning af stien til filen, hvor vi har gemt excel-filen.
  • Mode: Til hvilket formål har vi brug for at åbne filen. Det kan være skrivebeskyttet tilstand eller skriveformål, eller vi er nødt til at bruge dem til at tilføje dataene.
  • Filnummer: På dette tidspunkt kan vi tælle antallet af tid, vi har brugt til Excel-fil til en tekstfil.

Hvordan man skriver tekstfil i Excel VBA?

Vi lærer, hvordan man skriver en tekstfil ved hjælp af VBA-kode i Excel med et par eksempler.

Du kan downloade denne VBA Skriv tekstfil Excel skabelon her - VBA Skriv tekst fil Excel skabelon

Eksempel # 1 - VBA Skriv tekstfil

I dette eksempel vil vi se, hvordan man kortlægger filplacering med VBA-kode for at skrive den over tekstfilformatet. Til dette har vi brug for et modul.

Trin 1: Gå til menuen Indsæt menu, og vælg Modul som vist nedenfor.

Trin 2: Skriv nu underkategorien til VBA-skrivetekst i det åbne modul, eller vi kan vælge ethvert navn efter vores valg.

Kode:

 Sub WritTextFile2 () End Sub

Trin 3: I det første trin med kodning, erklær variablen myFile som streng som vist nedenfor.

Kode:

 Sub WritTextFile2 () Dim myFile Som streng End Sub

Trin 4: I den tildelte variabel anbringes placeringen af ​​den fil, som vi har brug for at konvertere fra Excel til tekst. Her har vi navngivet den fil som Test med udvidelsen. txt som vist nedenfor.

Kode:

 Sub WritTextFile2 () Dim myFile As String myFile = "D: \ VPB File \ April Files \ Final location \ Final Input.txt" End Sub

Trin 5: Som vi har set i beskrivelsen af ​​VBA Skriv tekstfil, åbner vi først excel-filen og tilføjer derefter dataene fra Excel til en tekstfil med kommandolinjen nedenfor.

Kode:

 Sub WritTextFile2 () Dim myFile As String myFile = "D: \ VPB File \ April Files \ Final location \ Final Input.txt" Åbn myFile til tilføj som nr. 1 End Sub

Trin 6: Lad os nu lægge noget tekst i en tekstfil, som vi gerne vil se som vist nedenfor ved hjælp af Skriv nr. 1 til den første tabel. Vi har indtastet nogle tilfældige bilmærker med modelnavn og specifikationer.

Kode:

 Sub WritTextFile2 () Dim myFile As String myFile = "D: \ VPB File \ April Files \ Final location \ Final Input.txt" Åbn myFile til tilføj som nr. 1 Skriv nr. 1, "Ford", "Figo", 1000, " miles ", 2000 Skriv nr. 1, " Toyota ", " Etios ", 2000, " miles ", End Sub

Trin 7: Luk nu den første tabel som vist nedenfor.

Kode:

 Sub WritTextFile2 () Dim myFile As String myFile = "D: \ VPB File \ April Files \ Final location \ Final Input.txt" Åbn myFile til tilføj som nr. 1 Skriv nr. 1, "Ford", "Figo", 1000, " miles ", 2000 Skriv nr. 1, " Toyota ", " Etios ", 2000, " miles ", Luk nr. 1 End Sub

Trin 8: Vi vil også gerne se meddelelsen, når processen er afsluttet.

Kode:

 Sub WritTextFile2 () Dim myFile As String myFile = "D: \ VPB File \ April Files \ Final location \ Final Input.txt" Åbn myFile til tilføj som nr. 1 Skriv nr. 1, "Ford", "Figo", 1000, " miles ", 2000 Skriv nr. 1, " Toyota ", " Etios ", 2000, " miles ", Luk nr. 1 MsgBox" Gemt "End Sub

Trin 9: Kompiler nu koden og kør den ved at klikke på knappen Afspil under menulinjen som vist nedenfor. Hvis der ikke er fundet nogen fejl, får vi meddelelsesfeltet med meddelelsen Gemt som vist nedenfor.

Trin 10: Gå nu til det sted, som vi har nævnt i koden ovenfor, vi vil se tekstfilen med navnet Test som vist nedenfor.

For at kontrollere, om denne tekstfil har de samme data, som vi har indtastet via VBA, skal du åbne den. Vi vil se, at de samme data er indtastet.

Eksempel 2 - VBA Skriv tekstfil

Der er en anden måde til det samme arbejde.

Trin 1: I eksemplet bruger vi den samme kode, som vi har skrevet ovenfor, men der vil være en lille ændring i den anvendte kode. Lad os overveje den samme kode som vist i eksempel-1.

Kode:

 Sub WritTextFile2 () Dim myFile As String myFile = Åbn myFile til tilføjet som nr. 1 Skriv nr. 1, "Ford", "Figo", 1000, "miles", 2000 Skriv nr. 1, "Toyota", "Etios", 2000, "miles", Luk nr. 1 MsgBox "Gemt" End Sub

Trin 2: Vælg i stedet for filplacering den aktive projektmappe med ActiveWorkbook som vist nedenfor.

Kode:

 Sub WritTextFile2 () Dim myFile As String myFile = ActiveWorkbook. Åbn myFile til tilføjet som nr. 1 Skriv nr. 1, "Ford", "Figo", 1000, "miles", 2000 Skriv nr. 1, "Toyota", "Etios", 2000, "miles", Luk # 1 MsgBox "Gemt "Afslut sub

Trin 3: Vælg nu stien fra rullelisten med ActiveWorkBook .

Kode:

 Sub WritTextFile2 () Dim myFile As String myFile = ActiveWorkbook.Path Åbn myFile til tilføj som nr. 1 Skriv nr. 1, "Ford", "Figo", 1000, "miles", 2000 Skriv nr. 1, "Toyota", "Etios", 2000, "miles", Luk nr. 1 MsgBox "Gemt" End Sub

Trin 4: Vælg derefter stien, hvor vi skal tilføje dataene i tekstfilen adskilt af en ampersand.

Kode:

 Sub WritTextFile2 () Dim myFile As String myFile = ActiveWorkbook.Path & "\ VPB File" Åbn myFile til tilføj som nr. 1 Skriv nr. 1, "Ford", "Figo", 1000, "miles", 2000 Skriv # 1, " Toyota ", " Etios ", 2000, " miles ", Luk nr. 1 MsgBox" Gemt "End Sub

Trin 5: Kompilér nu igen koden og kør den efter det. Efter en vellykket afslutning af kørsel får vi beskeden som Gemt .

Gå nu igen til den sti, hvor vi har gemt denne fil, der har koden, og se, om tekstfilen er gemt der eller ej.

Åbn nu filen for at kontrollere, om dataene er vedhæftet korrekt eller ej. Vi finder ud af, at data tilføjes på samme måde, som de skete i eksempel-1.

Fordele ved Excel VBA Skriv tekstfil

  • Vi behøver ikke engang at åbne nogen fil for at tilføje dataene.
  • Hvis dataene er enorme, kan vi tilføje dataene fra Excel til tekst uden at åbne filen. Så der er ikke noget problem med at håndtere filen.
  • Hvis vi går med processen, der er delt i eksempel-2, behøver vi ikke engang at angive den sti, hvor vi vil se output-tekstfilen.

Ting at huske

  • I processen vist i eksempel-1 kan vi placere filen på det sted, hvor vi vil se output.
  • I processen vist i eksempel-2 vil den automatisk overveje filens placering, der har VBA-kode for VBA Skriv tekstfil.
  • Vi kan endda vælge dataene fra en hvilken som helst excel-fil, som vi vil konvertere i tekstfilen.
  • Vi kan vælge og oprette alle mange som en tabel, som vi vil tilføje i tekstfilen.

Anbefalede artikler

Dette er en guide til VBA Skriv tekstfil. Her diskuterer vi, hvordan man skriver en tekstfil i Excel ved hjælp af VBA-kode sammen med praktiske eksempler og downloadbar excel-skabelon. Du kan også gennemgå vores andre foreslåede artikler -

  1. VBA InStr forklaret med eksempler
  2. VBA heltal datatype
  3. VBA ISNULL forklaret med eksempler
  4. Transponér et interval i VBA

Kategori:

VBA