Skriv textfil i Excel VBA

Vi stöter alla på en sådan typ av situation där vi var tvungna att lägga enorma data i Excel-filer, men så småningom har vi mött situationen när storleken på den filen med den enorma informationen gick upp så att vi var tvungna att konvertera den till en text fil. På grund av detta kunde vi varken arbeta med den filen eller spara filen i Excel-format. Den här typen av situation har vi sett i många projekt där vi behöver extrahera data från databasen. Att extrahera data från databasen är möjligt om du använder textfil för detta ändamål. Textfilen hänger inte och vi kan lagra så många data och tabeller i en enda textfil utan att krascha filen. För detta måste vi konvertera Excel-filen till en textfil. Även om det inte är en stor uppgift att när det är en upprepande aktivitet och kan ta enorm tid att utföra.

För att undvika detta har vi en process i VBA, med det kan vi konvertera excel-filen till en textfil utan att skada data. Genom detta kan vi spara en enorm uppsättning data i textfilen genom att minska och komprimera filstorleken också.

Att förstå VBA-koden för att skriva textfilen är ganska komplicerat men det är inte svårt att förstå.

Process följd:

  • Filväg: Att lägga till sökvägen för filen där vi har behållit excel-filen.
  • Läge: För vilket ändamål vi behöver för att öppna filen. Det kan vara skrivskyddsläget eller skrivsyftet eller vi måste använda det för att lägga till data.
  • Filnummer: Här kan vi räkna antalet tid vi har använt för Excel-fil för en textfil.

Hur man skriver textfil i Excel VBA?

Vi kommer att lära dig att skriva en textfil med VBA-kod i Excel med några exempel.

Du kan ladda ner denna VBA Skriv textfil Excel mall här - VBA Skriv textfil Excel mall

Exempel 1 - VBA Skriv textfil

I det här exemplet kommer vi att se hur man kartlägger filplatsen med VBA-kod för att skriva den över textfilformatet. För detta behöver vi en modul.

Steg 1: Gå till Infoga menyalternativ och välj Modul som visas nedan.

Steg 2: Skriv nu underkategorin för VBA Writtext i den öppnade modulen, eller så kan vi välja valfritt namn enligt vårt val.

Koda:

 Sub WritTextFile2 () Slut Sub

Steg 3: I det första steget med kodning, förklara variabeln myFile som sträng som visas nedan.

Koda:

 Sub WritTextFile2 () Dim myFile As String End Sub

Steg 4: Lägg till platsen för filen som vi behöver konvertera från Excel till text i den tilldelade variabeln. Här har vi namnet den filen som Test med tillägget. txt som visas nedan.

Koda:

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

Steg 5: Som vi har sett i beskrivningen av VBA Skriv textfil öppnar vi först excel-filen och lägger sedan data från Excel till en textfil med kommandoraden nedan.

Koda:

 Sub WritTextFile2 () Dim myFile As String myFile = "D: \ VPB-fil \ April Files \ Final location \ Final Input.txt" Öppna myFile för append som # 1 End Sub

Steg 6: Låt oss nu lägga lite text i en textfil som vi vill se som visas nedan med hjälp av Skriv nr 1 för den första tabellen. Vi har angett några slumpmässiga bilmärken med modellnamn och specifikationer.

Koda:

 Sub WritTextFile2 () Dim myFile As String myFile = "D: \ VPB File \ April Files \ Final location \ Final Input.txt" Öppna myFile för bifoga som # 1 Skriv nr 1, "Ford", "Figo", 1000, " miles ", 2000 Skriv nr 1, " Toyota ", " Etios ", 2000, " miles ", End Sub

Steg 7: Stäng nu den första tabellen som visas nedan.

Koda:

 Sub WritTextFile2 () Dim myFile As String myFile = "D: \ VPB File \ April Files \ Final location \ Final Input.txt" Öppna myFile för bifoga som # 1 Skriv nr 1, "Ford", "Figo", 1000, " miles ", 2000 Skriv nr 1, " Toyota ", " Etios ", 2000, " miles ", Stäng nr 1 End Sub

Steg 8: Vi vill också se meddelandet när processen är klar.

Koda:

 Sub WritTextFile2 () Dim myFile As String myFile = "D: \ VPB File \ April Files \ Final location \ Final Input.txt" Öppna myFile för bifoga som # 1 Skriv nr 1, "Ford", "Figo", 1000, " miles ", 2000 Skriv nr 1, " Toyota ", " Etios ", 2000, " miles ", Stäng # 1 MsgBox" Sparad "End Sub

Steg 9: Sätt nu ihop koden och kör den genom att klicka på knappen Spela under menyfältet som visas nedan. Om det inte finns något fel hittar vi meddelanderutan med meddelandet som Sparat som visas nedan.

Steg 10: Gå nu till den plats som vi har nämnt i koden ovan, vi kommer att se textfilen med namnet Test som visas nedan.

För att kontrollera om den här textfilen har samma data som vi har angett via VBA, öppna den. Vi ser att samma data har angetts.

Exempel 2 - VBA Skriv textfil

Det finns ett annat sätt till samma arbete.

Steg 1: I exemplet kommer vi att använda samma kod som vi har skrivit ovan, men det skulle vara en liten förändring av den kod som används. Låt oss överväga samma kod som visas i exempel-1.

Koda:

 Sub WritTextFile2 () Dim myFile As String myFile = Öppna myFile för tillägg som # 1 Skriv nr 1, "Ford", "Figo", 1000, "miles", 2000 Skriv nr 1, "Toyota", "Etios", 2000, "miles", Stäng # 1 MsgBox "Sparad" End Sub

Steg 2: Välj istället för filplatsen den aktiva arbetsboken med ActiveWorkbook som visas nedan.

Koda:

 Sub WritTextFile2 () Dim myFile As String myFile = ActiveWorkbook. Öppna myFile för tillägg som # 1 Skriv nr 1, "Ford", "Figo", 1000, "miles", 2000 Skriv nr 1, "Toyota", "Etios", 2000, "miles", Stäng # 1 MsgBox "Sparad "Avsluta sub

Steg 3: Välj nu sökvägen från rullgardinslistan i ActiveWorkBook .

Koda:

 Sub WritTextFile2 () Dim myFile As String myFile = ActiveWorkbook.Path Öppna myFile för bifoga som nr 1 Skriv nr 1, "Ford", "Figo", 1000, "miles", 2000 Skriv nr 1, "Toyota", "Etios", 2000, "miles", Stäng # 1 MsgBox "Sparad" End Sub

Steg 4: Välj sedan sökvägen där vi behöver lägga till data i textfilen separerad med en ampersand.

Koda:

 Sub WritTextFile2 () Dim myFile As String myFile = ActiveWorkbook.Path & "\ VPB File" Öppna myFile För Bifoga som # 1 Skriv nr 1, "Ford", "Figo", 1000, "miles", 2000 Writ # 1, " Toyota ", " Etios ", 2000, " miles ", Stäng # 1 MsgBox" Sparat "End Sub

Steg 5: Sätt nu igen koden och kör den efter det. När körningen lyckats får vi meddelandet som Sparat .

Gå nu igen till den sökvägen där vi har behållit den här filen som har koden och se om textfilen är sparad där eller inte.

Öppna nu filen för att kontrollera om informationen är korrekt bifogad eller inte. Vi kommer att upptäcka att data bifogas på samma sätt som det hände i exempel 1.

Fördelar med Excel VBA Skriv textfil

  • Vi behöver inte ens öppna någon fil för att lägga till data.
  • Om uppgifterna är enorma kan vi lägga till data från Excel till text utan att öppna filen. Så det finns inga problem med att hantera filen också.
  • Om vi ​​går med processen delad i exempel-2, behöver vi inte ens ange sökvägen där vi vill se den utgående textfilen.

Saker att komma ihåg

  • I processen som visas i exempel 1, kan vi placera filen på den plats där vi vill se utgången.
  • I processen som visas i exempel-2 kommer den automatiskt att överväga filplatsen som har VBA-kod för VBA Skriv textfil.
  • Vi kan till och med välja data från alla excel-filer som vi vill konvertera i textfilen.
  • Vi kan välja och skapa många som en tabell som vi vill lägga till i textfilen.

Rekommenderade artiklar

Detta är en guide till VBA Skriv textfil. Här diskuterar vi hur man skriver en textfil i Excel med VBA-kod tillsammans med praktiska exempel och nedladdningsbar Excel-mall. Du kan också gå igenom våra andra föreslagna artiklar -

  1. VBA InStr förklarade med exempel
  2. VBA heltal datatyp
  3. VBA ISNULL Förklaras med exempel
  4. Transponera ett intervall i VBA

Kategori:

VBA