Napíšte textový súbor v Excel VBA

Všetci sa stretávame s takouto situáciou, keď sme museli do excelovských súborov vkladať obrovské údaje, ale nakoniec sme čelili situácii, keď sa veľkosť tohto súboru s obrovskými údajmi zvýšila tak, že sme ju museli previesť do textu. file. Z tohto dôvodu sme nemohli na tomto súbore pracovať ani ho uložiť do vynikajúceho formátu. Túto situáciu sme videli v mnohých projektoch, kde musíme extrahovať údaje z databázy. Vyťaženie údajov z databázy je možné, ak sa na tento účel použije textový súbor. Textový súbor sa nezastaví a môžeme uložiť toľko údajov a tabuliek do jedného textového súboru bez toho, aby sa súbor zhroutil. Z tohto dôvodu musíme previesť vynikajúci súbor do textového súboru. Aj keď to nie je veľká úloha, keď sa jedná o opakujúcu sa činnosť, môže to trvať veľmi dlho.

Aby sme tomu zabránili, máme postup vo VBA, s ktorým môžeme previesť súbor Excel do textového súboru bez poškodenia údajov. Týmto môžeme ušetriť obrovskú množinu údajov v textovom súbore znížením a kompresiou veľkosti súboru.

Pochopenie kódu VBA písania textového súboru je pomerne zložité, ale nie je ťažké mu porozumieť.

Nasledoval proces:

  • Cesta k súboru: Vloženie cesty k súboru, kde sme uchovávali súbor Excel.
  • Režim: Na aký účel musíme súbor otvoriť. Môže to byť režim iba na čítanie alebo účel zápisu alebo ho musíme použiť na pripojenie údajov.
  • Číslo súboru: Týmto môžeme spočítať, koľko času sme použili pre excel pre textový súbor.

Ako napísať textový súbor v Excel VBA?

Naučíme sa, ako napísať textový súbor pomocou kódu VBA v exceli s niekoľkými príkladmi.

Túto šablónu Excel VBA na zápis textového súboru si môžete stiahnuť tu - VBA šablónu na zápis textového súboru VBA

Príklad č. 1 - VBA Napíšte textový súbor

V tomto príklade uvidíme, ako namapovať umiestnenie súboru pomocou kódu VBA a zapísať ho do formátu textového súboru. Na tento účel potrebujeme modul.

Krok 1: Prejdite na možnosť Vložiť ponuku a vyberte modul, ako je to znázornené nižšie.

Krok 2: Teraz v otvorenom module napíšte podkategóriu VBA Write Text, alebo si môžeme zvoliť ľubovoľný názov podľa nášho výberu.

kód:

 Sub WriteTextFile2 () End Sub

Krok 3: V prvom kroku kódovania deklarujte premennú myFile ako String, ako je to znázornené nižšie.

kód:

 Sub WriteTextFile2 () Dim myFile ako koniec reťazca Sub

Krok 4: Do priradenej premennej vložte umiestnenie súboru, ktorý musíme previesť z Excelu na Text. Tu sme tento súbor nazvali Test s príponou. txt, ako je uvedené nižšie.

kód:

 Sub WriteTextFile2 () Dim myFile As String myFile = "D: \ VPB File \ April Files \ Final location \ Final Input.txt" End Sub

Krok 5: Ako sme videli v popise VBA Write Text File, najskôr otvoríme excelovský súbor a potom pripojíme dáta z Excelu k textovému súboru s príkazovým riadkom.

kód:

 Sub WriteTextFile2 () Dim myFile As String myFile = "D: \ VPB File \ April Files \ Final location \ Final Input.txt" Otvoriť myFile pre pripojenie ako # 1 End Sub

Krok 6: Teraz vložíme nejaký text do textového súboru, ktorý by sme chceli vidieť, ako je znázornené nižšie, pomocou Write # 1 pre prvú tabuľku. Zadali sme niekoľko náhodných značiek automobilov s názvom modelu a špecifikáciami.

kód:

 Sub WriteTextFile2 () Dim myFile As String myFile = "D: \ VPB File \ April Files \ Final location \ Final Input.txt" Open myFile for Append As # 1 Write # 1, "Ford", "Figo", 1000, " míle ", 2000 Napíšte # 1, " Toyota ", " Etios ", 2000, " míle ", End Sub

Krok 7: Teraz zatvorte prvú tabuľku, ako je uvedené nižšie.

kód:

 Sub WriteTextFile2 () Dim myFile As String myFile = "D: \ VPB File \ April Files \ Final location \ Final Input.txt" Open myFile for Append As # 1 Write # 1, "Ford", "Figo", 1000, " míle ", 2000 Napíšte # 1, " Toyota ", " Etios ", 2000, " míle ", Zavrieť # 1 End Sub

Krok 8: Chceli by sme vidieť správu aj po dokončení procesu.

kód:

 Sub WriteTextFile2 () Dim myFile As String myFile = "D: \ VPB File \ April Files \ Final location \ Final Input.txt" Open myFile for Append As # 1 Write # 1, "Ford", "Figo", 1000, " míle ", 2000 Napíšte # 1, " Toyota ", " Etios ", 2000, " míle ", Zavrieť # 1 MsgBox" Uložené "End Sub

Krok 9: Teraz zostavte kód a spustite ho kliknutím na tlačidlo Prehrať umiestnené pod panelom s ponukami, ako je to znázornené nižšie. Ak sa nenájde žiadna chyba, dostaneme okno so správou ako Uložené, ako je uvedené nižšie.

Krok 10: Teraz prejdite na miesto, ktoré sme uviedli v kóde vyššie, uvidíme textový súbor s názvom Test, ako je uvedené nižšie.

Teraz skontrolujte, či má tento textový súbor rovnaké údaje, aké sme zadali prostredníctvom VBA. Uvidíme, že boli zadané rovnaké údaje.

Príklad č. 2 - VBA Napíšte textový súbor

Existuje rovnaká práca ako iná.

Krok 1: V príklade použijeme rovnaký kód, aký sme napísali vyššie, ale použitý kód by sa mierne zmenil. Uvažujme o rovnakom kóde, aký je uvedený v príklade 1.

kód:

 Sub WriteTextFile2 () Dim myFile ako String myFile = Open myFile Pripojiť ako # 1 Napíšte # 1, "Ford", "Figo", 1000, "míle", 2000 Napíšte # 1, "Toyota", "Etios", 2000, "míle", Zatvoriť # 1 MsgBox "Uložené" End Sub

Krok 2: Teraz namiesto umiestnenia súboru vyberte aktívny zošit pomocou programu ActiveWorkbook, ako je to znázornené nižšie.

kód:

 Pod WriteTextFile2 () Dim myFile ako String myFile = ActiveWorkbook. Open myFile na Pripojiť ako # 1 Napíšte # 1, "Ford", "Figo", 1000, "míle", 2000 Napíšte # 1, "Toyota", "Etios", 2000, "míle", Zavrieť # 1 MsgBox "Uložené "End Sub

Krok 3: Teraz vyberte cestu z rozbaľovacieho zoznamu ActiveWorkBook .

kód:

 Sub WriteTextFile2 () Dim myFile ako String myFile = ActiveWorkbook.Path Otvorte myFile na Pripojiť ako # 1 Napíšte # 1, "Ford", "Figo", 1000, "míle", 2000 Napíšte # 1, "Toyota", "Etios", 2000, „míle“, Zatvoriť # 1 MsgBox „Uložené“ End Sub

Krok 4: Potom vyberte cestu, kam musíme pripojiť údaje do textového súboru oddeleného ampersandom.

kód:

 Sub WriteTextFile2 () Dim myFile As String myFile = ActiveWorkbook.Path & "\ VPB File" Open myFile for Append As # 1 Write # 1, "Ford", "Figo", 1000, "miles", 2000 Write # 1, " Toyota ", " Etios ", 2000, " míle ", Zatvoriť # 1 MsgBox" Saved "End Sub

Krok 5: Teraz znova zostavte kód a potom ho spustite. Po úspešnom dokončení behu dostaneme správu ako Uloženú .

Teraz znova choďte na cestu, kde sme si ponechali tento súbor, ktorý má kód, a zistite, či je textový súbor tam uložený alebo nie.

Teraz otvorte súbor a skontrolujte, či sú údaje správne pripojené alebo nie. Zistíme, že údaje sú pripojené rovnakým spôsobom, ako sa to stalo v príklade 1.

Výhody textového súboru Excel VBA

  • Na pripojenie údajov nemusíme ani otvárať žiadny súbor.
  • Ak sú údaje obrovské, môžeme ich pripojiť z Excelu do Text bez otvorenia súboru. Pri spracovaní súboru nie je problém.
  • Ak pôjdeme do procesu zdieľaného v príklade 2, potom nemusíme uvádzať cestu, kam chceme vidieť výstupný textový súbor.

Čo je potrebné pamätať

  • V procese zobrazenom v príklade 1 môžeme súbor umiestniť na miesto, kde chceme vidieť výstup.
  • V procese zobrazenom v príklade 2 sa automaticky zváži umiestnenie súboru, ktorý má kód VBA textového súboru VBA Write Text File.
  • Môžeme si dokonca vybrať dáta z ľubovoľného súboru Excel, ktorý chceme previesť do textového súboru.
  • Môžeme si vybrať a vytvoriť ľubovoľný počet ako tabuľku, ktorú chceme pripojiť do textového súboru.

Odporúčané články

Toto je sprievodca písaním textového súboru VBA. Tu diskutujeme o tom, ako napísať textový súbor v programe Excel pomocou kódu VBA, spolu s praktickými príkladmi a šablónou programu Excel na stiahnutie. Môžete si tiež prečítať naše ďalšie navrhované články -

  1. VBA InStr vysvetlené s príkladmi
  2. VBA celočíselný typ údajov
  3. VBA ISNULL je uvedený s príkladmi
  4. Transponujte rozsah vo VBA

Kategórie:

VBA