Сообщение на форуме
21 декабря 2017 в 09:52:05
Добрый день. Подскажите пожалуйста
Есть Справочник номенклатура его нужно выгрузить в ексель, стандартная обработка выгрузка загрузка не подходит.
есть такой код:
&НаКлиенте
Процедура тест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();
Как выгрузить все это в Эексель файлик?