Napište textový soubor v aplikaci Excel VBA

Všichni se setkáváme s takovou situací, kdy jsme museli do vynikajících souborů vkládat obrovská data, ale nakonec jsme museli čelit situaci, kdy se velikost tohoto souboru s obrovskými daty zvýšila tak, že jsme je museli převést na text soubor. Z tohoto důvodu jsme nemohli pracovat na tomto souboru ani uložit soubor do excel formátu. Tento druh situace jsme viděli v mnoha projektech, kde musíme extrahovat data z databáze. Vytažení dat z databáze je možné, pokud pro tento účel použijete textový soubor. Textový soubor se nezavěsí a můžeme uložit tolik dat a tabulek do jediného textového souboru, aniž by došlo k jeho poškození. K tomu potřebujeme převést soubor Excel do textového souboru. Ačkoli to není velký úkol, když se jedná o opakující se aktivitu a provedení této akce může trvat velmi dlouho.

Abychom tomu zabránili, máme proces ve VBA, s nímž můžeme převést soubor Excel do textového souboru, aniž by došlo k poškození dat. Tímto způsobem můžeme do textového souboru uložit obrovské množství dat snížením a kompresí velikosti souboru.

Porozumění kódu VBA pro psaní textového souboru je poměrně složité, ale není obtížné jej pochopit.

Proces následoval:

  • Cesta k souboru: Umístění cesty k souboru, kde jsme uchovávali soubor Excel.
  • Režim: Za jakým účelem musíme soubor otevřít. Může se jednat o režim jen pro čtení nebo o zápis, nebo jej musíme použít pro připojení dat.
  • Číslo souboru: Tímto můžeme spočítat, kolik času jsme použili pro excel pro textový soubor.

Jak psát textový soubor v Excel VBA?

Naučíme se, jak napsat textový soubor pomocí kódu VBA v Excelu s několika příklady.

Zde si můžete stáhnout tuto šablonu Excel VBA Write Text File Excel - VBA Write Excel File Excel Template

Příklad č. 1 - Zápis textového souboru VBA

V tomto příkladu uvidíme, jak namapovat umístění souboru pomocí kódu VBA a zapsat jej do formátu textového souboru. K tomu potřebujeme modul.

Krok 1: Přejděte na možnost Vložit nabídku a vyberte modul, jak je uvedeno níže.

Krok 2: Nyní v otevřeném modulu napište podkategorii VBA Write Text, nebo si můžeme vybrat libovolné jméno podle našeho výběru.

Kód:

 Sub WriteTextFile2 () End Sub

Krok 3: V prvním kroku kódování deklarujte proměnnou myFile jako String, jak je ukázáno níže.

Kód:

 Sub WriteTextFile2 () Dim myFile jako String End Sub

Krok 4: Do přiřazené proměnné vložte umístění souboru, který musíme převést z Excelu na Text. Zde jsme tento soubor pojmenovali Test s příponou. txt, jak je uvedeno níže.

Kód:

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

Krok 5: Jak jsme viděli v popisu VBA Write Text File, nejprve otevřeme excel soubor a potom připojíme data z Excelu k textovému souboru s příkazovým řádkem pod.

Kód:

 Sub WriteTextFile2 () Dim myFile As String myFile = "D: \ VPB File \ April Files \ Final location \ Final Input.txt" Otevřete myFile pro připojení jako # 1 End Sub

Krok 6: Nyní vložíme nějaký text do textového souboru, který bychom rádi viděli, jak je znázorněno níže, pomocí Write # 1 pro první tabulku. Zadali jsme několik náhodných značek aut s názvem modelu a specifikacemi.

Kód:

 Sub WriteTextFile2 () Dim myFile As String myFile = "D: \ VPB File \ April Files \ Final location \ Final Input.txt" Otevřít myFile pro připojení jako # 1 Write # 1, "Ford", "Figo", 1000, " mil ", 2000 Napište č. 1, " Toyota ", " Etios ", 2000, " mil ", End Sub

Krok 7: Nyní zavřete první tabulku, jak je ukázáno níže.

Kód:

 Sub WriteTextFile2 () Dim myFile As String myFile = "D: \ VPB File \ April Files \ Final location \ Final Input.txt" Otevřít myFile pro připojení jako # 1 Write # 1, "Ford", "Figo", 1000, " mil ", 2000 Napište # 1, " Toyota ", " Etios ", 2000, " mil ", Zavřít # 1 End Sub

Krok 8: Chtěli bychom také vidět zprávu, jakmile bude proces dokončen.

Kód:

 Sub WriteTextFile2 () Dim myFile As String myFile = "D: \ VPB File \ April Files \ Final location \ Final Input.txt" Otevřít myFile pro připojení jako # 1 Write # 1, "Ford", "Figo", 1000, " mil ", 2000 Napište # 1, " Toyota ", " Etios ", 2000, " mil ", Zavřít # 1 MsgBox" Uloženo "End Sub

Krok 9: Nyní zkompilujte kód a spusťte jej kliknutím na tlačítko Přehrát umístěné pod nabídkovou lištou, jak je ukázáno níže. Pokud není nalezena žádná chyba, pak bychom dostali okno se zprávou se zprávou Uloženo, jak je ukázáno níže.

Krok 10: Nyní přejděte na místo, které jsme zmínili ve výše uvedeném kódu, uvidíme textový soubor s názvem Test, jak je ukázáno níže.

Nyní zkontrolujte, zda tento textový soubor obsahuje stejná data, která jsme zadali prostřednictvím VBA, otevřete jej. Uvidíme, že byla zadána stejná data.

Příklad č. 2 - Zápis textového souboru VBA

Existuje stejná cesta ke stejné práci.

Krok 1: V příkladu použijeme stejný kód, jaký jsme napsali výše, ale došlo by k mírné změně použitého kódu. Uvažujme stejný kód jako v příkladu 1.

Kód:

 Sub WriteTextFile2 () Dim myFile jako String myFile = Otevřít myFile pro Přidat jako # 1 Napište # 1, "Ford", "Figo", 1000, "mil", 2000 Napište # 1, "Toyota", "Etios", 2000, "mil", Close # 1 MsgBox "Saved" End Sub

Krok 2: Nyní místo umístění souboru vyberte aktivní sešit s ActiveWorkbook, jak je ukázáno níže.

Kód:

 Sub WriteTextFile2 () Dim myFile jako String myFile = ActiveWorkbook. Otevřete myFile pro připojení jako # 1 Napište # 1, "Ford", "Figo", 1000, "mil", 2000 Napište # 1, "Toyota", "Etios", 2000, "mil", Zavřít # 1 MsgBox "Uloženo "End Sub

Krok 3: Nyní vyberte cestu z rozevíracího seznamu ActiveWorkBook .

Kód:

 Sub WriteTextFile2 () Dim myFile jako String myFile = ActiveWorkbook.Path Otevřete myFile pro připojení jako # 1 Napište # 1, "Ford", "Figo", 1000, "mil", 2000 Napište # 1, "Toyota", "Etios", 2000, "mil", Close # 1 MsgBox "Saved" End Sub

Krok 4: Poté vyberte cestu, kam musíme připojit data do textového souboru odděleného ampersandem.

Kód:

 Sub WriteTextFile2 () Dim myFile As String myFile = ActiveWorkbook.Path & "\ VPB File" Otevřete myFile pro připojení jako # 1 Write # 1, "Ford", "Figo", 1000, "miles", 2000 Write # 1, " Toyota ", " Etios ", 2000, " mil ", Close # 1 MsgBox" Saved "End Sub

Krok 5: Nyní znovu zkompilujte kód a poté jej spusťte. Po úspěšném dokončení běhu dostaneme zprávu jako uloženou .

Nyní znovu přejděte na cestu, kde jsme si ponechali tento soubor, který má kód, a podívejte se, zda je textový soubor tam uložen nebo ne.

Nyní otevřete soubor a zkontrolujte, zda jsou data správně připojena nebo ne. Zjistíme, že data jsou připojena podobným způsobem, jako tomu bylo v příkladu 1.

Výhody aplikace Excel VBA Write Text File

  • K připojení dat nemusíme ani otevírat žádný soubor.
  • Pokud jsou data obrovská, můžeme je připojit z Excelu do textu bez otevření souboru. Při manipulaci se souborem tedy také není problém.
  • Pokud půjdeme s procesem sdíleným v příkladu 2, nemusíme ani dávat cestu, kam chceme vidět výstupní textový soubor.

Co si pamatovat

  • V procesu znázorněném v příkladu 1 můžeme soubor umístit na místo, kde chceme vidět výstup.
  • V procesu znázorněném v příkladu 2 se automaticky zváží umístění souboru, který má kód VBA VBA Write Text File.
  • Můžeme dokonce vybrat data z libovolného souboru Excel, který chceme převést do textového souboru.
  • Můžeme vybrat a vytvořit libovolné mnoho jako tabulku, kterou chceme připojit do textového souboru.

Doporučené články

Toto je průvodce psaním textového souboru VBA. Zde diskutujeme o tom, jak napsat textový soubor v Excelu pomocí kódu VBA, spolu s praktickými příklady a šablonou Excel ke stažení. Můžete si také prohlédnout naše další doporučené články -

  1. VBA InStr vysvětleno příklady
  2. VBA celočíselný typ dat
  3. VBA ISNULL vysvětleno příklady
  4. Transponujte rozsah ve VBA

Kategorie:

VBA