Имя: Пароль:
1C
1С v8
Не читает файл excel
0 RUR11
 
05.09.14
12:54
Не могу понять почему не открывает фаил, выдает ошибку?

Функция мПрочитатьТабличныйДокументИзExcel(ТабличныйДокумент, ИмяФайла, НомерЛистаExcel = 1) Экспорт
    
    xlLastCell = 11;
    
    ВыбФайл = Новый Файл(ИмяФайла);
    Если НЕ ВыбФайл.Существует() Тогда
        Сообщить("Файл не существует!");
        Возврат Ложь;
    КонецЕсли;
    
    
        Попытка
        Excel = Новый COMОбъект("Excel.Application");
        Excel.WorkBooks.Open(ИмяФайла);
        Состояние("Обработка файла Microsoft Excel...");
        ExcelЛист = Excel.Sheets(1);
    Исключение
        Сообщить("Ошибка. Возможно неверно указан номер листа книги Excel.");
        Возврат ложь;
        
    КонецПопытки;
1 PR
 
05.09.14
12:55
Правильно, завали нас новыми редакциями своего вопроса, переработанными и улучшенными.
2 PR
 
05.09.14
12:56
(1) Вот тут что-то черканули по твоей теме Не открывает фаил excel
3 RUR11
 
05.09.14
12:56
Ну а что поделаешь, тороплюсь)
4 PR
 
05.09.14
12:56
(3) Не торопиться
5 User_Agronom
 
05.09.14
12:57
(1) Ну так выдаёт ошибку или нет?
Как понял, что не читает?
6 RUR11
 
05.09.14
12:58
Да, при открытии файла пишет: "Ошибка. Возможно неверно указан номер листа книги Excel."
7 PR
 
05.09.14
12:59
(5) Да вроде у меня ничего не выдает.
Понял, что не читает, потому что новую ветку заколотил.
Что еще хочешь спросить? Не стесняйся, смелее :))
8 RUR11
 
05.09.14
13:00
Знает, кто как проблему решить?
9 PR
 
05.09.14
13:01
(6) Очень содержательный текст ошибки, да.
Зачем сообщать текст, который знает программа. Что знают двое, то знает свинья, да? :))
10 User_Agronom
 
05.09.14
13:01
(6) >>Ошибка. Возможно неверно указан номер листа книги Excel
Много думал. В чём же тут может быть ошибка? Может стоит
>> ExcelЛист = Excel.Sheets(1)
закомментировать и попробовать?
11 PR
 
05.09.14
13:04
(10) А если бы он в своем Сообщить написал "Ошибка. Возможно неверно установлено время на ваших наручных часах.", то ты бы предложило время на часах проверить? :))
12 RUR11
 
05.09.14
13:05
Нет это не поможит
13 Molinor
 
05.09.14
13:06
Что ОписаниеОшибки() говорит:
14 RUR11
 
05.09.14
13:06
Естественно))
Не понятно в чем может быть ошибка
15 User_Agronom
 
05.09.14
13:08
(11) "Предложил", грамотно писать нужно.

Там три команды, которые могут вызвать исключение:
"создать новый COM-объект", "Открыть книгу" и "Выбрать активный лист".

Предлагаю отключать команды с хвоста, чтобы выяснить на какой же появляется исключение.

Можно то же самое сделать отладчиком, но в данном случае команд мало, поэтому разницы никакой.
16 Apokalipsec
 
05.09.14
13:08
+(13) Исключение
        Сообщить(ОписаниеОшибки());
        Возврат ложь;
17 icrocodile
 
05.09.14
13:18
(0) так должно быть:

Excel = Новый COMObject("Excel.Application");
Book = Excel.WorkBooks.Open(ИмяФайла);
Состояние("Обработка файла Microsoft Excel...");
ExcelЛист  = Book.WorkSheets(НомерЛиста);
18 13_Mult
 
05.09.14
13:34
Excel = Новый COMОбъект("Excel.Application");
Excel.Application.Workbooks.Open(ИмяОбрФайла);
19 RUR11
 
06.09.14
13:25
Все тоже самое(
20 Wobland
 
06.09.14
13:39
(19) тогда попробуй что-нибудь сделать
21 RUR11
 
08.09.14
17:58
Знать бы что)
Программист всегда исправляет последнюю ошибку.