//Перебор листов книги
КолвоЛистов = ex.Sheets.Count();
Для сч=1 ПО КолвоЛистов Цикл
текЛист = ex.WorkSheets(сч);
ИмяЛиста = текЛист.Name;
текЛист.Activate();
Если ИмяЛиста = "Класифікатори" Тогда
Продолжить;
КонецЕсли;
//Перебор на листе
RCount = ex.Cells(1,1).SpecialCells(11).Row;
CCount = ex.Cells(1,1).SpecialCells(11).Column;
Для j = 2 по RCount цикл
Новая = ТабЗагрузки.Добавить();
Для i=2 По CCount Цикл
ТД = СокрЛП(ex.ActiveSheet.Cells(j,i).Value);
Пока СтрНайти(ТД, " ") > 0 Цикл
ТД = СтрЗаменить(ТД, " ", " ");
КонецЦикла;