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

12.03.15

✎

07:27

Код:
&НаСервере
Процедура ВыгрузитьНаСервере()

    ТзПодразделенийОрганизации = Объект.ТаблицаSMD;

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

    Книга = Эксель.WorkBooks.Add();

    Лист = Книга.WorkSheets(1);
    Лист = Книга.Sheets.Add();

    НомерСтроки = 1;
    Для Каждого Строка ИЗ Объект.ТаблицаSMD Цикл
        Лист.Cells(НомерСтроки, 1).Value = Строка.Designator;
        Лист.Cells(НомерСтроки, 2).Value = Строка.MyData;
        Лист.Cells(НомерСтроки, 3).Value = Строка.Номенклатура;
        Лист.Cells(НомерСтроки, 4).Value = Строка.Quantity;
        НомерСтроки = НомерСтроки + 1;
    КонецЦикла;

    Попытка
        Книга.SaveAs("C:\1c");
    Исключение
        Сообщить(ОписаниеОшибки()+" Файл не сохранен!");
    КонецПопытки;

    Эксель.Application.Quit();

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

Почемуто выдает ошибку : {Справочник.СпецификацияТК.Форма.ФормаЭлемента.Форма(194)}: Ошибка при установке значения атрибута контекста (Value)
        Лист.Cells(НомерСтроки, 3).Value = Строка.Номенклатура;
по причине:
Произошла исключительная ситуация (0x800a03ec)
Произошла исключительная ситуация (0x800a03ec)
Кто знает в чем дело?

1 Лодырь

12.03.15

✎

07:29

подозреваю что эксель не очень хочет кушать в качестве значения ссылку на номенклатуру.

2 ShoGUN

12.03.15

✎

07:32

(0) А нафига так делать-то? Сделай обычный отчёт, сохрани в формате Excel.

3 bolobol

12.03.15

✎

07:34

(0) Подозреваю, что знает в чём дело только отладчик, но он не "кто", а "что", но - помогает.
Какое значение передаётся в ячейку в момент возникновения ошибки?

4 Олеся999

12.03.15

✎

07:35

(2) Мне нужно чтобы выгрузка была по Событию нажатия кнопки

5 ShoGUN

12.03.15

✎

07:36

(4) И что? Сформируй обычный отчёт в ТабличныйДокумент, сохрани его в Excel программно.

6 su_mai

12.03.15

✎

07:40

http://g.zeos.in/?q=0x800a03ec

7 Олеся999

12.03.15

✎

07:43

Тормозится на Лист.Cells(НомерСтроки, 3).Value = Строка.Номенклатура;

Коментирую эту строку ://Лист.Cells(НомерСтроки, 3).Value = Строка.Номенклатура; выгружает всё отлично:)
http://lvkr.ru/f/UgkGRF/1280.jpg

8 ДенисЧ

12.03.15

✎

07:44

Тормозится на Лист.Cells(НомерСтроки, 3).Value = Строка.Номенклатура.Наименование;
попробуй

9 Олеся999

12.03.15

✎

07:48

(8) Круто помогло ! :) спасибо :)))

10 bolobol

12.03.15