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

Мы все сталкиваемся с такой ситуацией, когда нам приходилось помещать огромные данные в файлы Excel, но в конечном итоге мы столкнулись с ситуацией, когда размер этого файла с огромными данными увеличился настолько, что нам пришлось преобразовать их в текст. файл. Из-за этого мы не могли ни работать над этим файлом, ни сохранять файл в формате Excel. Такого рода ситуации мы наблюдали во многих проектах, где нам нужно извлечь данные из базы данных. Извлечение данных из базы данных возможно, если для этого использовать текстовый файл. Текстовый файл не зависает, и мы можем хранить как можно больше данных и таблиц в одном текстовом файле без сбоев файла. Для этого нам нужно преобразовать файл Excel в текстовый файл. Хотя это не большая задача, когда это повторяющееся действие и выполнение может занять огромное время.

Чтобы избежать этого, у нас есть процесс в VBA, с помощью которого мы можем преобразовать файл Excel в текстовый файл без ущерба для данных. Таким образом, мы можем сохранить огромный набор данных в текстовом файле, уменьшив и сжав размер файла.

Понимание кода написания текстового файла на VBA довольно сложно, но это не сложно понять.

Процесс последовал:

  • File Path: путь к файлу, в котором мы сохранили файл Excel.
  • Режим: для каких целей нам нужно открыть файл. Это может быть режим только для чтения или цель записи, или нам нужно использовать его для добавления данных.
  • Номер файла: По этому мы можем подсчитать количество времени, которое мы использовали для файла Excel для текстового файла.

Как написать текстовый файл в Excel VBA?

Мы научимся писать текстовый файл с использованием кода VBA в Excel на нескольких примерах.

Вы можете скачать этот шаблон Excel для текстового файла VBA здесь - VBA Шаблон для текстового файла записи Excel

Пример № 1 - VBA запись текстового файла

В этом примере мы увидим, как сопоставить местоположение файла с кодом VBA, чтобы записать его в формате текстового файла. Для этого нам нужен модуль.

Шаг 1: Перейдите к пункту меню « Вставка» и выберите « Модуль», как показано ниже.

Шаг 2: Теперь в открытом модуле напишите подкатегорию VBA Write Text или мы можем выбрать любое имя по нашему выбору.

Код:

 Sub WriteTextFile2 () End Sub

Шаг 3: На первом этапе кодирования объявите переменную myFile как String, как показано ниже.

Код:

 Sub WriteTextFile2 () Dim myFile As String End Sub

Шаг 4: В назначенной переменной укажите местоположение файла, который нам нужно конвертировать из Excel в текст. Здесь мы назвали этот файл как Test с расширением. TXT, как показано ниже.

Код:

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

Шаг 5: Как мы видели в описании VBA Write Text File, мы сначала откроем файл Excel, а затем добавим данные из Excel в текстовый файл с командной строкой ниже.

Код:

 Sub WriteTextFile2 () Dim myFile As String myFile = "D: \ VPB File \ April Files \ Final location \ Final Input.txt" Открыть myFile для добавления в качестве # 1 End Sub

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

Код:

 Sub WriteTextFile2 () Dim myFile As String myFile = "D: \ VPB File \ April Files \ Final location \ Final Input.txt" Открыть myFile для добавления в качестве # 1 Запись # 1, "Ford", "Figo", 1000, " миль », 2000 г. Запись №1, « Тойота », « Этиос », 2000 г., « миль », End Sub

Шаг 7: Теперь закройте первую таблицу, как показано ниже.

Код:

 Sub WriteTextFile2 () Dim myFile As String myFile = "D: \ VPB File \ April Files \ Final location \ Final Input.txt" Открыть myFile для добавления в качестве # 1 Запись # 1, "Ford", "Figo", 1000, " миль ", 2000 г. Запись # 1, " Тойота ", " Etios ", 2000 г., " мили ", Close # 1 End Sub

Шаг 8: Мы также хотели бы увидеть сообщение, когда процесс будет завершен.

Код:

 Sub WriteTextFile2 () Dim myFile As String myFile = "D: \ VPB File \ April Files \ Final location \ Final Input.txt" Открыть myFile для добавления в качестве # 1 Запись # 1, "Ford", "Figo", 1000, " миль ", 2000 Запись # 1, " Тойота ", " Etios ", 2000, " миль ", Закрыть # 1 MsgBox" Сохранено "End Sub

Шаг 9: Теперь скомпилируйте код и запустите его, нажав кнопку Play, расположенную под строкой меню, как показано ниже. Если ошибки не найдены, мы получим окно сообщения с сообщением « Сохранено», как показано ниже.

Шаг 10: Теперь перейдите к месту, которое мы упомянули в коде выше, мы увидим текстовый файл с именем Test, как показано ниже.

Теперь, чтобы проверить, содержит ли этот текстовый файл те же данные, которые мы ввели через VBA, откройте его. Мы увидим, что те же данные были введены.

Пример №2 - VBA запись текстового файла

Есть и другой путь к той же работе.

Шаг 1: В примере мы будем использовать тот же код, который мы написали выше, но в используемом коде будут небольшие изменения. Давайте рассмотрим тот же код, который показан в примере-1.

Код:

 Sub WriteTextFile2 () Dim myFile As String myFile = Открыть myFile для добавления в качестве # 1 Запись # 1, "Ford", "Figo", 1000, "miles", 2000 Write # 1, "Toyota", "Etios", 2000, "мили", Закрыть # 1 MsgBox "Сохранено" End Sub

Шаг 2. Теперь вместо файла выберите активную книгу с ActiveWorkbook, как показано ниже.

Код:

 Sub WriteTextFile2 () Dim myFile As String myFile = ActiveWorkbook. Откройте myFile для добавления в качестве # 1. Запись # 1, «Ford», «Figo», 1000, «миль», 2000. Запись # 1, «Toyota», «Etios», 2000, «миль», Close # 1 MsgBox «Сохранено "End Sub

Шаг 3: Теперь выберите Путь из выпадающего списка ActiveWorkBook .

Код:

 Sub WriteTextFile2 () Dim myFile As String myFile = ActiveWorkbook.Path Открыть myFile для добавления в качестве # 1 Запись # 1, "Ford", "Figo", 1000, "miles", 2000 Write # 1, "Toyota", "Etios", 2000, "мили", Close # 1 MsgBox "Сохранено" End Sub

Шаг 4: Затем выберите путь, куда мы должны добавить данные в текстовый файл, разделенные амперсандом.

Код:

 Sub WriteTextFile2 () Dim myFile As String myFile = ActiveWorkbook.Path & "\ VPB File" Открыть myFile для добавления в качестве # 1 Запись # 1, "Ford", "Figo", 1000, "miles", 2000 Write # 1, " Тойота », « Этиос », 2000, « мили », Close # 1 MsgBox« Сохранено »End Sub

Шаг 5: Теперь снова скомпилируйте код и запустите его после этого. При успешном завершении запуска мы получим сообщение как сохраненное .

Теперь снова перейдите по тому пути, где мы сохранили этот файл с кодом, и посмотрите, сохранен ли текстовый файл там или нет.

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

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

  • Нам даже не нужно открывать какой-либо файл, чтобы добавить данные.
  • Если данные огромны, мы можем добавить данные из Excel в текст, не открывая файл. Таким образом, нет проблем с обработкой файла.
  • Если мы перейдем к процессу, описанному в примере 2, нам даже не нужно будет указывать путь, по которому мы хотим увидеть выходной текстовый файл.

То, что нужно запомнить

  • В процессе, показанном в примере 1, мы можем поместить файл в то место, где мы хотим увидеть вывод.
  • В процессе, показанном в примере 2, он автоматически рассмотрит расположение файла, в котором есть VBA-код VBA Write Text File.
  • Мы даже можем выбрать данные из любого файла Excel, который мы хотим преобразовать в текстовый файл.
  • Мы можем выбрать и создать любое число в виде таблицы, которую мы хотим добавить в текстовый файл.

Рекомендуемые статьи

Это руководство к текстовому файлу VBA. Здесь мы обсудим, как написать текстовый файл в Excel с использованием кода VBA, а также с практическими примерами и загружаемым шаблоном Excel. Вы также можете просмотреть наши другие предлагаемые статьи -

  1. VBA InStr объяснил с помощью примеров
  2. Целочисленный тип данных VBA
  3. VBA ISNULL объяснено с примерами
  4. Транспонировать диапазон в VBA

Категория:

VBA