Выгрузка из Excel в текстовый файл

@govorun · Регистрация: 01.11.2013

Author24 — интернет-сервис помощи студентам

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

@Hugo121 · 24.07.2018, 19:10

Пишите в файл данные построчно:
сперва 45 раз -
затем |, данные одной ячейки в нужном виде, |, данные второй и т.д.
снова 45 раз -
и т.д.

@Catstail · 24.07.2018, 19:52

Персечение строк и столбцов лучше изображать плюсами. Симпатичнее выйдет:

Код

+----------+---------------+
|   Ф И О  |     Сумма     |
+----------+---------------+

@Казанский · 24.07.2018, 20:04

govorun, ширина "ячеек" задана или надо подобрать по содержимому, т.е. по самому длинному тексту в столбце?

@govorun · 24.07.2018, 20:27 **[ТС]**

Казанский, наверное лучше с заданной (статичной) шириной

@Казанский · 24.07.2018, 21:13

govorun, в первом приближении

Visual Basic

Sub Gv()
Const WID = "6,6,8,19" 'ширина столбцов
Dim sw$(), v(), f%, s1$, i&, j&
  sw = Split(WID, ",")
  ReDim iw&(0 To UBound(sw))
  For i = 0 To UBound(sw)
    iw(i) = sw(i)
    s1 = s1 & String$(iw(i), "-") & "+"
  Next
  s1 = "+" & s1
  v = ActiveSheet.UsedRange.Resize(, i).Value
  f = FreeFile
  Open ThisWorkbook.Path & "\" & ActiveSheet.Name & ".txt" For Output As f
  For i = 1 To UBound(v)
    Print #f, s1
    For j = 1 To UBound(v, 2)
      Print #f, "|"; v(i, j); Space$(iw(j - 1) - Len(v(i, j)));
    Next
    Print #f, "|"
  Next
  Print #f, s1
  Close #f
End Sub

@govorun · 24.07.2018, 22:02 **[ТС]**

Казанский, Спасибо, буду разбираться

@govorun · 27.07.2018, 19:53 **[ТС]**

Сообщение от Казанский

Print #f, "|"; v(i, j); Space$(iw(j - 1) - Len(v(i, j)));

Рисует великолепно, только на эту строку ругается, методом тыка (заменил -Len на +Len) определил, что беда в "Space$(iw(j - 1) - Len(v(i, j)));" и в числах "лишние" ноли отбрасывает (из 15.50 делает 15.5) и соответственно сдвигаются границы

@snipe · 27.07.2018, 22:30

ой ой тут минус на плюс менять нельзя
назначение Space$(iw(j - 1) - Len(v(i, j))) вставить определенное количество пробелов
т.к. ширина (количество символов) строки величина постоянная а длинна вставляемого слова не постоянная то для получения определенного расстояния между разделителями нужно добить пробелы
где iw(j - 1)- количество символов в столбце (ширина столбца)
Len(v(i, j)) - длинна (количество символов) вставляемого в столбец слова

@snipe · 27.07.2018, 22:39

а ругануться он может если слово превышает ширину т.е. получается отрицательное число

@govorun · 28.07.2018, 10:26 **[ТС]**

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

Visual Basic

1	Print #f, "\|"; v(i, j); Space$(iw(j - 1) - Len(v(i, j)));

на

Visual Basic

1	Print #f, "\|" & Space$(iw(j - 1) - Len(v(i, j))) & v(i, j);

Теперь буду ломать голову, как оставлять ноли после запятой

@snipe · 28.07.2018, 12:54

любой числовой формат режет нули
можно воспользоваться функцией Format
например так
вот это

Visual Basic

1
2
3

For j = 1 To UBound(v, 2)
Print #f, "|"; v(i, j); Space$(iw(j - 1) - Len(v(i, j)));
Next j

сделать так

Visual Basic

For j = 1 To UBound(v, 2)
if isnumeric(v(i, j)) then asd=format(v(i, j),fixed) else asd=cstr(v(i, j))
Print #f, "|"; asd; Space$(iw(j - 1) - Len(asd));
Next j

а на счет лишних пробелов
они могут быть в таблице в значении
по-этому надо применять trim

Visual Basic

For j = 1 To UBound(v, 2)
if isnumeric(v(i, j)) then asd=format(v(i, j),fixed) else asd=cstr(v(i, j))
Print #f, "|"; trim(asd); Space$(iw(j - 1) - Len(Trim(asd)));
Next j

@Hugo121 6945 / 2849 / 549 Регистрация: 19.10.2012 Сообщений: 8,724
	24.07.2018, 19:10	2
	Пишите в файл данные построчно: сперва 45 раз - затем \|, данные одной ячейки в нужном виде, \|, данные второй и т.д. снова 45 раз - и т.д. 1

@Catstail Модератор 37312 / 20745 / 4273 Регистрация: 12.02.2012 Сообщений: 34,142 Записей в блоге: 14
	24.07.2018, 19:52	3
	Персечение строк и столбцов лучше изображать плюсами. Симпатичнее выйдет: Код +----------+---------------+ \| Ф И О \| Сумма \| +----------+---------------+ 2

@Казанский 15151 / 6424 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	24.07.2018, 20:04	4
	govorun, ширина "ячеек" задана или надо подобрать по содержимому, т.е. по самому длинному тексту в столбце? 1

@govorun 148 / 35 / 6 Регистрация: 01.11.2013 Сообщений: 793
	24.07.2018, 20:27 [ТС]	5
	Казанский, наверное лучше с заданной (статичной) шириной 0

@govorun 148 / 35 / 6 Регистрация: 01.11.2013 Сообщений: 793
	24.07.2018, 22:02 [ТС]	7
	Казанский, Спасибо, буду разбираться 0

@snipe 4080 / 1460 / 401 Регистрация: 07.08.2013 Сообщений: 3,653
	27.07.2018, 22:30	9
	ой ой тут минус на плюс менять нельзя назначение Space$(iw(j - 1) - Len(v(i, j))) вставить определенное количество пробелов т.к. ширина (количество символов) строки величина постоянная а длинна вставляемого слова не постоянная то для получения определенного расстояния между разделителями нужно добить пробелы где iw(j - 1)- количество символов в столбце (ширина столбца) Len(v(i, j)) - длинна (количество символов) вставляемого в столбец слова 1

@snipe 4080 / 1460 / 401 Регистрация: 07.08.2013 Сообщений: 3,653
	27.07.2018, 22:39	10
	а ругануться он может если слово превышает ширину т.е. получается отрицательное число Миниатюры 1

	28.07.2018, 12:54

Выгрузка из Excel в текстовый файл

Решение