|
Добавление значения в ячейку 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
|
| Форум | Правила | Описание | Секции | Поиск |