|
Добавление значения в ячейку 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
|
|