Напишете текстов файл в Excel VBA
Всички се сблъскваме с подобна ситуация, при която трябваше да поставяме огромни данни във файлове на excel, но в крайна сметка се сблъскахме със ситуацията, когато размерът на този файл с огромните данни нарасна толкова много, че трябваше да го превърнем в текст файл. Поради това не успяхме нито да работим върху този файл, нито да запазим файла във формат excel. Този вид ситуация сме виждали в много проекти, където трябва да извлечем данните от базата данни. Изваждането на данните от базата данни е възможно, ако използвате текстов файл за тази цел. Текстовият файл не се окачва и можем да съхраняваме най-много данни и таблици в един текстов файл, без да сринем файла. За това трябва да конвертираме файла excel в текстов файл. Въпреки че това не е голяма задача, когато това е повтаряща се дейност и може да отнеме огромно време за изпълнение.
За да избегнем това, имаме процес във VBA, с което можем да конвертираме файла excel в текстов файл без да навредим на данните. По този начин можем да запишем огромен набор от данни в текстовия файл, като намалим и компресираме и размера на файла.
Разбирането на VBA кода за писане на текстовия файл е доста сложно, но не е трудно да се разбере.
Следван процес:
- Път на файла: Поставяне на пътя на файла, където сме запазили файла excel.
- Режим: За каква цел трябва да отворим файла. Може да бъде режимът само за четене или за писане или трябва да го използваме за добавяне на данните.
- Номер на файла: По този начин можем да преброим броя време, което сме използвали за excel файл за текстов файл.
Как да напиша текстов файл в Excel VBA?
Ще научим как да пишем текстов файл с помощта на VBA код в excel с няколко примера.
Можете да изтеглите този шаблон на VBA Write Text Excel шаблон тук - VBA Напишете текстов файл Excel шаблонПример №1 - VBA Напишете текстов файл
В този пример ще видим как да картографираме местоположението на файла с VBA код, за да го запишем във формата на текстовия файл. За това се нуждаем от модул.
Стъпка 1: Отидете на менюто Вмъкване и изберете Модул, както е показано по-долу.
Стъпка 2: Сега в отворения модул напишете подкатегорията на VBA Write Text или можем да изберем всяко име според нашия избор.
Код:
Sub WriteTextFile2 () End Sub
Стъпка 3: В първия етап на кодиране декларирайте променливата myFile като String, както е показано по-долу.
Код:
Sub WriteTextFile2 () Dim myFile като String End Sub
Стъпка 4: В присвоената променлива поставете местоположението на файла, който трябва да преобразуваме от Excel в Text. Тук сме нарекли този файл като Тест с разширението. txt, както е показано по-долу.
Код:
Sub WriteTextFile2 () Dim myFile as String myFile = "D: \ VPB файл \ април файлове \ крайно местоположение \ окончателен вход.txt" край Sub
Стъпка 5: Както видяхме в описанието на VBA Write Text File, първо ще отворим файла excel и след това ще добавим данните от Excel към текстов файл с команден ред по-долу.
Код:
Sub WriteTextFile2 () Dim myFile като String myFile = "D: \ VPB файл \ април файлове \ окончателно местоположение \ окончателен вход.txt" отворете myFile за добавяне като # 1 край под
Стъпка 6: Сега нека поставим малко текст в текстов файл, който бихме искали да видим, както е показано по-долу с помощта на Write # 1 за първата таблица. Въведохме няколко произволни марки автомобили с име на модел и спецификации.
Код:
Sub WriteTextFile2 () Dim myFile as String myFile = "D: \ VPB файл \ април файлове \ окончателно местоположение \ окончателен вход.txt" отворете myFile за добавяне като # 1 напишете # 1, "Ford", "Figo", 1000, " мили ", 2000 Напишете # 1, " Тойота ", " Етиос ", 2000 г., " мили ", Край Sub
Стъпка 7: Сега затворете първата таблица, както е показано по-долу.
Код:
Sub WriteTextFile2 () Dim myFile as String myFile = "D: \ VPB файл \ април файлове \ окончателно местоположение \ окончателен вход.txt" отворете myFile за добавяне като # 1 напишете # 1, "Ford", "Figo", 1000, " мили ", 2000 Напиши # 1, " Тойота ", " Етиос ", 2000 г., " мили ", Затвори №1 Край Sub
Стъпка 8: Също така бихме искали да видим съобщението, след като процесът е завършен.
Код:
Sub WriteTextFile2 () Dim myFile as String myFile = "D: \ VPB файл \ април файлове \ окончателно местоположение \ окончателен вход.txt" отворете myFile за добавяне като # 1 напишете # 1, "Ford", "Figo", 1000, " мили ", 2000 Напиши # 1, " Toyota ", " Etios ", 2000 г., " мили ", Затвори # 1 MsgBox" Saved "End Sub
Стъпка 9: Сега компилирайте кода и го стартирайте, като кликнете върху бутона Възпроизвеждане, разположен под лентата на менюто, както е показано по-долу. Ако не е намерена грешка, ще получим полето със съобщението като запазено, както е показано по-долу.
Стъпка 10: Сега отидете на местоположението, което споменахме в кода по-горе, ще видим текстовия файл с името Тест, както е показано по-долу.
Сега, за да проверите дали този текстов файл има същите данни, които сме въвели чрез 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 "Saved" End Sub
Стъпка 2: Сега на мястото на файла изберете активната работна книга с ActiveWorkbook, както е показано по-долу.
Код:
Sub WriteTextFile2 () Dim myFile като String myFile = ActiveWorkbook. Отворете myFile за добавяне като # 1 Напишете # 1, "Ford", "Figo", 1000, "miles", 2000 Write # 1, "Toyota", "Etios", 2000, "miles", затворете # 1 MsgBox "Saved „Край Sub
Стъпка 3: Сега изберете Path от падащия списък на ActiveWorkBook .
Код:
Sub WriteTextFile2 () Dim myFile as String myFile = ActiveWorkbook.Path Open myFile For Append as # 1 Напишете # 1, „Ford“, „Figo“, 1000, „мили“, 2000 Напишете # 1, „Toyota“, „Etios“, 2000 г., "мили", затваряне # 1 MsgBox "Saved" End Sub
Стъпка 4: След това изберете пътя, по който трябва да добавим данните в текстовия файл, разделен с амперсанд.
Код:
Sub WriteTextFile2 () Dim myFile като String myFile = ActiveWorkbook.Path & "\ VPB файл" Open myFile For Append as # 1 Write # 1, "Ford", "Figo", 1000, "miles", 2000 Write # 1, " Toyota ", " Etios ", 2000 г., " мили ", затваряне # 1 MsgBox" Saved "End Sub
Стъпка 5: Сега отново компилирайте кода и го стартирайте след това. След успешното завършване на изпълнението ще получите съобщението като запазено .
Сега отново отидете на този път, където сме запазили този файл, който има код и вижте дали текстовият файл е записан там или не.
Сега отворете файла, за да проверите дали данните са добавени правилно или не. Ще открием, че данните са прикачени по същия начин, както се случи в пример-1.
Плюсове на Excel VBA Напишете текстов файл
- Не е нужно дори да отваряме файл, за да добавим данните.
- Ако данните са огромни, тогава можем да добавим данните от Excel към Text, без да отваряме файла. Така че, няма проблем и в работата с файла.
- Ако вървим с процеса, споделен в пример-2, тогава дори не е нужно да даваме пътя, където искаме да видим изходния текстов файл.
Неща, които трябва да запомните
- В процеса, показан в пример-1, можем да поставим файла на мястото, където искаме да видим изхода.
- В процеса, показан в пример-2, той автоматично ще разгледа местоположението на файла, който има VBA код на VBA Write Text File.
- Можем дори да изберем данните от всеки файл на excel, който искаме да преобразуваме във текстовия файл.
- Можем да изберем и създадем всякакви числа като таблица, която искаме да добавим във текстовия файл.
Препоръчителни статии
Това е ръководство за VBA Write Text File. Тук обсъждаме как да напишете текстов файл в Excel, използвайки VBA код, заедно с практически примери и изтеглящ се шаблон на excel. Можете да разгледате и другите ни предложени статии -
- VBA InStr обясни с примери
- Тип данни на VBA Integer
- VBA ISNULL Обяснено с примери
- Транспонирайте обхват в VBA