![]() |
![]() |
|
Выгрузка Номенклатуры в Эксель с иерархией УТ 11.1 | ☑ | ||
---|---|---|---|---|
0
Yuri Ro
21.12.17
✎
09:54
|
Добрый день. Подскажите пожалуйста
Есть Справочник номенклатура его нужно выгрузить в ексель, стандартная обработка выгрузка загрузка не подходит. есть такой код: &НаКлиенте Процедура тест123(Кнопка); Объект.ДанныеВыгрузки.Очистить(); ВыбратьНоменклатуру(); КонецПроцедуры &НаСервере Процедура ВыбратьНоменклатуру (); Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ ПЕРВЫЕ 500 | Номенклатура.Ссылка, | Номенклатура.ВерсияДанных, | Номенклатура.ПометкаУдаления, | Номенклатура.Родитель, | Номенклатура.ЭтоГруппа, | Номенклатура.Код, | Номенклатура.Наименование, | Номенклатура.АлкогольнаяПродукция, | Номенклатура.Артикул, | Номенклатура.ВариантОформленияПродажи, | Номенклатура.Вес, | Номенклатура.ВестиУчетПоГТД, | Номенклатура.ВестиУчетСертификатовНоменклатуры, | Номенклатура.ВидАлкогольнойПродукции, | Номенклатура.ВидНоменклатуры, | Номенклатура.ГруппаДоступа, | Номенклатура.ГруппаФинансовогоУчета, | Номенклатура.ЕдиницаИзмерения, | Номенклатура.ЕдиницаИзмеренияСрокаГодности, | Номенклатура.ЕстьТоварыДругогоКачества, | Номенклатура.ИмпортнаяАлкогольнаяПродукция, | Номенклатура.ИспользованиеХарактеристик, | Номенклатура.ИспользоватьИндивидуальныйШаблонЦенника, | Номенклатура.ИспользоватьИндивидуальныйШаблонЭтикетки, | Номенклатура.ИспользоватьУпаковки, | Номенклатура.Качество, | Номенклатура.КодДляПоиска, | Номенклатура.Марка, | Номенклатура.НаборУпаковок, | Номенклатура.НаименованиеПолное, | Номенклатура.НоменклатураМногооборотнаяТара, | Номенклатура.Объем, | Номенклатура.ОбъемДАЛ, | Номенклатура.Описание, | Номенклатура.ПодакцизныйТовар, | Номенклатура.ПоставляетсяВМногооборотнойТаре, | Номенклатура.Производитель, | Номенклатура.ПроизводительИмпортерДляДекларацийАлко, | Номенклатура.СкладскаяГруппа, | Номенклатура.СрокГодности, | Номенклатура.СтавкаНДС, | Номенклатура.ТипНоменклатуры, | Номенклатура.ТоварнаяКатегория, | Номенклатура.ФайлКартинки, | Номенклатура.ФайлОписанияДляСайта, | Номенклатура.ХарактеристикаМногооборотнаяТара, | Номенклатура.ЦеноваяГруппа, | Номенклатура.ШаблонЦенника, | Номенклатура.ЕдиницаДляОтчетов, | Номенклатура.КоэффициентЕдиницыДляОтчетов, | Номенклатура.ШаблонЭтикетки, | Номенклатура.СезоннаяГруппа, | Номенклатура.РошеЛиния, | Номенклатура.РошеОбозначение, | Номенклатура.РошеГруппа, | Номенклатура.ДополнительныеРеквизиты.( | Ссылка, | НомерСтроки, | Свойство, | Значение, | ТекстоваяСтрока | ), | Номенклатура.Предопределенный, | Номенклатура.ИмяПредопределенныхДанных |ИЗ | Справочник.Номенклатура КАК Номенклатура"; РезультатЗапроса = Запрос.Выполнить(); Объект.ДанныеВыгрузки.Загрузить(РезультатЗапроса.Выгрузить()); Выводит на экран список номенклатуры и все реквизиты Далее подключаю Ексель &НаКлиенте Процедура ВыгрузитьНоменклатуруВExcel(Кнопка) Попытка Попытка // Загрузка объекта Microsoft Excel Состояние("Выгрузка данных из 1С в Microsoft Excel..."); ExcelПриложение = Новый COMОбъект("Excel.Application"); Исключение Сообщить("Ошибка при запуске Microsoft Excel." + Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание); Возврат; КонецПопытки; // Создадим книгу, по умолчанию в ней уже есть листы Книга = ExcelПриложение.WorkBooks.Add(); // Используем первый лист книги Excel Лист = Книга.WorkSheets(1); // Задание рабочему листу имени ИмяЛиста Лист.Name = "Список номенклатуры"; // Сохраним созданную книгу в файл xls Книга.SaveAs("d:\1c\СправочникНоменклатура.xls"); Попытка ExcelПриложение.Quit(); Как выгрузить все это в Эексель файлик? |
|||
1
yzimin
21.12.17
✎
10:04
|
Написать запрос в консоле, сохранить результат в эксель
|
|||
2
Yuri Ro
21.12.17
✎
14:17
|
Начал так делать
Для индекс = 0 по Объект.ДанныеВыгрузки.Количество()-1 цикл стр = Объект.ДанныеВыгрузки[индекс]; Лист.Cells(индекс+1, 1).Value = стр.Код; Лист.Cells(индекс+1, 2).Value = стр.Ссылка; Лист.Cells(индекс+1, 3).Value = стр.Артикул; Лист.Cells(индекс+1, 4).Value = стр.Наименование; но как дохожу до Лист.Cells(индекс+1, 5).Value = стр.ЕдиницаИзмерения; обшибка вылазит так как ЕденицаИзмерения имеет тип СправочникСсылка.ЕдиницыИзмерения |
|||
3
Yuri Ro
21.12.17
✎
14:18
|
Как на клиенте мне к этому обратиться?
|
|||
4
yzimin
21.12.17
✎
14:23
|
ТабличныйДокумент (SpreadsheetDocument)
Записать (Write) Вариант синтаксиса: В файл Синтаксис: Записать(<ИмяФайла>, <ТипФайлаТаблицы>) Параметры: <ИмяФайла> (обязательный) Тип: Строка. Имя файла, в котором сохраняется табличный документ. <ТипФайлаТаблицы> (необязательный) Тип: ТипФайлаТабличногоДокумента. Формат, в котором будет сохранен табличный документ. Значение по умолчанию: MXL. Описание варианта метода: Запись табличного документа в файл. |
|||
5
Yuri Ro
21.12.17
✎
14:39
|
Эээ Это куда? Прошу не пинать тапками, я только начинающий.
|
|||
6
hhhh
21.12.17
✎
14:44
|
| Номенклатура.ЕдиницаИзмерения.Наименование КАК ЕдиницаИзмерения,
|
|||
7
France
21.12.17
✎
15:13
|
сделай как 1 пишет, и не мучай(ся): 1С, форум и себя..
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |