Вход | Регистрация

1С:Предприятие ::

Метки: 

Выгрузка Номенклатуры в Эксель с иерархией УТ 11.1

Я
   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();

Как выгрузить все это в Эексель файлик?
 
  Рекламное место пустует
   yzimin
 
1 - 21.12.17 - 10:04
Написать запрос в консоле, сохранить результат в эксель
   Yuri Ro
 
2 - 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 = стр.ЕдиницаИзмерения; обшибка вылазит так как ЕденицаИзмерения имеет тип
СправочникСсылка.ЕдиницыИзмерения
   Yuri Ro
 
3 - 21.12.17 - 14:18
Как на клиенте мне к этому обратиться?
   yzimin
 
4 - 21.12.17 - 14:23
ТабличныйДокумент (SpreadsheetDocument)
Записать (Write)
Вариант синтаксиса: В файл

Синтаксис:

Записать(<ИмяФайла>, <ТипФайлаТаблицы>)
Параметры:

<ИмяФайла> (обязательный)

Тип: Строка.
Имя файла, в котором сохраняется табличный документ. 
<ТипФайлаТаблицы> (необязательный)

Тип: ТипФайлаТабличногоДокумента. 
Формат, в котором будет сохранен табличный документ.
Значение по умолчанию: MXL.
Описание варианта метода:

Запись табличного документа в файл.
   Yuri Ro
 
5 - 21.12.17 - 14:39
Эээ Это куда? Прошу не пинать тапками, я только начинающий.
   hhhh
 
6 - 21.12.17 - 14:44
| Номенклатура.ЕдиницаИзмерения.Наименование КАК ЕдиницаИзмерения,
   France
 
7 - 21.12.17 - 15:13
сделай как 1 пишет, и не мучай(ся): 1С, форум и себя..


Список тем форума
Рекламное место пустует   Рекламное место пустует
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.
Тема не обновлялась длительное время, и была помечена как архивная. Добавление сообщений невозможно.
Но вы можете создать новую ветку и вам обязательно ответят!
Каждый час на Волшебном форуме бывает более 2000 человек.
Рекламное место пустует