|
Выгрузка данных отчета в CSV | ☑ | ||
|---|---|---|---|---|
|
0
Morozov Roman
30.06.23
✎
14:36
|
Всем здрасьте, кто подскажет как выгрузить данные в csv. Суть такая - отчет выводит данные на форму в таб док, эти данные нужно выгрузить в csv как это сделать. Пробую не получается. Таб док переделал в ТЗ, а дальше не пойму как. Кол-во колонок может меняться. Как правильно выгрузить?
|
|||
|
1
Мультук
гуру
30.06.23
✎
14:44
|
(0)
>> Кол-во колонок может меняться Для каждого строка из тзДанные Цикл Для каждого колонка из тзДанные.Колонки Цикл //{тут волшебство} КонецЦикла; КонецЦикла или вариант для ленивых (не проверял, наверное работает) гугл: 1С выгрузить таблицаЗначений CSV https://infostart.ru/1c/articles/463330/ |
|||
|
2
lEvGl
гуру
30.06.23
✎
17:07
|
или экселем
сохранить табдок в эксель, открыть файл СОМом экселя, вызвать процедуру сохранения с разделителями |
|||
|
3
Amfiaray
01.07.23
✎
12:20
|
Разделитель = "^";
ТекстШапки = ""; Для Каждого Колонка Из ТаблицаДанных.Колонки Цикл Если ТекстШапки = "" Тогда ТекстШапки = Колонка.Имя; Иначе ТекстШапки = ТекстШапки+Разделитель+Колонка.Имя; КонецЕсли; КонецЦикла; ИмяФайла = ПолучитьИмяВременногоФайла("csv"); ФайлCSV = Новый ЗаписьТекста(ИмяФайла, КодировкаТекста.UTF16); ФайлCSV.ЗаписатьСтроку(ТекстШапки); Для Каждого СтрокаТ Из ТаблицаДанных Цикл ТекстСтроки = ""; Для Каждого Колонка Из ТаблицаДанных.Колонки Цикл Если ТекстСтроки = "" Тогда ТекстСтроки = ?(Строка(СтрокаТ[Колонка.Имя]) = "", " ", Строка(СтрокаТ[Колонка.Имя])); Иначе ТекстСтроки = ТекстСтроки+Разделитель+?(Строка(СтрокаТ[Колонка.Имя]) = "", " ", Строка(СтрокаТ[Колонка.Имя])); КонецЕсли; КонецЦикла; ФайлCSV.ЗаписатьСтроку(ТекстСтроки); КонецЦикла; ФайлCSV.Закрыть(); |
|||
|
4
Morozov Roman
01.07.23
✎
19:26
|
Всем спасибо!, нашел как решить
|
|||
|
5
lEvGl
гуру
03.07.23
✎
07:38
|
(4) ни в коем случае никому не говорите как
|
| Форум | Правила | Описание | Секции | Поиск |