Текстовый файл записи VBA

Excel VBA Запись текстового файла

В VBA мы можем открывать, читать или записывать текстовый файл, запись в текстовый файл означает, что данные, которые у нас есть на листе Excel, и мы хотим, чтобы они были в текстовом файле или в файле блокнота, есть два метода, один из которых с использованием свойства объекта файловой системы VBA, а другой — с использованием метода Open and write в VBA.

В большинстве корпоративных компаний после того, как отчет будет готов, они стараются загрузить отчет в базу данных. Для загрузки в базу данных они используют формат «Текстовые файлы» для обновления базы данных. Обычно мы копируем данные из Excel и вставляем в текстовый файл. Причина, по которой мы полагаемся на текстовые файлы, заключается в том, что с ними очень легко работать из-за их легкости и простоты. От используя кодирование VBAИспользование кода VBAКод VBA относится к набору инструкций, написанных пользователем на языке программирования приложений Visual Basic в редакторе Visual Basic (VBE) для выполнения определенной задачи.читать далее, мы можем автоматизировать задачу копирования данных из файла Excel в текстовый файл. В этой статье мы покажем вам, как копировать или записывать данные из файла Excel в текстовый файл с помощью кода VBA.

Текстовый файл записи VBA

Вы можете использовать это изображение на своем веб-сайте, в шаблонах и т. д. Пожалуйста, предоставьте нам ссылку на авторствоКак предоставить атрибуцию?Ссылка на статью должна быть гиперссылкой
Например:
Источник: Текстовый файл записи VBA (wallstreetmojo.com)

Как записать данные в текстовые файлы с помощью VBA?

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

Прежде чем я покажу вам, как писать код, позвольте мне объяснить, как открыть текстовый файл с помощью оператора open.

Синтаксис открытого текстового файла

Open [File Path], For [Mode], As [File Number]

Путь файла: Путь к файлу, который мы пытаемся открыть на компьютере.

Режим: Режим — это контроль, который мы можем иметь при открытии текстовых файлов. У нас может быть три типа контроля над текстовым файлом.

  • Режим ввода: Это говорит о том «Только для чтения» управление открытием текстового файла. Если мы используем «Режим ввода», мы ничего не можем сделать с файлом. Мы можем просто прочитать содержимое текстового файла.
  • Режим вывода: Используя эту опцию, мы можем записать на него содержимое. Здесь нужно помнить, что все существующие данные будут перезаписаны. Итак, нам нужно опасаться возможной потери старых данных.
  • Режим добавления: Этот режим полностью противоположен Выходной режим. Используя этот метод, мы можем фактически записать новые данные в конец существующих данных в файле.

Номер дела: Это подсчитает количество текстовых файлов всех открытых текстовых файлов. Это распознает открытые номера файлов в целых значениях от 1 до 511. Присвоение номера файла является сложной задачей и приводит к большой путанице. Для этого мы можем использовать бесплатную функцию File.

Бесплатный файл возвращает уникальный номер для открытых файлов. Таким образом, мы можем назначить уникальный номер файла без каких-либо повторяющихся значений.

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

Пример №1

Выполните следующие шаги, чтобы написать код для создания нового текстового файла.

Предположим, у вас уже есть текстовый файл с именем «Hello.txt» в памяти вашего компьютера, и мы покажем вам, как записывать в него данные.

Шаг 1: Объявить переменную

Объявите переменную для хранения пути к файлу в виде строки.

Код:

Sub TextFile_Example1()

  Dim Path As String

End Sub
Пример записи текста VBA 1-1
Шаг 2: Определите номер файла

Чтобы определить, к какому номеру файла мы обращаемся, объявим еще один переменная как целое числоПеременная как целое числоВ VBA целое число — это тип данных, который может быть присвоен любой переменной и использоваться для хранения целочисленных значений. В VBA скобка для максимального числа целочисленных переменных, которые можно сохранить, аналогична скобке в других языках. Используя оператор DIM, любую переменную можно определить как целочисленную переменную.читать далее.

Код:

Sub TextFile_Example1()

  Dim Path As String
  Dim FileNumber As Integer

End Sub
Пример записи текста VBA 1-2
Шаг 3: Назначьте путь к файлу

Теперь для переменной Path назначьте путь к файлу с именем файла.

Код:

Sub TextFile_Example1()

  Dim Path As String
  Dim FileNumber As Integer

  Path = "D:Excel FilesVBA FileHello.txt"
     'Change the path as per your requirement

End Sub
Пример записи текста VBA 1-3
Шаг 4: Назначьте бесплатную функцию файла

Теперь для переменной «Номер файла» назначьте функцию «Свободный файл» для хранения уникальных номеров файлов.

Код:

Sub TextFile_Example1()

  Dim Path As String
  Dim FileNumber As Integer

  Path = "D:Excel FilesVBA FileHello.txt"
    'Change the path as per your requirement

  FileNumber = FreeFile

End Sub
Пример записи текста VBA 1-4
Шаг 5: Откройте текстовый файл

Теперь нам нужно открыть текстовый файл для работы с ним. Как я объяснил, нам нужно использовать оператор OPEN, чтобы открыть текстовый файл.

Пример 1-5

Шаг 6: Используйте метод печати/записи

После того, как файл открыт, нам нужно что-то в нем написать. Чтобы записать в текстовый файл, нам нужно использовать метод «Запись» или «Печать».

Код:

Sub TextFile_Example1()

    Dim Path As String
    Dim FileNumber As Integer

    Path = "D:Excel FilesVBA FileHello.txt"
       'Change the path as per your requirement

    FileNumber = FreeFile

Open Path For Output As FileNumber

    Print #FileNumber, "Welcome"
    Print #FileNumber, "to"
    Print #FileNumber, "VBA"

End Sub
Пример 1-6

Во-первых, нам нужно указать номер файла (здесь мы присвоили файлу переменную «filenumber»), затем нам нужно добавить содержимое, которое мы хотим добавить в текстовый файл.

Шаг 7: Сохраните и закройте текстовый файл

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

Код:

Sub TextFile_Example1()

  Dim Path As String
  Dim FileNumber As Integer

  Path = "D:Excel FilesVBA FileHello.txt"
     'Change the path as per your requirement

   FileNumber = FreeFile

Open Path For Output As FileNumber

   Print #FileNumber, "Welcome"
   Print #FileNumber, "to"
   Print #FileNumber, "VBA"

   Close FileNumber

End Sub
Пример 1-7

Теперь запустите этот код вручную или через горячая клавиша эксельКлавиша быстрого доступа ExcelЯрлык Excel — это способ более быстрого выполнения ручного задания.читать далее F5. Он запишет указанный контент в указанный текстовый файл.

Пример записи текста VBA 1-8

Пример #2

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

Для этого примера я создал простые данные в Excel, как показано ниже.

Пример записи текста VBA 1

Шаг 1: Продолжая старый пример, определите еще две переменные как Integer, чтобы найти последнюю строку и последний столбец.

Код:

Sub TextFile_Example2()

   Dim Path As String
   Dim FileNumber As Integer
   Dim LR As Integer
   Dim LC As Integer

End Sub
Пример записи текста VBA 2

Шаг 2: Найдите последнюю использованную строку и столбец на листе.

Пример записи текста VBA 2-1

Шаг 3: Теперь назначьте путь к файлу и номер файла.

Пример записи текста VBA 2-2

Шаг 4: Теперь используйте оператор OPEN, чтобы открыть текстовый файл.

Пример записи текста VBA 2-3

Шаг 5: Нам нужно перебирать строки и столбцы, поэтому объявите еще две переменные как Integer.

Пример записи текста VBA 2-4

Шаг 6: Теперь откройте Loop, чтобы прокрутить строку (Для следующего цикла в VBAДля следующего цикла в VBAВсе языки программирования используют цикл VBA For Next. После оператора FOR в этом цикле есть критерий, и код повторяется до тех пор, пока критерий не будет достигнут. читать далее)

Пример записи текста VBA 2-5

Шаг 7: Теперь, чтобы выполнить цикл по столбцам, откройте еще один цикл внутри существующего цикла.

Пример записи текста VBA 2-6

Шаг 8: Нам нужно записать одну и ту же строку данных, пока она не достигнет последнего столбца. Поэтому для этого примените оператор IF в VBA.

Пример 2-7

Шаг 9: Теперь сохраните и закройте текстовый файл.

Пример 2-8

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

Пример 2-9

Код:

Sub TextFile_Example2()

    Dim Path As String
    Dim FileNumber As Integer
    Dim LR As Integer
    Dim LC As Integer

    Dim k As Integer
    Dim i As Integer

   LR = Worksheets("Text").Cells(Rows.Count, 1).End(xlUp).Row
   LC = Worksheets("Text").Cells(1, Columns.Count).End(xlToLeft).Column

   Path = "D:Excel FilesVBA FileHello.txt"
   FileNumber = FreeFile

   Open Path For Output As FileNumber

   For k = 1 To LR

       For i = 1 To LC
           If i <> LC Then
               Print #FileNumber, Cells(i, k),
           Else
              Print #FileNumber, Cells(i, k)
           End If
      Next i

   Next k

   Close FileNumber
 
   Shell "notepad.exe " & Path, vbNormalFocus

End Sub

Итак, запускаем код с помощью клавиши F5 или вручную. Затем он скопирует данные ниже.

Пример записи текста VBA 2-10

УЗНАТЬ БОЛЬШЕ >>

Похожие записи

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *