Выгрузка в Excel из 1С

[Dethmontt]

Книга = Эксель.WorkBooks.Add(); //А это по твоему ЧТО????????????????????????????

[v_kuzmin]

Книга = Эксель.WorkBooks.Add(); //А это по твоему ЧТО????????????????????????????

так книжка создается...т.е когда я создаю ком объект создается док экселя и я ещё раз создаю книгу?

[Dethmontt]

Да или используешь книгу которая создается по умолчанию...

[v_kuzmin]

Да или используешь книгу которая создается по умолчанию...

но если не создавать книжку он пишет что переменная книга не определена и не выбмрается рабочий лист в книге.

[has]

а через активворкбук че не работает?

[v_kuzmin]

а через активворкбук че не работает?

я такого метода ни где не видел.. поэтому и не пробовал.

[Dethmontt]

Книга=Эксель.Workbooks;

[v_kuzmin]

Книга=Эксель.Workbooks;

ничего не работает с этим.Вы уверены что такой метод существует?

делаю всё по старому

Книга = Эксель.WorkBooks.Add();
Лист = Книга.WorkSheets(1);
Лист = Книга.Sheets.Add();

тока убрал из цикла и больше не создаётся "левая" книга.

[v_kuzmin]

Цикл. По документам. Перебираем все документы по одному. И для каждого документа создаем лист. В цикле по документам для каждого текущего документа создаем лист.

***********
ВыборкаДокументов= Документы.Задание.Выбрать();   
Лист = Книга.Sheets.Add();
Пока ВыборкаДокументов.Следующий() цикл
********************
не создаётся лист...

[sergejK74]

Простой пример, чтобы закрыть тему

Код Выделить Развернуть

&НаСервере
Процедура ВыгрузитьВЭксель()     
Попытка
Эксель = Новый COMОбъект("Excel.Application")
Исключение
Сообщить(ОписаниеОшибки() + " Программа Exсel не установлена на данном компьютере!");
Возврат;
КонецПопытки;

ВыборкаДокументов= Документы.ПоступлениеТоваров.Выбрать();
Книга=Эксель.Workbooks.Add();

Пока ВыборкаДокументов.Следующий() цикл
Лист = Книга.Sheets.Add();
Лист.Name  = Строка(ВыборкаДокументов.Номер);
Для Каждого Строка из ВыборкаДокументов.Товары Цикл
Лист.Cells(Строка.НомерСтроки , 1).Value = Строка(Строка.Номенклатура.Наименование);
КонецЦикла;
КонецЦикла;   

Попытка
Книга.SaveAs("B:\kuzmin.xls");
Исключение
Сообщить(ОписаниеОшибки()+" Файл не сохранен!");
Возврат;
КонецПопытки;
Эксель.Application.Quit();

КонецПроцедуры