И опять Excel 2016. Индекс находится за границами массива

Excel = Новый COMОбъект("Excel.Application");
    Excel.Application.Workbooks.Open(ИмяФайлаНаСервере);
    Excel.DisplayAlerts = 0;
    ExcelSheet = Excel.Sheets(1);
    ВсегоСтрок = ExcelSheet.Cells.SpecialCells(11).Row;
    ВсегоКолонок = ExcelSheet.Cells.SpecialCells(11).Column;
    ExcelSheetRange = ExcelSheet.Range(ExcelSheet.Cells(НачСтрока, 1), ExcelSheet.Cells(КонСтрока, ВсегоКолонок));
    Данные = ExcelSheetRange.Value.Выгрузить();
    Попытка
//Остановка начинается с первой прочинанной колонки
        Артикулы         = ?(кАртикул <= 0, Неопределено, Данные[кАртикул - 1]);;
        Наименования     = ?(кНаименование <= 0, Неопределено, Данные[кНаименование - 1]);
        ШтрихКод         = ?(кШтрихКод <= 0, Неопределено, Данные[кШтрихКод - 1]);
        Единицы             = ?(кЕдИзмерения <= 0, Неопределено, Данные[кЕдИзмерения - 1]);
        СтавкиНДС         = ?(кСтавкаНДС <= 0, Неопределено, Данные[кСтавкаНДС - 1]);
        Количества         = ?(кКоличество <= 0, Неопределено, Данные[кКоличество - 1]);
        Цены             = ?(кЦена <= 0, Неопределено, Данные[кЦена - 1]);
        Сумма             = ?(кСумма <= 0, Неопределено, Данные[кСумма - 1]);
    Исключение
        Сообщить(ОписаниеОшибки());
        Данные = Неопределено;
    КонецПопытки; 
    Объект.ДанныеЗагрузки.Очистить();
    Для Сч = 0 По КонСтрока - НачСтрока Цикл //- 1 Цикл
        Если Данные = Неопределено Тогда
            Прервать;
        КонецЕсли;     
        СтрокаТЧ = Новый Структура("Артикул, Наименование, ШтрихКод, ЕдиницаИзФайла, СтавкаНДСИзФайла, Количество, Цена, Сумма"); 
        СтрокаТЧ.Артикул                 = ?(Артикулы = Неопределено, "", СокрЛП(Артикулы[Сч]));
        СтрокаТЧ.Наименование             = ?(Наименования = Неопределено, "", СокрЛП(Наименования[Сч]));
        СтрокаТЧ.ШтрихКод                 = ?(ШтрихКод = Неопределено, "", СокрЛП(ШтрихКод[Сч]));
        СтрокаТЧ.ЕдиницаИзФайла         = ?(Единицы = Неопределено, "", СокрЛП(Единицы[Сч]));
        СтрокаТЧ.СтавкаНДСИзФайла         = ?(СтавкиНДС = Неопределено, "", СокрЛП(СтавкиНДС[Сч]));
        СтрокаТЧ.Количество             = ?(Количества = Неопределено, "", ЧисткаСтроки(Количества[Сч]));
        СтрокаТЧ.Цена                     = ?(Цены = Неопределено, "", Цены[Сч]);
        СтрокаТЧ.Сумма                     = ?(Сумма = Неопределено, "", Сумма[Сч]);
        Если НЕ ЗначениеЗаполнено(СтрокаТЧ.Артикул) И НЕ ЗначениеЗаполнено(СтрокаТЧ.Наименование) Тогда
            Продолжить;
        КонецЕсли; 
        СтрокаЗагрузки = Объект.ДанныеЗагрузки.Добавить();
        ЗаполнитьЗначенияСвойств(СтрокаЗагрузки, СтрокаТЧ);
    КонецЦикла; 
    Данные = Неопределено;
    ExcelSheetRange = Неопределено;
    ВсегоСтрок = Неопределено;
    ExcelSheet = Неопределено;
    Excel.Application.Workbooks(1).Close();
    Excel.Quit();
    Excel = Неопределено;