Вход | Регистрация


Загрузка из эксель

Загрузка из эксель
Я
   Mikhail2014
 
12.10.16 - 12:38
Привет! Делаю на управляемых формах загрузку из эксель, создал com-объект, пр попытке открыть книгу выдает неизвестную ошибку (так и пишет - "Неизвестная ошибка!").

Код:

Excel = Новый COMОбъект("Excel.Application");
Excel.DisplayAlerts = 0;
Excel.Application.WorkBooks.Open(объект.ПутьКФайлу);
Excel.Sheets(1).Select();

Валится на 3-ей строке, что я делаю не так?
 
 
   Mikhail2014
 
1 - 12.10.16 - 12:39
Делаю на клиенте, 1с запущена с правами администратора.
   Mikhail2014
 
2 - 12.10.16 - 12:39
Пробовал так:

Excel.WorkBooks.Open(объект.ПутьКФайлу);

Тоже самое.
   Fragster
 
3 - 12.10.16 - 12:39
(0) криво скопипастил
   Fragster
 
4 - 12.10.16 - 12:40
а ошибку мы должны угадать?
   Mikhail2014
 
5 - 12.10.16 - 12:40
Просто пишет "Неизвестная ошибка!", без описания.
   DailyLookingOnASunse
 
6 - 12.10.16 - 12:42
Процедура на сервере или на клиенте?
   Жан Пердежон
 
7 - 12.10.16 - 12:42
Excel.WorkBooks.Open(объект.ПутьКФайлу);
   Fragster
 
8 - 12.10.16 - 12:42
(5) это по нажатию на кнопку "подробно" так?
   Mikhail2014
 
9 - 12.10.16 - 12:43
(7) Эмм, так и есть.
   Mikhail2014
 
10 - 12.10.16 - 12:43
(8) Да
 
 Рекламное место пустует
   Mikhail2014
 
11 - 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 нет зависшего?
   Mikhail2014
 
14 - 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 = неопределено;
    
КонецПроцедуры
   Mikhail2014
 
15 - 12.10.16 - 12:52
(13) Нет, все поотключал.
   Mikhail2014
 
16 - 12.10.16 - 12:53
(15) Ну в смысле все лишние процессы Excel завершил.

Список тем форума
Рекламное место пустует  Рекламное место пустует
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.
Тема не обновлялась длительное время, и была помечена как архивная. Добавление сообщений невозможно.
Но вы можете создать новую ветку и вам обязательно ответят!
Каждый час на Волшебном форуме бывает более 2000 человек.
Рекламное место пустует