Имя: Пароль:
1C
1С v8
Подскажите, как вставить картинку при выводе в excel
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)
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс