Примерный программный код:
Попытка
Эксель = Новый COMОбъект("Excel.Application");
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
Книга = Эксель.Workbooks.Open(Файл);
Лист = Книга.Worksheets(1);
ActiveCell = Лист.Cells(1,1).SpecialCells(11);
КоличествоСтрок = ActiveCell.Row;
//КоличествоКолонок = ActiveCell.Column;
для сч = 1 по КоличествоСтрок Цикл
Код = Лист.Cells(сч, 3).Value;
Если Код=Неопределено Тогда
Продолжить;
КонецЕсли;
Если Лист.Cells(сч, 4).Value = Неопределено Тогда
КолОст = 0;
Иначе
КолОст = Число(Лист.Cells(сч, 4).Value);
КонецЕсли;
Если Лист.Cells(сч, 5).Value = Неопределено Тогда
Кол = КолОст;
Иначе
Кол = число(Лист.Cells(сч, 5).Value);
КонецЕсли;
Если Кол = Неопределено Тогда
Продолжить;
КонецЕсли;
КонецЦикла;
Книга.Close(Ложь);
Эксель.quit();
Попытка
Эксель = Новый COMОбъект("Excel.Application");
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
Книга = Эксель.Workbooks.Open(Файл);
Лист = Книга.Worksheets(1);
ActiveCell = Лист.Cells(1,1).SpecialCells(11);
КоличествоСтрок = ActiveCell.Row;
//КоличествоКолонок = ActiveCell.Column;
для сч = 1 по КоличествоСтрок Цикл
Код = Лист.Cells(сч, 3).Value;
Если Код=Неопределено Тогда
Продолжить;
КонецЕсли;
Если Лист.Cells(сч, 4).Value = Неопределено Тогда
КолОст = 0;
Иначе
КолОст = Число(Лист.Cells(сч, 4).Value);
КонецЕсли;
Если Лист.Cells(сч, 5).Value = Неопределено Тогда
Кол = КолОст;
Иначе
Кол = число(Лист.Cells(сч, 5).Value);
КонецЕсли;
Если Кол = Неопределено Тогда
Продолжить;
КонецЕсли;
КонецЦикла;
Книга.Close(Ложь);
Эксель.quit();