Сохранение данных из таблицы Excel в текстовый файл при помощи VBA

MyTetra Share

Делитесь знаниями!

Ссылка на оригинал

Время создания: 16.03.2019 23:43

Текстовые метки: vba_excel, text, txt, vba text

Раздел: Разные закладки - VBA - Text

Запись: xintrea/mytetra_db_adgaver_new/master/base/15230025847spo3fdkj5/text.html на raw.githubusercontent.com

Сохранение данных из таблицы Excel в текстовый файл при помощи VBA

Задача: скопировать заданную область из таблицы Excel в текстовый файл. Данные из столбцов должны разделяться знаками табуляции, данные из строк — находиться в отдельных строках.

Есть несколько способов решения данной задачи. Ниже приведён VBA код трёх вариантов.

Open ActiveWorkbook.Path & “\текстовый файл.txt” For Output As #1

bText = “Заголовок1" & vbTab & "Заголовок2" & vbTab & "Заголовок3”

Print #1, bText

For Each c In ActiveSheet.UsedRange

Print #1, c.Address(0, 0), c.Value

Close #1

Для копирования в текстовый файл в формат Unicode:

Dim buffer As String

Open "C:\Unicode.txt" For Binary As #1

buffer = StrConv(strText2Write, vbUnicode) + _

StrConv(vbCrLf, vbUnicode)

Put #1, , buffer

Close #1

Ещё более простой способ сохранения в текстовый файл в юникоде:

path = "C:\"

ActiveWorkbook.SaveAs Filename:=path & "\Имя_файла.txt", _

FileFormat:=xlUnicodeText

ActiveWorkbook.Close True

Ещё варианты:

How to write out Unicode text files in VBA
Save/Export Worksheet as unicode txt file

Так же в этом разделе:

MyTetra Share v.0.65