0
S1204
28.09.11
✎
12:49
|
пишу так:
Спр=СоздатьОбъект("Справочник.Товары");
Эксель=СоздатьОбъект("Excel.Application");
Эксель.Caption="ПрайсЛист";
Книга_=Эксель.Workbooks;
Книга=Книга_.Add();
Эксель.cells(1,1).Value="Прайс лист на :"+ТекущееВремя();
Эксель.cells(2,1).Value="Товар";
Эксель.cells(2,2).Value="Картинка";
ТекСтрока=3;
Спр.ВыбратьЭлементы();
Пока Спр.ПолучитьЭлемент()=1 Цикл
Эксель.cells(ТекСтрока,1).Value=СокрЛП(Спр.Наименование);
Если СтрДлина(СокрЛП(Спр.Путь))>0 Тогда
Если ФС.СуществуетФайл(СокрЛП(Спр.Путь))=1 Тогда
Эксель.Cells(ТекСтрока,2).Select();
Эксель.Pictures.Insert(СокрЛП(Спр.Путь)).Select();
КонецЕсли;
КонецЕсли;
ТекСтрока=ТекСтрока+1;
КонецЦикла;
Эксель.Visible=1;
Но выдает ошибку
Поле агрегатного объекта не обнаружено (Pictures)
|
|