|
Загрузка из эксель | ☑ | ||
---|---|---|---|---|
0
Mikhail2014
12.10.16
✎
12:38
|
Привет! Делаю на управляемых формах загрузку из эксель, создал com-объект, пр попытке открыть книгу выдает неизвестную ошибку (так и пишет - "Неизвестная ошибка!").
Код: Excel = Новый COMОбъект("Excel.Application"); Excel.DisplayAlerts = 0; Excel.Application.WorkBooks.Open(объект.ПутьКФайлу); Excel.Sheets(1).Select(); Валится на 3-ей строке, что я делаю не так? |
|||
1
Mikhail2014
12.10.16
✎
12:39
|
Делаю на клиенте, 1с запущена с правами администратора.
|
|||
2
Mikhail2014
12.10.16
✎
12:39
|
Пробовал так:
Excel.WorkBooks.Open(объект.ПутьКФайлу); Тоже самое. |
|||
3
Fragster
гуру
12.10.16
✎
12:39
|
(0) криво скопипастил
|
|||
4
Fragster
гуру
12.10.16
✎
12:40
|
а ошибку мы должны угадать?
|
|||
5
Mikhail2014
12.10.16
✎
12:40
|
Просто пишет "Неизвестная ошибка!", без описания.
|
|||
6
DailyLookingOnA Sunse
12.10.16
✎
12:42
|
Процедура на сервере или на клиенте?
|
|||
7
Жан Пердежон
12.10.16
✎
12:42
|
Excel.WorkBooks.Open(объект.ПутьКФайлу);
|
|||
8
Fragster
гуру
12.10.16
✎
12:42
|
(5) это по нажатию на кнопку "подробно" так?
|
|||
9
Mikhail2014
12.10.16
✎
12:43
|
(7) Эмм, так и есть.
|
|||
10
Mikhail2014
12.10.16
✎
12:43
|
(8) Да
|
|||
11
Mikhail2014
12.10.16
✎
12:45
|
(8) Ну и стандартную шапку - ошибка при вызове метода Excel.WorkBooks.Open(объект.ПутьКФайлу);
|
|||
12
Жан Пердежон
12.10.16
✎
12:46
|
всю процедуру показывай.
доступ есть к файлу? |
|||
13
Жан Пердежон
12.10.16
✎
12:50
|
Excel.DisplayAlerts = 1; пробовал? процесса excel нет зависшего?
|
|||
14
Mikhail2014
12.10.16
✎
12:52
|
(12)
&НаКлиенте Процедура СоздатьСторно(Команда) Excel = Новый COMОбъект("Excel.Application"); Excel.DisplayAlerts = 0; Excel.Application.WorkBooks.Open(объект.ПутьКФайлу); Excel.Sheets(1).Select(); ФайлСтрок = Excel.Cells.CurrentRegion.Rows.Count; МассивСтрок = новый Массив; для нс = 2 по ФайлСтрок цикл новаястрока = новый массив; новаястрока.Добавить(сокрлп(Строка(Excel.Cells(НС, 1).Value))); новаястрока.Добавить(сокрлп(Строка(Excel.Cells(НС, 2).Value))); новаястрока.Добавить(Excel.Cells(НС, 3).Value); новаястрока.Добавить(Excel.Cells(НС, 4).Value); МассивСтрок.Добавить(новаястрока); конеццикла; СоздатьСторноНаСервере(МассивСтрок); Excel.Quit(); Excel = неопределено; КонецПроцедуры |
|||
15
Mikhail2014
12.10.16
✎
12:52
|
(13) Нет, все поотключал.
|
|||
16
Mikhail2014
12.10.16
✎
12:53
|
(15) Ну в смысле все лишние процессы Excel завершил.
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |