Kirjutage tekstifail Excel VBA-s

Me kõik oleme kokku puutunud sellise olukorraga, kus pidime Exceli failidesse tohutuid andmeid sisestama, kuid lõpuks oleme seisnud silmitsi olukorraga, kui selle tohutute andmetega faili maht läks nii suureks, et pidime selle tekstiks teisendama faili. Seetõttu ei saanud me selle faili kallal töötada ega faili Exceli formaati salvestada. Sellist olukorda oleme näinud paljudes projektides, kus peame andmebaasist andmed ekstraheerima. Andmete andmebaasist väljavõtmine on võimalik, kui kasutate selleks tekstifaili. Tekstifaili ei riputata ja me võime salvestada nii palju andmeid ja tabeleid ühte tekstifaili ilma, et see faili peaks kokku krahhima. Selleks peame exceli faili teisendama tekstifailiks. Kuigi see ei ole suur ülesanne, kui tegemist on korduva tegevusega ja selle tegemine võib võtta tohutult aega.

Selle vältimiseks on meil VBA-s protsess, mille abil saame Exceli faili teisendada tekstifailiks andmeid kahjustamata. Selle abil saame salvestada tohutu hulga andmeid tekstifaili, vähendades ja tihendades ka faili suurust.

Tekstifaili kirjutamise VBA-koodi mõistmine on üsna keeruline, kuid seda pole keeruline mõista.

Järgnes protsess:

  • Faili tee: faili tee sisestamine sinna, kus oleme hoidnud exceli faili.
  • Režiim: mis eesmärgil peame faili avama. See võib olla kirjutuskaitsega režiim või kirjutamise eesmärk või peame seda andmete lisamiseks kasutama.
  • Faili number: selle järgi saame loendada, mitu korda oleme faili jaoks Exceli faili kasutanud.

Kuidas kirjutada tekstifaili Excel VBA-s?

Õpime, kuidas VBA-koodiga tekstifaili kirjutada, mõne näite abil.

Selle VBA kirjutatava tekstifaili Exceli malli saate alla laadida siit - VBA kirjutage tekstifaili Exceli mall

Näide nr 1 - VBA kirjutage tekstifail

Selles näites näeme, kuidas kaardistada faili asukoht VBA-koodiga, et kirjutada see tekstifaili vormingusse. Selleks vajame moodulit.

1. samm: minge menüü suvandisse Insert ja valige moodul, nagu allpool näidatud.

2. samm: kirjutage avatud moodulis VBA alamkategooria Kirjuta tekst või võime valida mis tahes nime vastavalt oma valikule.

Kood:

 Sub WriteTextFile2 () Lõpetage alam

3. samm: kodeerimise esimeses etapis kuulutage muutuja myFile kui string nagu allpool näidatud.

Kood:

 Sub WriteTextFile2 () timmib myFile'i kui stringi lõpp Sub

4. samm: määrake määratud muutujasse faili asukoht, mille peame teisendama Excelist tekstiks. Siin me nimetasime selle faili laiendiga Test. txt nagu allpool näidatud.

Kood:

 Sub WriteTextFile2 () Tühjenda myFile kui string myFile = "D: \ VPB fail \ aprilli failid \ lõplik asukoht \ lõplik sisend.txt" Lõpp alam

5. samm: Nagu nägime VBA kirjutatava tekstifaili kirjelduses, avame kõigepealt exceli faili ja liidame seejärel andmed Excelisse tekstifaili, mille käsurida on allpool.

Kood:

 Sub WriteTextFile2 () Tühjenda myFile kui string myFile = "D: \ VPB fail \ aprilli failid \ Lõplik asukoht \ Lõplik sisend.txt" Ava myFile lisamiseks kui nr 1 Lõpp-alam

6. samm: paneme nüüd tekstifaili natuke teksti, mida me sooviksime näha, nagu allpool näidatud esimese tabeli kirjutamise nr 1 abil. Oleme sisestanud mõned juhuslikud automargid koos mudeli nime ja spetsifikatsioonidega.

Kood:

 Sub WriteTextFile2 () timmib myFile kui string myFile = "D: \ VPB fail \ aprilli failid \ lõplik asukoht \ lõplik sisend.txt" Ava myFile lisamiseks nagu 1. Kirjutage nr 1, "Ford", "Figo", 1000, " miili ", 2000 Kirjutage nr 1, " Toyota ", " Etios ", 2000, " miili ", End Sub

7. samm: sulgege esimene tabel nagu allpool näidatud.

Kood:

 Sub WriteTextFile2 () timmib myFile kui string myFile = "D: \ VPB fail \ aprilli failid \ lõplik asukoht \ lõplik sisend.txt" Ava myFile lisamiseks nagu 1. Kirjutage nr 1, "Ford", "Figo", 1000, " miili ", 2000 kirjutage nr 1, " Toyota ", " Etios ", 2000, " miili ", sulgege # 1 lõpp-ala

8. samm: Soovime sõnumit näha ka pärast protsessi lõppu.

Kood:

 Sub WriteTextFile2 () timmib myFile kui string myFile = "D: \ VPB fail \ aprilli failid \ lõplik asukoht \ lõplik sisend.txt" Ava myFile lisamiseks nagu 1. Kirjutage nr 1, "Ford", "Figo", 1000, " miili ", 2000 Kirjutage nr 1, " Toyota ", " Etios ", 2000, " miili ", sulgege # 1 MsgBox" Salvestatud "End Sub

9. samm: nüüd kompileerige kood ja käivitage see, klõpsates menüüriba all asuvat nuppu Esita, nagu allpool näidatud. Kui ühtegi viga ei leitud, kuvatakse sõnumikast koos teatega Salvestatud, nagu allpool näidatud.

10. samm: minge nüüd asukohta, mida me ülaltoodud koodis mainisime, näeme allpool näidatud tekstifaili nimega Test.

Nüüd kontrollige, kas sellel tekstifailil on samad andmed, mille oleme VBA kaudu sisestanud. Näeme, et samad andmed on sisestatud.

Näide nr 2 - VBA kirjutage tekstifail

Sama töö juurde on veel üks viis.

1. samm: näites kasutame sama koodi, mille oleme ülal kirjutanud, kuid kasutatav kood muutub pisut. Vaatleme sama koodi, mis on näidatud näites-1.

Kood:

 Sub WriteTextFile2 () Tühjenda myFile kui string myFile = Ava myFile Lisamiseks kui nr 1 Kirjutage nr 1, "Ford", "Figo", 1000, "miili", 2000 Kirjutage nr 1, "Toyota", "Etios", 2000, "miili", sulgege # 1 MsgBox "Salvestatud" End Sub

2. samm. Valige faili asukoha asemel aktiivne töövihik koos ActiveWorkbookiga, nagu allpool näidatud.

Kood:

 Sub WriteTextFile2 () timmib myFile'i stringina myFile = ActiveWorkbook. Avage myFile lisamiseks kui nr 1 Kirjutage nr 1, "Ford", "Figo", 1000, "miil", 2000 Kirjutage nr 1, "Toyota", "Etios", 2000, "miil", sulgege # 1 MsgBox "Salvestatud "Lõpeta alam

3. samm: valige nüüd ActiveWorkBooki ripploendist tee .

Kood:

 Sub WriteTextFile2 () timmib myFile kui string myFile = ActiveWorkbook.Path Ava myFile lisamiseks kui nr 1 Kirjutage nr 1, "Ford", "Figo", 1000, "miili", 2000 Kirjutage nr 1, "Toyota", "Etios", 2000, "miili", sulgege # 1 MsgBox "Salvestatud" End Sub

4. samm: seejärel valige tee, kuhu peame lisama andmed tekstifaili, eraldatud tähtedega.

Kood:

 Sub WriteTextFile2 () timmib myFile kui string myFile = ActiveWorkbook.Path & "\ VPB File" Ava myFile lisamiseks nagu # Kirjutage nr 1, "Ford", "Figo", 1000, "miili", 2000 Kirjutage nr 1, " Toyota ", " Etios ", 2000, " miili ", sulgege nr 1 MsgBox" Salvestatud "Lõpp-alam

5. samm: kompileerige kood uuesti ja käivitage pärast seda uuesti. Jooksu eduka lõpulejõudmise järel kuvatakse teade Salvestatud .

Minge nüüd uuesti sellele teele, kus oleme hoidnud seda koodi omavat faili ja vaadake, kas tekstifail on sinna salvestatud või mitte.

Nüüd avage fail, et kontrollida, kas andmed on õigesti lisatud või mitte. Leiame, et andmed on lisatud sarnaselt näitele-1 juhtunud viisil.

Plussid Excel VBA kirjutage tekstifail

  • Andmete lisamiseks ei pea me isegi ühtegi faili avama.
  • Kui andmeid on tohutult, siis saame andmed Excelis tekstist faili avamata lisada. Nii et ka faili käsitlemisel pole probleeme.
  • Kui jätkame näites-2 jagatud protsessiga, siis ei pea me isegi andma teed, kuhu tahame väljundfaili näha.

Asjad, mida meeles pidada

  • Näites-1 näidatud protsessis võime faili paigutada kohta, kus me tahame väljundit näha.
  • Näites-2 näidatud protsessis arvestab see automaatselt faili asukohta, millel on VBA koodiga VBA kirjutatud tekstifail.
  • Me võime isegi valida tekstifailis andmeid mis tahes excel-failist, mida me teisendada soovite.
  • Saame tabelina valida ja luua mitu, mille tahame lisada tekstifaili.

Soovitatavad artiklid

See on juhend VBA tekstifaili kirjutamiseks. Siin arutletakse, kuidas VBA-koodi kasutades Excelis tekstifaili kirjutada koos praktiliste näidete ja allalaaditava excelimalliga. Võite vaadata ka meie teisi soovitatud artikleid -

  1. VBA InStr selgitas näidetega
  2. VBA täisarvutüüp
  3. VBA ISNULL selgitatud näidetega
  4. Pange vahemik üle VBA-s

Kategooria:

VBA