Kirjoita tekstitiedosto Excel VBA: han

Olemme kaikki törmänneet sellaiseen tilanteeseen, että jouduimme laittamaan valtavia tietoja excel-tiedostoihin, mutta lopulta olemme joutuneet tilanteeseen, jossa kyseisen valtavien tiedostojen koko nousi niin suureksi, että meidän piti muuntaa ne tekstiksi tiedosto. Tämän vuoksi emme pystyneet käsittelemään tiedostoa tai tallentamaan tiedostoa excel-muotoon. Tällainen tilanne, jonka olemme nähneet monissa projekteissa, joissa meidän on poistettava tiedot tietokannasta. Tietojen purkaminen tietokannasta on mahdollista, jos käytetään tekstitiedostoa tähän tarkoitukseen. Tekstitiedostoa ei ripusteta, ja voimme tallentaa niin monta tietoa ja taulukkoa yhdeksi tekstitiedostoksi kaatumatta tiedostoa. Tätä varten meidän on muunnettava excel-tiedosto tekstitiedostoksi. Vaikka se ei ole iso tehtävä, kun se on toistuvaa toimintaa, ja suorittaminen voi viedä valtavasti aikaa.

Tämän välttämiseksi VBA: lla on prosessi, jonka avulla voimme muuntaa Excel-tiedoston tekstitiedostoksi vahingoittamatta tietoja. Tällä voimme tallentaa valtavan määrän tietoja tekstitiedostoon pienentämällä ja pakkaamalla myös tiedostokokoa.

Tekstitiedoston kirjoittamisen VBA-koodin ymmärtäminen on melko monimutkaista, mutta sitä ei ole vaikea ymmärtää.

Prosessi seurasi:

  • Tiedoston polku: Tiedoston polun sijoittaminen mihin Excel-tiedosto on pidetty.
  • Tila: Mihin tarkoitukseen meidän täytyy avata tiedosto. Se voi olla vain luku -muoto tai kirjoitustarkoitus tai meidän on käytettävä sitä tietojen lisäämiseen.
  • Tiedostonumero: Tällä voimme laskea kuinka monta kertaa olemme käyttäneet Excel-tiedostoa tekstitiedostoon.

Kuinka kirjoittaa tekstitiedosto Excel VBA: lla?

Opimme kuinka tekstitiedostoa kirjoittaa VBA-koodilla excelillä muutamalla esimerkillä.

Voit ladata tämän VBA Kirjoita tekstitiedosto Excel -malli täältä - VBA Kirjoita tekstitiedoston Excel-mallin

Esimerkki # 1 - VBA-kirjoitustiedosto

Tässä esimerkissä näemme kuinka karttaa tiedoston sijainti VBA-koodilla sen kirjoittamiseksi tekstitiedostomuodossa. Tätä varten tarvitsemme moduulin.

Vaihe 1: Siirry kohtaan Lisää valikkovaihtoehto ja valitse Moduuli alla olevan kuvan mukaisesti.

Vaihe 2: Kirjoita nyt avattuun moduuliin alaluokka VBA Write Text tai voimme valita minkä tahansa nimen valintasi mukaan.

Koodi:

 Sub WriteTextFile2 () Lopeta alaosa

Vaihe 3: Ilmoita koodauksen ensimmäisessä vaiheessa muuttuja myFile merkkijonona alla esitetyllä tavalla.

Koodi:

 Sub WriteTextFile2 () himmentää myFile merkkijonona

Vaihe 4: Aseta määritettyyn muuttujaan tiedoston sijainti, joka meidän on muunnettava Excelistä tekstiksi. Täällä olemme nimenneet kyseisen tiedoston Testiksi laajennuksella. txt alla esitetyllä tavalla.

Koodi:

 Sub WriteTextFile2 () himmentää myFile nimellä merkkijono myFile = "D: \ VPB-tiedosto \ huhtikuun tiedostot \ lopullinen sijainti \ lopullinen syöttö.txt" lopeta alaosa

Vaihe 5: Kuten olemme nähneet VBA: n kirjoitetun tekstitiedoston kuvauksessa, avaamme ensin Excel-tiedoston ja liitämme sitten tiedot Excelistä tekstitiedostoon, jonka komentorivi on alla.

Koodi:

 Sub WriteTextFile2 () himmentää myFile nimellä merkkijono myFile = "D: \ VPB-tiedosto \ huhtikuuta-tiedostot \ lopullinen sijainti \ lopullinen syöttö.txt" Avaa myFile lisättäväksi nimellä # 1 loppuun alaosa

Vaihe 6: Laitetaan nyt tekstiä tiedostoon, jonka haluaisimme nähdä alla esitetyllä tavalla ensimmäisen taulukon kirjoittamisen # 1 avulla. Olemme kirjoittaneet joitain satunnaisia ​​automerkkejä mallin nimellä ja teknisillä tiedoilla.

Koodi:

 Sub WriteTextFile2 () himmentää myFile nimellä merkkijono myFile = "D: \ VPB-tiedosto \ huhtikuutiedostot \ lopullinen sijainti \ lopullinen syöttö.txt" Avaa myFile lisäyksenä nimellä 1. Kirjoita kirjoitus # 1, "Ford", "Figo", 1000, " mailia ", 2000 Kirjoita numero 1, " Toyota ", " Etios ", 2000, " mailia ", End Sub

Vaihe 7: Sulje nyt ensimmäinen taulukko alla olevan kuvan mukaisesti.

Koodi:

 Sub WriteTextFile2 () himmentää myFile nimellä merkkijono myFile = "D: \ VPB-tiedosto \ huhtikuutiedostot \ lopullinen sijainti \ lopullinen syöttö.txt" Avaa myFile lisäyksenä nimellä 1. Kirjoita kirjoitus # 1, "Ford", "Figo", 1000, " mailia ", 2000 Kirjoita numero 1, " Toyota ", " Etios ", 2000, " mailia ", sulje # 1 loppuosa

Vaihe 8: Haluamme myös nähdä viestin, kun prosessi on valmis.

Koodi:

 Sub WriteTextFile2 () himmentää myFile nimellä merkkijono myFile = "D: \ VPB-tiedosto \ huhtikuutiedostot \ lopullinen sijainti \ lopullinen syöttö.txt" Avaa myFile lisäyksenä nimellä 1. Kirjoita kirjoitus # 1, "Ford", "Figo", 1000, " mailia ", 2000 Kirjoita numero 1, " Toyota ", " Etios ", 2000, " mailia ", sulje # 1 MsgBox" Tallennettu "End Sub

Vaihe 9: Käännä nyt koodi ja suorita se napsauttamalla valikkopalkin alla olevaa Toista-painiketta alla olevan kuvan mukaisesti. Jos virhettä ei löydy, saamme viestiruudun, jossa viesti on Tallennettu alla olevan kuvan mukaisesti.

Vaihe 10: Siirry nyt kohtaan, jonka olemme maininneet yllä olevassa koodissa, näemme tekstitiedoston nimellä Test kuten alla.

Tarkista nyt, onko tässä tekstitiedostossa samat tiedot, jotka olemme syöttäneet VBA: n kautta, avaa se. Näemme, että samat tiedot on syötetty.

Esimerkki 2 - VBA-kirjoitustiedosto

On toinen tapa samaan työhön.

Vaihe 1: Esimerkissä käytämme samaa koodia, jonka olemme kirjoittaneet yllä, mutta käytetyssä koodissa tapahtuu pieni muutos. Tarkastellaan samaa koodia kuin esimerkissä-1.

Koodi:

 Sub WriteTextFile2 () himmentäkää myFile nimellä merkkijono myFile = Avaa myFile lisättäväksi numeroksi # Kirjoita 1, "Ford", "Figo", 1000, "mailia", 2000 Write # 1, "Toyota", "Etios", 2000, "mailia", sulje # 1 MsgBox "Tallennettu" End Sub

Vaihe 2: Valitse nyt tiedoston sijainnin sijaan aktiivinen työkirja ActiveWorkbookilla alla olevan kuvan mukaisesti.

Koodi:

 Sub WriteTextFile2 () himmentää myFile merkkijonona myFile = ActiveWorkbook. Avaa myFile lisäykselle nimellä # 1 Kirjoita numero 1, "Ford", "Figo", 1000, "mailia", 2000 kirjoita numero 1, "Toyota", "Etios", 2000, "mailia", sulje # 1 MsgBox "Tallennettu "Lopeta ala

Vaihe 3: Valitse nyt polku ActiveWorkBook- pudotusluettelosta.

Koodi:

 Sub WriteTextFile2 () himmentää myFile nimellä merkkijono myFile = ActiveWorkbook.Path Avaa myFile lisättäessä nimellä # 1 Kirjoita numero 1, "Ford", "Figo", 1000, "mailia", 2000 Kirjoita numero 1, "Toyota", "Etios", 2000, "mailia", sulje # 1 MsgBox "Tallennettu" End Sub

Vaihe 4: Valitse sitten polku, johon meidän on lisättävä tiedot tekstitiedostoon, erotettuna merkillä.

Koodi:

 Sub WriteTextFile2 () himmentää myFile nimellä merkkijono myFile = ActiveWorkbook.Path & "\ VPB File" Avaa myFile lisäykseksi nimellä # Kirjoita "1", "Ford", "Figo", 1000, "mailia", 2000 kirjoita # 1, " Toyota ", " Etios ", 2000, " mailia ", sulje # 1 MsgBox" Tallennettu "End Sub

Vaihe 5: Nyt käännä koodi uudelleen ja suorita se sen jälkeen. Ajon onnistuneen suorittamisen jälkeen saamme viestin Tallennettuna .

Siirry nyt taas polulle, jolla olemme säilyttäneet tämän tiedoston, jolla on koodi, ja katso onko tekstitiedosto tallennettu sinne vai ei.

Avaa nyt tiedosto tarkistaaksesi, onko tiedot liitetty oikein. Huomaamme, että tiedot on liitetty samalla tavalla kuin tapahtui esimerkissä-1.

Plussaa Excel VBA Kirjoita tekstitiedosto

  • Meidän ei tarvitse edes avata tiedostoa tietojen lisäämiseksi.
  • Jos tiedot ovat valtavia, voimme lisätä tiedot Excelistä tekstiin avamatta tiedostoa. Joten tiedoston käsittelyssä ei ole mitään ongelmaa.
  • Jos jatkamme esimerkissä-2 jaetun prosessin kanssa, meidän ei tarvitse edes antaa polkua mihin haluamme nähdä ulostulotekstitiedoston.

Muistettavat asiat

  • Esimerkissä-1 esitetyssä prosessissa voimme sijoittaa tiedoston sijaintiin, jossa haluamme nähdä tulosteen.
  • Esimerkissä-2 esitetyssä prosessissa se harkitsee automaattisesti tiedoston sijaintia, jolla on VBA-kirjoituskooditiedoston VBA-koodi.
  • Voimme jopa valita tiedot mistä tahansa excel-tiedostosta, jonka haluamme muuntaa, tekstitiedostoon.
  • Voimme valita ja luoda useita taulukoita, jotka haluamme liittää tekstitiedostoon.

Suositellut artikkelit

Tämä on opas VBA: n kirjoitustiedostoon. Tässä keskustellaan siitä, kuinka kirjoittaa tekstitiedosto Excelissä VBA-koodilla yhdessä käytännön esimerkkien ja ladattavien Excel-mallien kanssa. Voit myös käydä läpi muiden ehdottamiemme artikkeleidemme -

  1. VBA InStr selitti esimerkeillä
  2. VBA-kokonaisluvutietotyyppi
  3. VBA ISNULL selitetty esimerkeillä
  4. Siirrä alue VBA: han

Luokka:

VBA