Írjon be szöveges fájlt az Excel VBA fájlba

Mindannyian szembesülünk egy ilyen helyzettel, amikor óriási adatokat kellett az Excel fájlokba helyeznünk, de végül szembesültünk azzal a helyzettel, amikor a hatalmas adatokkal rendelkező fájl mérete annyira megnőtt, hogy ezt szöveggé kellett konvertálnunk fájlt. Emiatt nem tudtunk dolgozni ezen a fájlon, és nem menthetjük a fájlt Excel formátumba. Ilyen helyzetet láttunk sok projektben, ahol ki kell vonnunk az adatokat az adatbázisból. Az adatok kibontása az adatbázisból akkor lehetséges, ha erre a célra szöveges fájlt használunk. A szöveges fájl nem kerül felfüggesztésre, és annyi adatot és táblát tárolhatunk egyetlen szövegfájlba a fájl összeomlása nélkül. Ehhez konvertálni kell az excel fájlt szöveges fájlba. Noha ez nem túl nagy feladat, ha ismétlődő tevékenység, és hatalmas időbe telik a végrehajtása.

Ennek elkerülése érdekében a VBA-ban van egy folyamat, mellyel konvertálhatjuk az Excel fájlt szöveges fájlba az adatok károsítása nélkül. Ezzel óriási adatkészletet menthetünk a szöveges fájlba a fájlméret csökkentésével és tömörítésével is.

A szövegfájl írásának VBA-kódjának megértése meglehetősen bonyolult, de nem nehéz megérteni.

A követett folyamat:

  • Fájl elérési útja: A fájl elérési útjának megadása, ahol megtartottuk az excel fájlt.
  • Mód: Milyen célból kell megnyitni a fájlt. Lehet, hogy csak írásmód vagy írásmód, vagy az adatok hozzáfűzéséhez használnunk kell.
  • Fájlszám: Ezzel megszámolhatjuk, hányszor használtuk fel az Excel fájlt egy szöveges fájlhoz.

Hogyan lehet szöveges fájlt írni az Excel VBA-ban?

Néhány példa alapján megtanuljuk, hogyan kell szöveges fájlt írni VBA kóddal Excelben.

A VBA szöveges fájlfájl Excel-sablonját itt töltheti le - VBA szövegfájl-Excel-sablon

1. példa - VBA szöveges fájl írása

Ebben a példában meglátjuk, hogyan kell leképezni a fájl helyét VBA-kóddal, hogy azt szöveges fájl formátumra írhassuk. Ehhez modulra van szükségünk.

1. lépés: Lépjen a Beszúrás menübe és válassza az alább látható módon a Modul elemet.

2. lépés: Most, a megnyitott modulban, írja be a VBA Szöveg írása alkategóriát, vagy választhatunk bármilyen nevet.

Kód:

 Sub WriteTextFile2 () Sub

3. lépés: A kódolás első lépésében deklarálja a myFile változót String- ként, az alább látható módon.

Kód:

 Sub WriteTextFile2 () A myFile szűkítése sztring végéig

4. lépés: A hozzárendelt változóban adja meg annak a fájlnak a helyét, amelyet konvertálni kell az Excelből szöveggé. Itt neveztük el ezt a fájlt Tesztnek a kiterjesztésével. txt az alább látható módon.

Kód:

 Sub WriteTextFile2 () tompítja a myFile mint karakterláncot myFile = "D: \ VPB fájl \ április fájlok \ végleges hely \ végleges bevitel.txt"

5. lépés: Amint azt a VBA Write Text File leírásában láttuk, először megnyitjuk az excel fájlt, majd az Excel programból származó adatokat hozzáfűzzük egy szövegfájlba, alatta lévő parancssorral.

Kód:

 Sub WriteTextFile2 () tompítja a myFile mint karakterláncot myFile = "D: \ VPB fájl \ április fájlok \ végleges hely \ végleges beviteli.txt" nyitja meg a myFile fájlt az 1. mellékleteként való hozzáadáshoz

6. lépés: Tegyünk egy szöveget egy szövegfájlba, amelyet szeretnénk látni, az alább látható módon, az 1. táblázat első táblájának segítségével. Bevezettünk néhány véletlenszerű autómárkát a modell nevével és specifikációival.

Kód:

 Sub WriteTextFile2 () tompítsa a myFile mint karakterláncot myFile = "D: \ VPB fájl \ április fájlok \ végleges hely \ végleges beviteli.txt" Nyissa meg a myFile fájlt az 1. csatoláshoz. Írjon be 1., "Ford", "Figo", 1000 "" mérföld ", 2000 Írja be az 1. számot, " Toyota ", " Etios ", 2000, " mérföld ", End Sub

7. lépés: Most zárja be az első táblát az alább látható módon.

Kód:

 Sub WriteTextFile2 () tompítsa a myFile mint karakterláncot myFile = "D: \ VPB fájl \ április fájlok \ végleges hely \ végleges beviteli.txt" Nyissa meg a myFile fájlt az 1. csatoláshoz. Írjon be 1., "Ford", "Figo", 1000 "" mérföld ", 2000 Írja be az 1. számot, " Toyota ", " Etios ", 2000, " mérföld ", bezárja az 1. számú végét

8. lépés: Szeretnénk látni az üzenetet is, miután a folyamat befejeződött.

Kód:

 Sub WriteTextFile2 () tompítsa a myFile mint karakterláncot myFile = "D: \ VPB fájl \ április fájlok \ végleges hely \ végleges beviteli.txt" Nyissa meg a myFile fájlt az 1. csatoláshoz. Írjon be 1., "Ford", "Figo", 1000 "" mérföld ", 2000 Írja be az 1. számot, " Toyota ", " Etios ", 2000, " mérföld ", bezárja # 1 MsgBox" Mentett "End Sub

9. lépés: Most állítsa össze a kódot, és futtassa a menüsor alatt található Lejátszás gombra kattintva, az alább látható módon. Ha nem található hiba, akkor az üzenet mezőbe az üzenet a következőképpen kerül mentésre : az alább látható módon.

10. lépés: Most menjen arra a helyre, amelyet már említettünk a fenti kódban, látni fogjuk a Test nevű szöveges fájlt az alább látható módon.

Most ellenőrizze, hogy a szöveges fájl ugyanazokkal az adatokkal rendelkezik-e, mint a VBA-n keresztül, és nyissa meg. Látni fogjuk, hogy ugyanazok az adatok bekerültek.

2. példa - VBA szöveges fájl írása

Van egy másik út ugyanahhoz a műhöz.

1. lépés: A példában ugyanazt a kódot fogjuk használni, mint amit a fent írtunk, de enyhén megváltozik a használt kód. Fontolja meg ugyanazt a kódot, mint az 1. példában látható.

Kód:

 Sub WriteTextFile2 () tompítsa a myFile-t mint karakterláncot myFile = Nyissa meg a myFile-t, ha hozzáteszi az 1. számú elemet. Írjon be 1. számot, "Ford", "Figo", 1000, "mérföld", 2000 Write # 1, "Toyota", "Etios", 2000, "mérföld", bezárás # 1 MsgBox "Mentett" End Sub

2. lépés: A fájl helyének helyett válassza az aktív munkafüzetet az ActiveWorkbook segítségével az alább látható módon.

Kód:

 Sub WriteTextFile2 () tompítja a myFile mint karakterláncot myFile = ActiveWorkbook. Nyissa meg a myFile fájlt, ha hozzá szeretné adni 1. számként. Írjon be 1. számot, "Ford", "Figo", 1000, "mérföld", 2000 Írja be az első számot, "Toyota", "Etios", 2000, "mérföld", bezárja # 1 MsgBox "Mentett "Befejezés Sub

3. lépés: Most válassza ki az elérési utat az ActiveWorkBook legördülő listából.

Kód:

 Sub WriteTextFile2 () tompítja a myFile mint karakterláncot myFile = ActiveWorkbook.Path Nyissa meg a myFile csatolását mint 1. számú. Írjon 1. számot: "Ford", "Figo", 1000, "mérföld", 2000 Írja 1., "Toyota", "Etios", 2000, "mérföld", bezárás # 1 MsgBox "Mentett" End Sub

4. lépés: Ezután válassza ki azt az elérési utat, ahova az adatokat hozzá kell adnunk a szövegfájlhoz, elválasztva egy ampersanddal.

Kód:

 Sub WriteTextFile2 () tompítja a myFile mint karakterláncot myFile = ActiveWorkbook.Path & "\ VPB fájl" Nyissa meg a myFile fájlt az 1. csatoláshoz. Írjon # 1, "Ford", "Figo", 1000, "mérföld", 2000 Írjon az 1. "" Toyota ", " Etios ", 2000, " mérföld ", bezárás # 1 MsgBox" Mentett "End Sub

5. lépés: Most fordítsa újra a kódot, és futtassa azt követően. A futás sikeres befejezésekor az üzenet Mentettként jelenik meg.

Most ismét menj arra az útra, ahol megtartottuk ezt a kódot tartalmazó fájlt, és nézzük meg, hogy a szövegfájl ott van-e mentve.

Most nyissa meg a fájlt, és ellenőrizze, hogy az adatok megfelelően vannak-e csatolva. Azt találjuk, hogy az adatokat ugyanúgy csatoljuk, mint az 1. példában történt.

Az Excel VBA szöveges fájljának előnyei

  • Még egyetlen fájlt sem kell megnyitnunk az adatok hozzáadásához.
  • Ha az adatok hatalmasak, akkor az adatokat Excel-ből a Text-hez csatolhatjuk a fájl megnyitása nélkül. Tehát a fájl kezelése sem jelent gondot.
  • Ha a 2. példában megosztott eljárással járunk, akkor nem is kell megadnunk az elérési utat, ahova a kimeneti szövegfájlt szeretnénk látni.

Dolgok, amikre emlékezni kell

  • Az 1. példában bemutatott eljárás során a fájlt arra a helyre tehetjük, ahol látni akarjuk a kimenetet.
  • A 2. példában bemutatott eljárás során automatikusan megvizsgálja a fájl helyét, amelynek VBA kódja a VBA Írj szövegfájlt.
  • Még bármilyen Excel fájlból kiválaszthatjuk az adatokat, amelyeket konvertálni akarunk a szövegfájlban.
  • Táblázatként kiválaszthatunk és készíthetünk táblázatokat, amelyeket csatolni akarunk a szövegfájlba.

Ajánlott cikkek

Ez egy útmutató a VBA szöveges fájl írásához. Itt megvitatjuk, hogyan lehet szöveges fájlt írni VBA-kóddal Excel formátumban, a gyakorlati példákkal és a letölthető Excel sablonnal együtt. Megnézheti más javasolt cikkeinket -

  1. A VBA InStr példákkal magyarázta
  2. VBA egész szám adattípus
  3. VBA ISNULL Példákkal magyarázva
  4. Távolítsa el a tartományt a VBA-ban

Kategória:

VBA