|
Работа с Excel | ☑ | ||
---|---|---|---|---|
0
GrandOpera
25.05.16
✎
20:34
|
При считывании документа Excel из 10 строк в последнюю пустую колонку записывать наименование и код первых выбранных 10- ти номенклатур.
я примерно реализовал так , но не правильно: &НаСервере Процедура Команда1НаСервере() Попытка Ex = Новый COMObject("Excel.Application"); Исключение Сообщить(ОписаниеОшибки()); Возврат; КонецПопытки; Книга = Ex.WorkBooks.Open("F:\1с\1с.xlsx"); //Ex.Visible = 1; Лист = Книга.WorkSheets(1); ВсегоКолонок = Лист.Cells(1,1).SpecialCells(11).Column; ВсегоСтрок = Лист.Cells(1,1).SpecialCells(11).Row; для Строка = 1 по ВсегоСтрок цикл для Колонка = 1 по ВсегоКолонок цикл //не знаю что сюда вписать КонецЦикла; КонецЦикла; КонецПроцедуры |
|||
1
GrandOpera
25.05.16
✎
20:49
|
up
|
|||
2
mikecool
25.05.16
✎
20:52
|
Лист.Cells(Строка,Колонка).Value или Text
|
|||
3
mikecool
25.05.16
✎
20:53
|
я вот с другой фигней столкнулся
читаю олей в ТЗ, если в первой строке тип в ячейке дата, а во второй - общий, то 1с ругается ошибкой :( видимо типизирование колонки тз происходит |
|||
4
GrandOpera
25.05.16
✎
20:53
|
(2) там value мне необходимо:
При считывании документа Excel из 10 строк в последнюю пустую колонку записывать наименование и код первых выбранных 10- ти номенклатур. |
|||
5
mikecool
25.05.16
✎
20:55
|
(4) тогда
ист.Cells(Строка,ВсегоКолонок + 1).Value = Номенклатура |
|||
6
mikecool
25.05.16
✎
20:58
|
для Строка = 1 по ВсегоСтрок цикл
Лист.Cells(Строка,ВсегоКолонок + 1).Text = Номенклатура.Наименование; Лист.Cells(Строка,ВсегоКолонок + 2).Text = Номенклатура.Код; КонецЦикла; |
|||
7
mikecool
25.05.16
✎
20:58
|
+6 ну и получать нужную номенклатуру в этом цикле
|
|||
8
GrandOpera
26.05.16
✎
21:56
|
Я вот так сделал но он не работает
&НаСервере Процедура Команда1НаСервере() Попытка Эксель = Новый COMObject("Excel.Application"); Исключение Сообщить(ОписаниеОшибки() + " Программа Exсel не установлена на данном компьютере!"); Возврат; КонецПопытки; Книга = Эксель.WorkBooks.Open("F:\1с\1с.xlsx"); Лист = Книга.WorkSheets(1); Массив = Новый Массив; Для Код = 1 по 2 Цикл Для Наим = 1 по 10 Цикл Значение = Лист.Cells(Код, Наим).Value; Массив.Добавить(Значение); КонецЦикла; КонецЦикла; КонецПроцедуры |
|||
9
Fram
26.05.16
✎
22:53
|
Если не ошибаюсь, сначала строка указывается при работе с эксельными таблицами
|
|||
10
Fram
26.05.16
✎
22:56
|
покажи хоть таблицу, а то из (0) нифига непонятно
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |