Excel               = Новый COMОбъект("Excel.Application");
   Excel.DisplayAlerts = 0;
   ExcelBooks          = Excel.Workbooks.Open(ВыбФайл.ПолноеИмя);
   Excel.ActiveWorkbook.RunAutoMacros(1);
   ТаблицаНомеров      = Новый ТаблицаЗначений;
   ТаблицаНомеров.Колонки.Добавить("МодельФайла");
   
   Для КолВаЛистов = 1 По Excel.Sheets.Count Цикл
       ОбработкаПрерыванияПользователя();
       
       ТекущийЛист      = Excel.Sheets(КолВаЛистов);
       ИмяТекущегоЛиста = ExcelBooks.Sheets(КолВаЛистов).Name;
       ФайлСтрок        = ТекущийЛист.Cells(1,1).SpecialCells(11).Row;
       ФайлКолонок      = ТекущийЛист.Cells(1,1).SpecialCells(11).Column;
       
       Для Строка = 2 По ФайлСтрок Цикл
           КодПроизводителя = СокрЛП(Excel.Cells(Строка, 4).Value);
           СтрПоиска        = ТаблицаСоответствия.Найти(КодПроизводителя, "МодельФайла");
           Если СтрПоиска = Неопределено Тогда
               СтрТабл             = ТаблицаНомеров.Добавить();
               СтрТабл.МодельФайла = КодПроизводителя;
           КонецЕсли;
       КонецЦикла;
       
   КонецЦикла;
   ExcelBooks.Close();

В файле эксель содержится 4 листра, данным кодом у меня 4 раза считывается первый лист, а не пробегается по всем 4ем листам, как сделать чтобы пробегалось по всем 4 листам?

КодПроизводителя = СокрЛП(Excel.Cells(Строка, 4).Value);

(0) что возвращает Excel.Sheets.Count?

вместо

Для КолВаЛистов = 1 По Excel.Sheets.Count Цикл

нужно

Для КолВаЛистов = 1 По ExcelBooks.Sheets.Count Цикл

+(3) листы к книге относятся, а не к экселю