Pisanje besedilne datoteke v Excel VBA

Vsi se srečujemo s takšno situacijo, ko smo morali vstaviti ogromno podatkov v datoteke excel, sčasoma pa smo se soočili s situacijo, ko se je velikost te datoteke z ogromnimi podatki tako povečala, da smo jo morali pretvoriti v besedilo mapa. Zaradi tega na tej datoteki nismo mogli niti delati niti shraniti datoteke v excel format. Tovrstne razmere smo opazili v številnih projektih, kjer moramo podatke izvleči iz baze. Izvlečenje podatkov iz baze je možno, če v ta namen uporabite besedilno datoteko. Besedilna datoteka se ne obesi in lahko shranimo toliko podatkov in tabel v eno besedilno datoteko, ne da bi zrušili datoteko. Za to moramo datoteko excela pretvoriti v besedilno datoteko. Čeprav to ni večja naloga, kdaj gre za ponavljajoče se dejavnosti in lahko traja ogromno časa.

Da se temu izognemo, imamo postopek v VBA, s tem pa lahko datoteko excel pretvorimo v besedilno datoteko, ne da bi pri tem poškodovali podatke. S tem lahko shranimo ogromen nabor podatkov v besedilno datoteko tako, da zmanjšamo in stisnemo tudi velikost datoteke.

Razumevanje kode VBA za pisanje besedilne datoteke je precej zapleteno, vendar je ni težko razumeti.

Sledil je postopek:

  • Pot datoteke: postavitev poti datoteke, kjer smo hranili datoteko excel.
  • Način: Za kakšen namen moramo datoteko odpreti. Lahko je način samo za branje ali namen pisanja ali pa ga moramo uporabiti za dodajanje podatkov.
  • Številka datoteke: S tem lahko preštejemo, koliko časa smo uporabili za excel datoteko za besedilno datoteko.

Kako napisati besedilno datoteko v Excelu VBA?

Naučili se bomo pisati besedilno datoteko z uporabo VBA kode v excelu z nekaj primeri.

Predlogo programa Excel za pisanje besedilnih datotek VBA lahko prenesete tukaj - VBA Napišite besedilno datoteko Excel predlogo

Primer # 1 - VBA Napišite besedilno datoteko

V tem primeru bomo videli, kako preslikati lokacijo datoteke s kodo VBA, da jo zapišemo v obliki datoteke Text. Za to potrebujemo modul.

1. korak: Pojdite na možnost Vstavi meni in izberite Modul, kot je prikazano spodaj.

Korak 2: Zdaj v odprti modul napišite podkategorijo VBA Write Text ali lahko izberemo poljubno ime po lastni izbiri.

Koda:

 Sub WriteTextFile2 () End Sub

Korak 3: V prvem koraku kodiranja spremenite spremenljivko myFile kot String, kot je prikazano spodaj.

Koda:

 Sub WriteTextFile2 () Dim myFile Kot String End Sub

4. korak: V dodeljeno spremenljivko vstavite lokacijo datoteke, ki jo moramo pretvoriti iz Excela v besedilo. Tu smo datoteko poimenovali Test s pripono. txt, kot je prikazano spodaj.

Koda:

 Sub WriteTextFile2 () Dim myFile as String myFile = "D: \ VPB datoteka \ April datoteke \ Končna lokacija \ Final Input.txt" End Sub

5. korak: Kot smo videli v opisu datoteke VBA Write Text, bomo najprej odprli datoteko excel in nato dodali podatke iz Excela v besedilno datoteko s spodnjo ukazno vrstico.

Koda:

 Sub WriteTextFile2 () Dim myFile as String myFile = "D: \ VPB datoteka \ April datoteke \ Končna lokacija \ Final Input.txt" Odpri myFile za dodajanje kot # 1 End Sub

Korak 6: Zdaj v besedilno datoteko vstavimo nekaj besedila, ki bi ga radi videli, kot je prikazano spodaj, s pomočjo Write # 1 za prvo tabelo. Vnesli smo nekaj naključnih znamk avtomobilov z imenom modela in specifikacijami.

Koda:

 Sub WriteTextFile2 () Dim myFile As String myFile = "D: \ VPB datoteka \ April datoteke \ Končna lokacija \ Final Input.txt" Open myFile For Append as # 1 Napiši # 1, "Ford", "Figo", 1000, " milj ", 2000 Napišite # 1, " Toyota ", " Etios ", 2000, " milj ", End Sub

7. korak: Zdaj zaprite prvo tabelo, kot je prikazano spodaj.

Koda:

 Sub WriteTextFile2 () Dim myFile As String myFile = "D: \ VPB datoteka \ April datoteke \ Končna lokacija \ Final Input.txt" Open myFile For Append as # 1 Napiši # 1, "Ford", "Figo", 1000, " milj ", 2000 Napišite # 1, " Toyota ", " Etios ", 2000, " milj ", Zapri # 1 End Sub

Korak 8: Prav tako bi radi videli sporočilo, ko bo postopek končan.

Koda:

 Sub WriteTextFile2 () Dim myFile As String myFile = "D: \ VPB datoteka \ April datoteke \ Končna lokacija \ Final Input.txt" Open myFile For Append as # 1 Napiši # 1, "Ford", "Figo", 1000, " milj ", 2000 Napiši # 1, " Toyota ", " Etios ", 2000, " milj ", Zapri # 1 MsgBox" Shranjeno "End Sub

9. korak: Zdaj sestavite kodo in jo zaženite s klikom na gumb Play, ki se nahaja pod menijsko vrstico, kot je prikazano spodaj. Če napake ni mogoče najti, bomo dobili sporočilo s shranjenim, kot je prikazano spodaj.

Korak 10: Zdaj pojdite na lokacijo, ki smo jo omenili v zgornji kodi, videli bomo besedilno datoteko z imenom Test, kot je prikazano spodaj.

Zdaj preverite, ali ima ta besedilna datoteka enake podatke, ki smo jih vnesli prek VBA, odprite. Videli bomo, da so bili vneseni enaki podatki.

Primer # 2 - VBA Napišite besedilno datoteko

Obstaja še ena pot do istega dela.

1. korak: V primeru bomo uporabili isto kodo, ki smo jo napisali zgoraj, vendar se bo rabljena koda rahlo spremenila. Upoštevajmo isto kodo, kot je prikazano v primeru-1.

Koda:

 Sub WriteTextFile2 () Dim myFile as String myFile = Odpri myFile For Append as # 1 Napiši # 1, "Ford", "Figo", 1000, "miles", 2000 Write # 1, "Toyota", "Etios", 2000, "milj", Zapri # 1 MsgBox "Shranjeno" End Sub

2. korak: Namesto lokacije datoteke izberite aktivni delovni zvezek z ActiveWorkbook, kot je prikazano spodaj.

Koda:

 Sub WriteTextFile2 () Dim myFile kot niz myFile = ActiveWorkbook. Odpri mojo datoteko za dodatek kot # 1 Napiši # 1, "Ford", "Figo", 1000, "milj", 2000 Napiši # 1, "Toyota", "Etios", 2000, "milj", Zapri # 1 MsgBox "Shranjeno "Končaj Sub

3. korak: Zdaj izberite pot na spustnem seznamu ActiveWorkBook .

Koda:

 Sub WriteTextFile2 () Dim myFile as String myFile = ActiveWorkbook.Path Open myFile For Append as # 1 Napišite # 1, "Ford", "Figo", 1000, "milj", 2000 Napišite # 1, "Toyota", "Etios", 2000, "milj", Zapri # 1 MsgBox "Shranjeno" End Sub

4. korak: Nato izberite pot, kamor moramo podatke dodati v besedilno datoteko, ločeno z amperandom.

Koda:

 Sub WriteTextFile2 () Dim myFile As String myFile = ActiveWorkbook.Path & "\ VPB File" Open myFile For Append as # 1 Napiši # 1, "Ford", "Figo", 1000, "milj", 2000 Napiši # 1, " Toyota ", " Etios ", 2000, " milj ", Zapri # 1 MsgBox" Shranjena "End Sub

5. korak: Zdaj znova sestavite kodo in jo zaženite za tem. Po uspešnem zaključku teka bomo sporočilo dobili kot shranjeno .

Zdaj pojdite na to pot, kjer smo obdržali to datoteko, ki ima kodo, in poglejte, ali je besedilna datoteka tam shranjena ali ne.

Zdaj odprite datoteko in preverite, ali so podatki pravilno priloženi ali ne. Ugotovili bomo, da so podatki priloženi na podoben način, kot se je to zgodilo v primeru-1.

Prednosti datoteke Excel VBA za pisanje besedila

  • Za dodajanje podatkov nam sploh ni treba odpreti nobene datoteke.
  • Če je podatkov ogromno, lahko podatke iz Excela pripnemo besedilu, ne da bi odprli datoteko. Torej, tudi pri obdelavi datoteke ni težav.
  • Če gremo s postopkom v skupnem primeru 2, nam sploh ni treba dati poti, kjer želimo videti izhodno besedilno datoteko.

Stvari, ki jih je treba zapomniti

  • V postopku, ki je prikazan v primeru-1, lahko datoteko postavimo na mesto, kjer želimo videti izhod.
  • V postopku, ki je prikazan v primeru-2, bo samodejno upošteval lokacijo datoteke, ki ima kodo VBA datoteke VBA Text Text File.
  • Podatke lahko celo izberemo iz katere koli datoteke excel, ki jo želimo pretvoriti v besedilno datoteko.
  • Kot tabelo, ki jo želimo dodati v besedilno datoteko, lahko izberemo in ustvarimo poljubno število.

Priporočeni članki

To je vodnik za VBA zapisovanje besedilne datoteke. Tukaj razpravljamo o tem, kako napisati besedilno datoteko v Excelu z uporabo kode VBA skupaj s praktičnimi primeri in naložljivo predlogo excela. Ogledate si lahko tudi druge naše predlagane članke -

  1. VBA InStr je pojasnil s primeri
  2. Vrsta podatkov vrste VBA Integer
  3. VBA ISNULL Pojasnjeno s primeri
  4. Transponirajte domet v VBA

Kategorija:

VBA