Написати текстовий файл у Excel VBA

Ми всі стикаємося з такою ситуацією, коли нам доводилося вносити величезні дані у файли excel, але, врешті-решт, ми стикалися з ситуацією, коли розмір цього файлу з величезними даними збільшився настільки, що нам довелося перетворити це в текст файл. Завдяки цьому ми не могли ні працювати над цим файлом, ні зберігати файл у форматі excel. Таку ситуацію ми спостерігали в багатьох проектах, де нам потрібно витягти дані з бази даних. Витяг даних з бази даних можливий, якщо для цього використовувати текстовий файл. Текстовий файл не вішається, і ми можемо зберігати стільки даних і таблиць в одному текстовому файлі без збиття файлу. Для цього нам потрібно перетворити файл excel у текстовий файл. Хоча це не велике завдання, коли це повторювана діяльність і може зайняти величезний час для її виконання.

Щоб цього уникнути, у нас є процес у VBA, завдяки чому ми можемо перетворити файл excel у текстовий файл, не завдаючи шкоди даним. Цим ми можемо зберегти величезний набір даних у текстовому файлі, зменшивши і стиснувши розмір файлу.

Розуміння коду VBA написання текстового файлу є досить складним, але його не важко зрозуміти.

Наступний процес:

  • Шлях до файлу: розміщення шляху до файлу, де ми зберегли файл excel.
  • Режим: З якою метою нам потрібно відкрити файл. Це може бути режим лише читання або мета запису, або нам потрібно використовувати його для додавання даних.
  • Номер файлу: за цим ми можемо підрахувати кількість часу, яке ми використали для файлу excel для текстового файлу.

Як записати текстовий файл у Excel VBA?

Ми дізнаємось, як написати текстовий файл за допомогою коду VBA у відмінній формі з кількома прикладами.

Ви можете завантажити цей шаблон файлу Excel для написання текстового файлу тут - VBA Записати текстовий файл Excel Шаблон

Приклад №1 - текстовий файл VBA

У цьому прикладі ми побачимо, як відобразити розташування файлів за допомогою коду VBA, щоб записати його у форматі текстового файлу. Для цього нам потрібен модуль.

Крок 1: Перейдіть до пункту меню Вставка та виберіть Модуль, як показано нижче.

Крок 2: Тепер у відкритий модуль напишіть підкатегорію VBA Write Text, або ми зможемо вибрати будь-яке ім’я за власним вибором.

Код:

 Sub WriteTextFile2 () Кінець Sub

Крок 3: На першому кроці кодування оголосіть змінну myFile як String, як показано нижче.

Код:

 Sub WriteTextFile2 () Dim myFile As String End Sub

Крок 4: У призначену змінну помістіть розташування файлу, який нам потрібно перетворити з Excel в текст. Тут ми назвали цей файл як Тест із розширенням. txt, як показано нижче.

Код:

 Sub WriteTextFile2 () Dim myFile As String myFile = "D: \ VPB файл \ квітневі файли \ Кінцеве розташування \ Final Input.txt" Кінець Sub

Крок 5: Як ми бачили в описі текстового файлу VBA, ми спочатку відкриємо файл excel, а потім додамо дані з Excel до текстового файлу з командним рядком нижче.

Код:

 Sub WriteTextFile2 () Dim myFile As String myFile = "D: \ VPB файл \ квітневі файли \ Кінцеве розташування \ Final Input.txt" Відкрити myFile для додавання як №1 Кінець Sub

Крок 6: Тепер давайте помістимо текст у текстовий файл, який ми хотіли б побачити, як показано нижче, за допомогою Write # 1 для першої таблиці. Ми ввели кілька випадкових марок автомобілів з назвою моделі та технічними характеристиками.

Код:

 Sub WriteTextFile2 () Dim myFile As String myFile = "D: \ VPB файл \ квітневі файли \ остаточне розташування \ Final Input.txt" Відкрити myFile для додавання як №1. Напишіть №1, "Ford", "Figo", 1000, " миль », 2000 Напишіть №1, « Тойота », « Етіос », 2000 р., « милі », Кінець підп

Крок 7: Тепер закрийте першу таблицю, як показано нижче.

Код:

 Sub WriteTextFile2 () Dim myFile As String myFile = "D: \ VPB файл \ квітневі файли \ остаточне розташування \ Final Input.txt" Відкрити myFile для додавання як №1. Напишіть №1, "Ford", "Figo", 1000, " миль ", 2000 Напишіть №1, " Тойота ", " Етіос ", 2000 р., " милі ", Закрийте №1 Кінець Sub

Крок 8: Ми також хотіли б побачити повідомлення, коли процес буде виконано.

Код:

 Sub WriteTextFile2 () Dim myFile As String myFile = "D: \ VPB файл \ квітневі файли \ остаточне розташування \ Final Input.txt" Відкрити myFile для додавання як №1. Напишіть №1, "Ford", "Figo", 1000, " миль ", 2000 Напишіть №1, " Тойота ", " Етіос ", 2000 р., " милі ", Закрийте №1 MsgBox" Збережено "Кінець Sub

Крок 9: Тепер складіть код і запустіть його, натиснувши на кнопку Відтворити, розташовану під панеллю меню, як показано нижче. Якщо помилки не знайдено, ми отримаємо поле з повідомленням як збережене, як показано нижче.

Крок 10: Тепер перейдіть до місця, про яке ми згадували у коді вище, ми побачимо текстовий файл з назвою Тест, як показано нижче.

Тепер, щоб перевірити, чи має цей текстовий файл ті самі дані, які ми ввели через VBA, відкрийте його. Ми побачимо, що ті ж дані були введені.

Приклад №2 - Текстовий файл запису VBA

Є ще один шлях до тієї ж роботи.

Крок 1: У прикладі ми будемо використовувати той самий код, про який ми писали вище, але незначна зміна використовуваного коду. Розглянемо той самий код, що і в прикладі-1.

Код:

 Sub WriteTextFile2 () Dim myFile As String myFile = Відкрити myFile для додавання як # 1 Напишіть №1, "Ford", "Figo", 1000, "миль", 2000 Write # 1, "Toyota", "Etios", 2000, "милі", закрити №1 MsgBox "Збережено" Кінцевий підряд

Крок 2: Тепер замість місця розташування файлів виберіть активну книгу з ActiveWorkbook, як показано нижче.

Код:

 Sub WriteTextFile2 () Dim myFile As String myFile = ActiveWorkbook. Відкрити myFile для додавання, як №1, напишіть №1, "Ford", "Figo", 1000, "миль", 2000 Write # 1, "Toyota", "Etios", 2000, "miles", Закрийте №1 MsgBox "Збережено" "Закінчити Sub

Крок 3: Тепер виберіть шлях зі спадного списку ActiveWorkBook .

Код:

 Sub WriteTextFile2 () Dim myFile As String myFile = ActiveWorkbook.Path Відкрити myFile для додавання як №1 Написати №1, "Ford", "Figo", 1000, "миль", 2000 Написати №1, "Toyota", "Etios", 2000 р., "Милі", Закрити №1 MsgBox "Збережено" Кінець Підд

Крок 4: Тоді вибираємо шлях, куди нам потрібно додати дані до текстового файлу, розділеного символом «ampersand».

Код:

 Sub WriteTextFile2 () Dim myFile As String myFile = ActiveWorkbook.Path & "\ VPB Файл" Відкрити myFile для додавання як №1 Написати №1, "Ford", "Figo", 1000, "миль", 2000 Write # 1, " Toyota ", " Etios ", 2000 р., " Милі ", Закрити №1 MsgBox" Збережений "Кінець Sub

Крок 5: Тепер знову скомпілюйте код і запустіть його після цього. Після успішного завершення запуску ми отримаємо повідомлення як збережене .

Тепер знову перейдіть до того шляху, де ми зберегли цей файл, який має код, і подивіться, чи зберігається там текстовий файл чи ні.

Тепер відкрийте файл, щоб перевірити, чи правильно додані дані чи ні. Ми виявимо, що дані додаються аналогічно тому, як це було в прикладі-1.

Плюси Excel VBA написати текстовий файл

  • Нам навіть не потрібно відкривати жоден файл, щоб додати дані.
  • Якщо даних величезна кількість, ми можемо додати дані з Excel до тексту, не відкриваючи файл. Отже, в роботі з файлом також немає проблем.
  • Якщо ми йдемо з процесом, спільним у прикладі-2, тоді нам навіть не потрібно давати шлях, куди ми хочемо бачити вихідний текстовий файл.

Що потрібно пам’ятати

  • У процесі, показаному в прикладі-1, ми можемо розмістити файл у тому місці, де ми хочемо побачити вихід.
  • У процесі, показаному в прикладі-2, він автоматично враховує розташування файлу, який містить код VBA VBA-тексту текстового файлу.
  • Ми навіть можемо вибрати дані з будь-якого файлу Excel, який ми хочемо перетворити у текстовий файл.
  • Ми можемо вибрати та створити будь-яку множину, як таблицю, яку ми хочемо додати у текстовий файл.

Рекомендовані статті

Це посібник по написанню текстового файлу VBA. Тут ми обговорюємо, як написати текстовий файл у Excel за допомогою коду VBA разом із практичними прикладами та шаблоном Excel, який можна завантажити. Ви також можете ознайомитися з іншими запропонованими нами статтями -

  1. VBA InStr пояснив із прикладами
  2. Тип даних цілочисельного VBA
  3. VBA ISNULL Пояснюється прикладами
  4. Перемістіть діапазон у VBA

Категорія:

VBA