1с не хочет перебирать листы Эксель.
На моём ПК работает, а на клиентском не хочет. Ошибок не выдаёт.

Код:
Excel.Workbooks.Open(ПутьКФайлу);
Для Каждого Лист Из Excel.Sheets Цикл
КонецЦикла;


Код
ExcelЛист = Excel.Sheets(1);
Тоже не работает.

Windows 10
Office 2013

в сказку попал

(0) Сообщите, когда заработает

Excel.sheets.Count выдаёт 1.

Sheets относится к Workbooks а не Excel

Попытка
        Ехсел = Новый COMОбъект("Excel.Application");
    Исключение
        Сообщить("Ошибка. Возможно на компьютере не установлено приложение Excel.");
        Возврат Ложь;
    КонецПопытки;

    Книга = Ехсел.Workbooks;
    Попытка
        Книга.Open(ИмяФайла);
        Состояние("Обработка файла Microsoft Excel...");
    Исключение
        Возврат Ложь;
    КонецПопытки;

    КолвоЛистов = Ехсел.Sheets.Count();

    ИмяАктивногоЛиста = Ехсел.ActiveSheet.name;
    Если КолвоЛистов = 1 Тогда
        Лист = КолвоЛистов;
    Иначе

        спЛист = Новый СписокЗначений;
        спЛист.Добавить(ИмяАктивногоЛиста);
        Для сч = 1 По КолвоЛистов Цикл
            Если Ехсел.Sheets(сч).name = ИмяАктивногоЛиста Тогда
                Продолжить;
            КонецЕсли;
            спЛист.Добавить(Ехсел.Sheets(сч).name);
        КонецЦикла;
        зн = ИмяАктивногоЛиста;
        НужныйЛист = спЛист.ВыбратьЭлемент("Выберите нужный лист для загрузки", зн);
        Лист = НужныйЛист.Значение;
    КонецЕсли;