Имя: Пароль:
1C
1С v8
Выгрузка Номенклатуры в Эксель с иерархией УТ 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С, форум и себя..
Здесь можно обсудить любую тему при этом оставаясь на форуме для 1Сников, который нужен для работы. Ymryn