Skriv tekstfil i Excel VBA

Vi har alle en slik situasjon der vi måtte legge enorme data i excel-filer, men til slutt har vi møtt situasjonen når størrelsen på den filen med de enorme dataene gikk så opp at vi måtte konvertere den til en tekst fil. På grunn av dette kunne vi verken jobbe med den filen eller lagre filen i Excel-format. Denne typen situasjoner har vi sett i mange prosjekter der vi trenger å hente ut dataene fra databasen. Å trekke ut dataene fra databasen er mulig hvis du bruker tekstfil til dette formålet. Tekstfilen blir ikke hengt, og vi kan lagre så mange data og tabeller i en enkelt tekstfil uten å krasje filen. For dette må vi konvertere Excel-filen til en tekstfil. Selv om det ikke er en stor oppgave å når det er en gjentagende aktivitet og kan ta enorm tid å utføre.

For å unngå dette har vi en prosess i VBA, med det kan vi konvertere excel-filen til en tekstfil uten å skade dataene. På denne måten kan vi lagre et enormt sett med data i tekstfilen ved å redusere og komprimere filstørrelsen også.

Å forstå VBA-koden for å skrive tekstfilen er ganske komplisert, men det er ikke vanskelig å forstå.

Prosess fulgt:

  • File Path: Setter banen til filen der vi har beholdt excel-filen.
  • Mode: Til hvilket formål vi trenger for å åpne filen. Det kan være skrivebeskyttet modus eller skriveformål, eller vi må bruke det til å legge til dataene.
  • Filnummer: På dette tidspunktet kan vi telle hvor mye tid vi har brukt til Excel-fil for en tekstfil.

Hvordan skrive tekstfil i Excel VBA?

Vi lærer hvordan du skriver en tekstfil med VBA-kode i Excel med noen få eksempler.

Du kan laste ned denne VBA Write Text File Excel Template her - VBA Write Text File Excel Template

Eksempel 1 - VBA Skriv tekstfil

I dette eksemplet vil vi se hvordan du kartlegger filplassering med VBA-kode for å skrive den over tekstfilformatet. For dette trenger vi en modul.

Trinn 1: Gå til Sett inn menyalternativ og velg Modul som vist nedenfor.

Trinn 2: I den åpnede modulen skriver du underkategorien til VBA-skrivetekst, eller vi kan velge hvilket som helst navn etter vårt valg.

Kode:

 Sub WritTextFile2 () Slutt Sub

Trinn 3: I det første trinnet med koding, erklærer variabelen myFile som streng som vist nedenfor.

Kode:

 Sub WritTextFile2 () Dim myFile As String End Sub

Trinn 4: I den tildelte variabelen, plasser plasseringen av filen som vi trenger å konvertere fra Excel til tekst. Her har vi navngitt den filen som Test med utvidelsen. txt som vist nedenfor.

Kode:

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

Trinn 5: Som vi har sett i beskrivelsen av VBA Skriv tekstfil, vil vi først åpne excel-filen og deretter legge 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" Åpne myFile For Append As # 1 End Sub

Trinn 6: La oss legge litt tekst i en tekstfil som vi ønsker å se som vist nedenfor ved hjelp av Skriv nr. 1 for den første tabellen. Vi har lagt inn noen tilfeldige bilmerker med modellnavn og spesifikasjoner.

Kode:

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

Trinn 7: Lukk nå den første tabellen som vist nedenfor.

Kode:

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

Trinn 8: Vi vil også se meldingen når prosessen er fullført.

Kode:

 Sub WritTextFile2 () Dim myFile As String myFile = "D: \ VPB File \ April Files \ Final location \ Final Input.txt" Åpne myFile For Legg til som nr. 1 Skriv nr. 1, "Ford", "Figo", 1000, " miles ", 2000 Skriv nr. 1, " Toyota ", " Etios ", 2000, " miles ", Lukk nr. 1 MsgBox" Saved "End Sub

Trinn 9: Sett sammen koden og kjør den ved å klikke på Spill-knappen under menylinjen som vist nedenfor. Hvis det ikke er funnet noen feil, vil vi få meldingsboksen med meldingen Lagret som vist nedenfor.

Trinn 10: Gå nå til stedet som vi har nevnt i koden over, vi vil se tekstfilen med navnet Test som vist nedenfor.

Nå for å sjekke om denne tekstfilen har de samme dataene som vi har lagt inn gjennom VBA, åpner du den. Vi vil se at de samme dataene er lagt inn.

Eksempel # 2 - VBA Skriv tekstfil

Det er en annen måte å gjøre det samme arbeidet på.

Trinn 1: I eksemplet vil vi bruke den samme koden som vi har skrevet over, men det vil være en liten endring i koden som ble brukt. La oss vurdere den samme koden som vist i eksempel-1.

Kode:

 Sub WritTextFile2 () Dim myFile As String myFile = Åpne myFile For Legg til som nr. 1 Skriv nr. 1, "Ford", "Figo", 1000, "miles", 2000 Skriv nr. 1, "Toyota", "Etios", 2000, "miles", Lukk nr. 1 MsgBox "Saved" End Sub

Trinn 2: Nå i stedet for filplassering, velg den aktive arbeidsboken med ActiveWorkbook som vist nedenfor.

Kode:

 Sub WritTextFile2 () Dim myFile As String myFile = ActiveWorkbook. Åpne myFile For Append som nr. 1 Skriv nr. 1, "Ford", "Figo", 1000, "miles", 2000 Skriv nr. 1, "Toyota", "Etios", 2000, "miles", Lukk nr. 1 MsgBox "Lagret "Slutt sub

Trinn 3: Velg nå banen fra nedtrekkslisten til ActiveWorkBook .

Kode:

 Sub WritTextFile2 () Dim myFile As String myFile = ActiveWorkbook.Path Åpne myFile For Legg til som nr. 1 Skriv nr. 1, "Ford", "Figo", 1000, "miles", 2000 Skriv nr. 1, "Toyota", "Etios", 2000, "miles", Lukk nr. 1 MsgBox "Saved" End Sub

Trinn 4: Velg deretter banen der vi trenger å legge dataene inn i tekstfilen atskilt med en ampersand.

Kode:

 Sub WritTextFile2 () Dim myFile As String myFile = ActiveWorkbook.Path & "\ VPB File" Åpne myFile For Legg til som nr. 1 Skriv nr. 1, "Ford", "Figo", 1000, "miles", 2000 Skriv # 1, " Toyota ", " Etios ", 2000, " miles ", Lukk nr. 1 MsgBox" Lagret "End Sub

Trinn 5: Sett sammen koden igjen og kjør den etter det. Etter vellykket gjennomføring av løpet, vil vi få meldingen som lagret .

Gå igjen til den banen der vi har lagret denne filen som har koden og se om tekstfilen er lagret der eller ikke.

Nå åpner filen for å sjekke om dataene er riktig vedlagt eller ikke. Vi vil finne at data blir lagt ved på samme måte som det skjedde i eksempel-1.

Fordeler med Excel VBA Skriv tekstfil

  • Vi trenger ikke en gang å åpne noen fil for å legge ved dataene.
  • Hvis dataene er enorme, kan vi legge dataene fra Excel til tekst uten å åpne filen. Så det er ikke noe problem å håndtere filen også.
  • Hvis vi går med prosessen som er delt i eksempel-2, trenger vi ikke en gang å gi banen der vi ønsker å se utdatatekstfilen.

Ting å huske

  • I prosessen vist i eksempel-1, kan vi plassere filen på stedet der vi vil se utdataene.
  • I prosessen vist i eksempel-2 vil den automatisk vurdere filstedet som har VBA-kode for VBA Skriv tekstfil.
  • Vi kan til og med velge dataene fra en hvilken som helst Excel-fil som vi ønsker å konvertere i Tekstfilen.
  • Vi kan velge og opprette mange som en tabell som vi vil legge til i tekstfilen.

Anbefalte artikler

Dette er en guide til VBA Skriv tekstfil. Her diskuterer vi hvordan du skriver en tekstfil i Excel ved hjelp av VBA-kode sammen med praktiske eksempler og nedlastbar Excel-mal. Du kan også gå gjennom andre foreslåtte artikler -

  1. VBA InStr forklarte med eksempler
  2. VBA Integer Datatype
  3. VBA ISNULL Forklaret med eksempler
  4. Transponere et område i VBA

Kategori:

VBA