Имя: Пароль:
1C
1С v8
Добавление значения в ячейку excel (ошибка)
0 SeeWorld
 
10.08.12
10:23
Всем привет! Возникает ошибка и не добавляется значение в ячейку экселя.  

Процедура Выгрузить()
   Таб.НоваяКолонка("Номенклатура");
   Таб.НоваяКолонка("Количество");
   Таб.НоваяКолонка("Транспорт");
   Таб.НоваяКолонка("Единицы");
   Попытка
               Эксель = СоздатьОбъект("Excel.Application");
               Исключение
                   Сообщить(ОписаниеОшибки() + "Программа Excel не установлена на данном компьютере!");
               Возврат;
   КонецПопытки;
   Эксель.Visible = 1;        
   Эксель.Caption = "Наряд на работы";        
   Книга = Эксель.Workbooks.Add();
   Лист = Книга.Worksheets(1);        
   СписДок = СоздатьОбъект("Документ.НарядНаРаботы");
   СписДок.ВыбратьДокументы(НачДата, КонДата );
   Пока СписДок.ПолучитьДокумент()=1 Цикл
       СтолбецЭк = 0;
       СписДок.ВыбратьСтроки();
       Пока СписДок.ПолучитьСтроку() = 1 Цикл
           СтолбецЭк = СтолбецЭк + 1;
           row = row + 1;
           Лист.Cells(row,1).Value = Строка(СписДок.Номенклатура); //ОШИБКА
           //Таб.НоваяСтрока();
           //Таб.Транспорт = СписДок.Транспорт;
           //Таб.Номенклатура = СписДок.Номенклатура;
           //Таб.Количество = СписДок.Количество;
           //Таб.Единицы = СписДок.Единица;
           
               
       КонецЦикла;
   КонецЦикла;
   Попытка
       Книга.SaveAs("D:\");
           Исключение
               Сообщить(ОписаниеОшибки() + " Файл не сохранен!");
           Возврат;
   КонецПопытки;
КонецПроцедуры
1 Happy Bear
 
10.08.12
10:24
row не инициализирован
2 SeeWorld
 
10.08.12
10:28
Пробовал не работает.
3 maxxxl-ms
 
10.08.12
10:31
Во всех ошибках виновата бухающая Лена!!!:D:D:D:D:D:D:D:D
4 0Mint
 
10.08.12
10:33
v7 поменяй на v8.
5 SeeWorld
 
10.08.12
10:35
Happy Bear спасибо! Все получилось)
6 SeeWorld
 
10.08.12
10:48
v8 поменяй на v7)
7 SeeWorld
 
10.08.12
10:48
Забыл выставить v7