Данные таблицы в txt файл

Данные таблицы в txt файл

Добрый день, читатели блога! 

Сегодня мы поговорим о выгрузке данных таблицы Excel в текстовый файл. 

Можно сразу возразить - такая функция есть в программе! Да, она есть, но выгрузка, иногда происходит не в той кодировке, я не знаю в какой ячейке содержались данные, мне приходится переименовывать и указывать место для нового файла.

Постараемся избавиться от этих сопутствующих шагов и договоримся вот о чём: 

  • сохранять будем в той же папке, что и таблица;
  • имя текстового файла будет таким же.

Откроем таблицу с данными и, как обычно, перейдём на вкладку "Разработчик".

 

Данные таблицы в txt файл

 

Не отклоняемся от привычной очерёдности вставки модуля:

  1. Вкладка "Разработчик", блок кнопок "Код", кнопка "Visual Basic";
  2. Далее "Insert" - > "Module".

Как только модуль появится вставим туда следующий макрос.

Данные таблицы в txt файл

 

Sub SaveAsText()
Dim cell As Range
' Открываем файл для сохранения (имя файла = имя рабочей книги, но отличается расширением - TXT)
Open ThisWorkbook.Path & "\" & ThisWorkbook.Name & ".txt" For Output As #1
' Запись содержимого заполненных ячеек таблицы в файл
For Each cell In ActiveSheet.UsedRange
If Not IsEmpty(cell) Then
Print #1, cell.Address, cell.Formula
End If
Next
' Не забыть закрыть файл
Close #1
End Sub

 

Необходимые пояснения:

  • Open ThisWorkbook.Path & "\" & ThisWorkbook.Name & ".txt" For Output As #1 - объявляем наш файл #1, сохраняем его в том же месте где и книга, имя текстового файла будем таким же как и у книги (с добавлением txt);
  • For Each cell In ActiveSheet.UsedRange If Not IsEmpty(cell) Then - для каждой ячейки на активном листе (если она не пуста) будет применено следующее действие;
  • Print #1, cell.Address, cell.Formula - выводим данные в текстовый файл вместе с адресом ячейки;
  • Close #1 - закрываем книгу.

Вызываем макрос (Alt+F8), выполняем его (в появившемся окне жмём кнопку "Выполнить").

Визуально ничего не происходит, но если закрыть таблицу и вернуться в папку где она сохранена, мы увидим следующую картину.

Данные таблицы в txt файл

Всё согласно условиям выгрузки. При открытии текстового файла также будет видна вся информация о данных таблицы - где, что находится. 

Данные таблицы в txt файл

 

Если остались вопросы - посмотрите наше новое видео (ССЫЛКА НА ФАЙЛ С МАКРОСОМ).

 

Post Author: Иван

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