Napisati tekstualnu datoteku u Excel VBA

Svi smo naišli na takvu situaciju u kojoj smo morali staviti ogromne podatke u excel datoteke, ali na kraju smo se suočili sa situacijom kada je veličina te datoteke s ogromnim podacima tako porasla da smo to morali pretvoriti u tekst datoteka. Zbog toga nismo mogli niti raditi na toj datoteci niti je spremiti u excel format. Ovakvu situaciju vidjeli smo u mnogim projektima gdje trebamo izvući podatke iz baze. Izvlačenje podataka iz baze podataka moguće je ako za to koristite tekstualnu datoteku. Tekstualna datoteka ne ostaje obješena i možemo pohraniti što više podataka i tablica u jednu tekstualnu datoteku bez rušenja datoteke. Za to moramo datoteku excela pretvoriti u tekstualnu datoteku. Iako to nije veliki zadatak kada se ponavljaju aktivnosti i može potrajati ogromno vrijeme za obavljanje.

Da bismo to izbjegli, imamo postupak u VBA, a pomoću toga možemo pretvoriti excel datoteku u tekstualnu datoteku bez oštećenja podataka. Na ovaj način možemo uštedjeti ogroman skup podataka u tekstualnoj datoteci smanjujući i komprimirajući i veličinu datoteke.

Razumijevanje VBA koda pisanja tekstualne datoteke prilično je složeno, ali nije teško razumjeti.

Slijedio postupak:

  • Put datoteke: Stavljanje puta do datoteke u kojoj smo čuvali excel datoteku.
  • Način: U koju svrhu trebamo otvoriti datoteku. Može biti način samo za čitanje ili svrha pisanja ili ga trebamo koristiti za dodavanje podataka.
  • Broj datoteke: Prema ovome možemo računati koliko smo vremena iskoristili za excel datoteku za tekstualnu datoteku.

Kako napisati tekstualnu datoteku u Excelu VBA?

Naučit ćemo kako napisati tekstualnu datoteku pomoću VBA koda u excelu s nekoliko primjera.

Možete preuzeti ovaj VBA tekstualni obrazac za pisanje tekstualnih datoteka ovdje - VBA Napisati tekstualnu datoteku Excel predložak

Primjer br. 1 - VBA pisati tekstualnu datoteku

U ovom ćemo primjeru vidjeti kako preslikati lokaciju datoteke s VBA kodom kako biste je napisali preko tekstualne datoteke. Za to nam treba modul.

Korak 1: Idite na opciju Umetanje izbornika i odaberite Modul kako je prikazano u nastavku.

Korak 2: Sada u otvoreni modul napišite podkategoriju VBA Write Text ili možemo odabrati bilo koje ime prema vlastitom izboru.

Kodirati:

 Sub WriteTextFile2 () Kraj Sub

Korak 3: U prvom koraku kodiranja, deklarirajte varijablu myFile kao String kao što je prikazano u nastavku.

Kodirati:

 Sub WriteTextFile2 () Dim myFile Kao String End Sub

Korak 4: U dodijeljenu varijablu stavite lokaciju datoteke koju moramo pretvoriti iz Excel-a u Text. Ovdje smo tu datoteku nazvali Test s nastavkom. txt kao što je prikazano u nastavku.

Kodirati:

 Sub WriteTextFile2 () Dim myFile kao niz myFile = "D: \ VPB datoteka \ Travan datoteke \ Krajnja lokacija \ Final Input.txt" Kraj Sub

Korak 5: Kao što smo vidjeli u opisu VBA Write Text File, prvo ćemo otvoriti excel datoteku, a zatim dodati podatke iz Excela u tekstualnu datoteku s donjim naredbenim retkom.

Kodirati:

 Sub WriteTextFile2 () Dim myFile kao niz myFile = "D: \ VPB datoteka \ Travanjske datoteke \ Konačna lokacija \ Final Input.txt" Otvorite mojFile za dodavanje kao # 1 End Sub

Korak 6: Sada stavimo malo teksta u tekstualnu datoteku koju bismo željeli vidjeti kao što je prikazano u nastavku uz pomoć Write # 1 za prvu tablicu. Unijeli smo neke nasumične marke automobila s nazivom modela i specifikacijama.

Kodirati:

 Sub WriteTextFile2 () Dim myFile kao niz myFile = "D: \ VPB datoteka \ Travanjske datoteke \ Konačna lokacija \ Final Input.txt" Otvori moju datoteku za dodavanje kao # 1, napiši # 1, "Ford", "Figo", 1000, " milja ", 2000. Napišite # 1, " Toyota ", " Etios ", 2000, " milja ", Kraj Sub

Korak 7: Sada zatvorite prvu tablicu kao što je prikazano u nastavku.

Kodirati:

 Sub WriteTextFile2 () Dim myFile kao niz myFile = "D: \ VPB datoteka \ Travanjske datoteke \ Konačna lokacija \ Final Input.txt" Otvori moju datoteku za dodavanje kao # 1, napiši # 1, "Ford", "Figo", 1000, " milja ", 2000 Napiši # 1, " Toyota ", " Etios ", 2000, " milja ", Zatvori pot. kraj 1. Pot

Korak 8: Također bismo željeli vidjeti poruku nakon završetka postupka.

Kodirati:

 Sub WriteTextFile2 () Dim myFile kao niz myFile = "D: \ VPB datoteka \ Travanjske datoteke \ Konačna lokacija \ Final Input.txt" Otvori moju datoteku za dodavanje kao # 1, napiši # 1, "Ford", "Figo", 1000, " milja ", 2000 Napiši # 1, " Toyota ", " Etios ", 2000, " milja ", zatvori # 1 MsgBox" Spremljeno "Kraj pot

Korak 9: Sada sastavite kôd i pokrenite ga klikom na gumb Play koji se nalazi ispod trake izbornika kao što je prikazano u nastavku. Ako nije pronađena nijedna pogreška, dobili bismo okvir s porukom spremljenom kao što je prikazano u nastavku.

Korak 10: Sada idite na mjesto koje smo spomenuli u kodu iznad, vidjet ćemo tekstualnu datoteku s nazivom Test kao što je prikazano u nastavku.

Sada da biste provjerili ima li ova tekstualna datoteka iste podatke koje smo unijeli putem VBA, otvorite je. Vidjet ćemo da su isti podaci uneseni.

Primjer br. 2 - VBA pisati tekstualnu datoteku

Postoji još jedan način do istog djela.

Korak 1: U primjeru ćemo upotrijebiti isti kod koji smo gore napisali, ali došlo bi do male promjene korištenog koda. Razmotrimo isti kod koji je prikazan u primjeru-1.

Kodirati:

 Sub WriteTextFile2 () Dim myFile As String myFile = Otvorite myFile za dodavanje # 1 Napišite # 1, "Ford", "Figo", 1000, "miles", 2000 Write # 1, "Toyota", "Etios", 2000, "milja", Zatvori # 1 MsgBox "Spremljeno" Kraj Sub

Korak 2: Sada umjesto lokacije datoteke, odaberite aktivnu radnu knjigu s ActiveWorkbook-om kao što je prikazano u nastavku.

Kodirati:

 Sub WriteTextFile2 () Dim myFile As String myFile = ActiveWorkbook. Otvorite myFile za dodavanje kao # 1, napišite # 1, "Ford", "Figo", 1000, "milja", 2000 Napišite # 1, "Toyota", "Etios", 2000, "milja", zatvorite # 1 MsgBox "Spremljeno "Završi Sub

Korak 3: Sada odaberite Path s padajućeg popisa ActiveWorkBook .

Kodirati:

 Sub WriteTextFile2 () Dim myFile As String myFile = ActiveWorkbook.Path Open myFile For Append as # 1 Napišite # 1, "Ford", "Figo", 1000, "milja", 2000 Napišite # 1, "Toyota", "Etios", 2000, "milja", Zatvori # 1 MsgBox "Spremljeno" Kraj Pot

Korak 4: Zatim odaberite putanju na kojoj trebamo dodati podatke u tekstualnu datoteku odvojenu ampersandom.

Kodirati:

 Sub WriteTextFile2 () Dim myFile As String myFile = ActiveWorkbook.Path & "\ VPB File" Otvorite myFile za dodavanje kao # 1 Napišite # 1, "Ford", "Figo", 1000, "milja", 2000 Napišite # 1, " Toyota ", " Etios ", 2000, " milja ", zatvori # 1 MsgBox" Spremljeno "krajnji pot

Korak 5: Sada ponovo sastavite kod i pokrenite ga nakon toga. Nakon uspješnog završetka prikazivanja, dobit ćemo poruku kao spremljenu .

Sada ponovo idite na onu stazu gdje smo zadržali ovu datoteku koja ima kôd i pogledajte je li tekstna datoteka tamo spremljena ili ne.

Sada otvorite datoteku kako biste provjerili jesu li podaci pravilno dodani ili ne. Otkrićemo da su podaci dodani na sličan način kao što se dogodilo u primjeru-1.

Prosci Excel VBA pisati tekstualnu datoteku

  • Ne moramo ni otvarati nijednu datoteku da bismo dodali podatke.
  • Ako su podaci ogromni, možemo ih dodati iz Excela u tekst bez otvaranja datoteke. Dakle, nema problema i s rukovanjem datotekom.
  • Ako idemo s postupkom koji se dijeli u primjeru-2, tada čak i ne moramo dati put tamo gdje želimo vidjeti izlaznu tekstnu datoteku.

Stvari koje treba zapamtiti

  • U procesu prikazanom u primjeru-1, datoteku možemo smjestiti na mjesto gdje želimo vidjeti izlaz.
  • U procesu prikazanom u primjeru-2, automatski će razmotriti lokaciju datoteke koja ima VBA kod VBA datoteke pisanja teksta.
  • Podatke možemo odabrati i iz bilo koje excelove datoteke koju želimo pretvoriti u tekstualnu datoteku.
  • Možemo odabrati i stvoriti bilo koju više kao tablicu koju želimo dodati u tekstnu datoteku.

Preporučeni članci

Ovo je vodič za VBA datoteku pisanja teksta. Ovdje smo razgovarali o tome kako napisati tekstualnu datoteku u Excelu pomoću VBA koda zajedno s praktičnim primjerima i download-ovim Excel predloška. Možete i pregledati naše druge predložene članke -

  1. VBA InStr objasnio je s primjerima
  2. Vrsta podataka VBA Integer
  3. VBA ISNULL Objašnjeno primjerima
  4. Transponirajte domet u VBA

Kategorija:

VBA