Ошибка при открытии файла Ексель

Делаю обработку, которые считывает данные из файла Ексель, сначала все работало нормально, данные считывались и заполнялись в таблицу значений, потом почему то возникла ошибка при открытии файла Ошибка при вызове метода контекста (Open): Произошла исключительная ситуация (Microsoft Access Database Engine): Неопознанная ошибка 1с 8.3. Подскажите, пожалуйста, в чем может быть проблема?

Код функции:
Функция ПолучитьТЗИзEXCEL(ПутьКФайлу, ИмяНомерСтраницы, Заголовок = Истина, ПерваяСтрока = 0) Экспорт
ИмяНомерСтраницы=1;
ПерваяСтрока = 0;
      ТЗ  = Новый ТаблицаЗначений;

    #Если Клиент Тогда
        Состояние("Подключение к файлу Excel...");
    #КонецЕсли
    //
    Попытка
        Эксель = Новый COMОбъект("Excel.Application");
        Версия = СтрПолучитьСтроку(СтрЗаменить(Эксель.Version, ".", Символы.ПС), 1);
    Исключение
        //СообщениеТекста("Ошибка подключения к "+ПутьКФайлу+" : "+ОписаниеОшибки(),,СтатусСообщения.Важное);
        Возврат ТЗ;
    КонецПопытки;
    //
    Книга = Эксель.WorkBooks.Open(ПутьКФайлу);
    // Выбираем данные запросом из таблицы файла по имени страницы
    Если ТипЗнч(ИмяНомерСтраницы) = Тип("Число")  Тогда
        Лист        = Книга.WorkSheets(ИмяНомерСтраницы);
        ИмяСтраницы = Лист.Name;
    Иначе
        ИмяСтраницы = ИмяНомерСтраницы;
    КонецЕсли;
    //
    // Определим диапазон данных Excel
    ПослЯчейка = СтрЗаменить(Книга.WorkSheets(ИмяСтраницы).Cells(1,1).SpecialCells(11).Address, "$", "");
    //
    Эксель.Application.Quit();
    //
    Эксель  = неопределено;
    Книга   = неопределено;
    Лист    = неопределено;

    // Подлючаемся

    Connection          = Новый COMОбъект("ADODB.Connection");
    Если Версия = "12" ИЛИ Версия = "14" Тогда
        СтрокаПодключения   ="Provider =Microsoft.ACE.OLEDB.12.0;Data Source="+ПутьКФайлу+";Extended Properties=""Excel 12.0 Xml;HDR="+?(Заголовок,"YES","NO")+";IMEX=1""";
    Иначе
        СтрокаПодключения   ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+ПутьКФайлу+";Extended Properties=""Excel 8.0;HDR="+?(Заголовок,"YES","NO")+";IMEX=1""";
    КонецЕсли;

    Попытка
        Connection.Open(СтрокаПодключения);
    Исключение
        //ПолучитьCOMОбъект(ИмяФайла, "Excel.Application");
        Сообщить(ОписаниеОшибки());
        Возврат ТЗ;
    КонецПопытки;

    Command=Новый COMОбъект("ADODB.Command");
    Command.ActiveConnection=Connection;
    Command.CommandText = ?(ПерваяСтрока = 0, "Select * From [" + ИмяСтраницы + "$]", "Select * From [" + ИмяСтраницы + "$A" + ПерваяСтрока + ":" + ПослЯчейка + "]");

    Попытка
        Записи=Command.Execute();
    Исключение
        //Сообщить("Ошибка при выполнении запроса!"+ОписаниеОшибки(), ,СтатусСообщения.ОченьВажное);
        Возврат ТЗ;
    КонецПопытки;

    Для НомерПоля = 0 По Записи.Fields.Count-1 Цикл
        СтрКолонка = Строка(Записи.Fields.Item(НомерПоля).Name);
        СтрКолонка = СтрЗаменить(СтрКолонка,"№","Num");
        НедопустимыеСимволы = " ~`!@""#№$;%^:&?*()-+=/\|.,";
        Для i = 1 По СтрДлина(НедопустимыеСимволы) Цикл
            СтрКолонка = СтрЗаменить(СтрКолонка, Mid(НедопустимыеСимволы, i, 1), "_")
        КонецЦикла;
        ИмяКолонки = СокрЛП(СтрКолонка);
        ТЗ.Колонки.Добавить(ИмяКолонки, , СтрКолонка);
    КонецЦикла;

    Пока НЕ Записи.EOF() Цикл
        НоваяСтрока = ТЗ.Добавить();
        Для НомерПоля = 0 По Записи.Fields.Count-1 Цикл
            НоваяСтрока[НомерПоля] = Записи.Fields(Записи.Fields.Item(НомерПоля).Name).Value;
        КонецЦикла;
        Записи.MoveNext();
    КонецЦикла;

    Command = Неопределено;
    Записи  = Неопределено;

    Возврат ТЗ;

КонецФункции