Добрый день, пытаюсь загрузить из экселя список документов, получаю ошибку поле номер не уникально.

ксель = Новый COMОбъект("Excel.Application");
    Книга = Эксель.WorkBooks.Open(ИмяФайла);
    Лист = Книга.WorkSheets(1);
    ВсегоСтрок = Лист.Cells(1,1).SpecialCells(11).Row;
    
    МассивДанных = Новый Массив;
        
    ВсегоКолонок = Лист.Cells(1,1).SpecialCells(11).Column;
    ВсегоСтрок = Лист.Cells(1,1).SpecialCells(11).Row;
    
    Для Сч = 2 по ВсегоСтрок Цикл
        
        //Создаем структуру для текущей строки
        Строка = Новый Структура;
        Для Сч2 = 1 по ВсегоКолонок Цикл
             Строка.Вставить("Колонка"+Строка(Сч2),Лист.Cells(Сч,Сч2).Value);
        КонецЦикла;
        
        МассивДанных.Добавить(Строка);
        КонецЦикла;
        Номер              = СокрЛП(Лист.Cells(Сч2, 2).Value);
        ДатаДок              = СокрЛП(Лист.Cells(Сч2, 3).Value);
        Сумма              = СокрЛП(Лист.Cells(Сч2, 4).Value);
        Организация          = СокрЛП(Лист.Cells(Сч2, 9).Value);
        КассаККМ          = СокрЛП(Лист.Cells(Сч2, 5).Value);
           RegExp = Новый COMОбъект("VBScript.RegExp");
           RegExp.IgnoreCase = Истина; //Игнорировать регистр
           RegExp.Global = Истина; //Поиск всех вхождений шаблона
           RegExp.MultiLine = Истина; //Многострочный режим
           RegExp.Pattern = "[^0-9]"; // отбор только чисел
             ДатаДокументаИсправленная = RegExp.Replace(ДатаДок,"");
           Год = Прав(ДатаДокументаИсправленная,4);
           Месяц = Сред(ДатаДокументаИсправленная,3,2);
           День  = Лев(ДатаДокументаИсправленная,2);
           ДатаВерная = Год+Месяц+День;
           ДатаДокумента  = Дата(ДатаВерная);
        
        
        
        

    Для Каждого Элемент Из МассивДанных Цикл
        ПКО=Документы.ПриходныйКассовыйОрдер.СоздатьДокумент();      
        ПКО.ХозяйственнаяОперация  = Перечисления.ХозяйственныеОперации.ПоступлениеДенежныхСредствИзКассыККМ;
        ПКО.Номер    = Элемент.Колонка2;
        ПКО.Дата     = ДатаДокумента;
        ПКО.Касса    = Справочники.Кассы.НайтиПоНаименованию(КассаККМ);
        ПКО.КассаККМ = Справочники.КассыККМ.НайтиПоНаименованию(КассаККМ);
        ПКО.Организация = Справочники.Организации.НайтиПоНаименованию(Организация);
        
        ПКО.СуммаДокумента = Сумма;
        ПКО.Записать();
    КонецЦикла;
Вот код, не пойму что не правильно, ведь должен обходить все элементы.

Такой номер уже есть в базе.

или вызывай ОбновитьНумерациюОбъектов()

(2) СП: Данный метод разрешено вызывать только администратору системы.

(1) такое впечатление, что пытается записать один и тот же элемент.

(1) текст ошибки понятен, только документов нет ни единого

(5) смотри дубли в файле

(6) нет там дублей, проверил уже

(7) тогда пользуйся отладкой

(0) зачем эта возня с COMОбъект? Давно уже ТабличныйДокумент умеет открывать и читать Excel, даже на разных листах

Дикая дичь. код явно копипаста откуда-от
//ДатаВерная = Год+Месяц+День; - полный бред
ДатаДокумента  = Дата(Год,День,Месяц);
вызывать регэксп в цикле тоже не нужно

(10) Он не в цикле как раз.

(0) и хде у тебя " Для Сч = 2 по ВсегоСтрок Цикл" Закрвается этот цикл?

(0) а номер и прочие реквизиты без цикла и один раз рассчитываются? Ну круто, че.

(0) а нет, тут чудесатее номер не номер,
"
       Строка = Новый Структура;
       Для Сч2 = 1 по ВсегоКолонок Цикл
             Строка.Вставить("Колонка"+Строка(Сч2),Лист.Cells(Сч,Сч2).Value);
        КонецЦикла;
"

д.б.
Строка.Вставить("Колонка"+Сч2,Лист.Cells(Сч,Сч2).Value);

А то у тебя  нет колонка2

(0) фраза в цикле не правильная, "Колонка" + Сч2, а не "Колонка" + Строка(сч2)

(13) Да уже допер)

Мои поздравления ! ;)))

(17) Спасибо))