Загрузка из Excel в 1с

&НаКлиенте
Процедура ВыборФайлаЗавершение(ВыбранныеФайлы, ДополнительныеПараметры) Экспорт
    
    ДиалогВыбораФайла = ДополнительныеПараметры.ДиалогВыбораФайла;
    
    Если (ВыбранныеФайлы <> Неопределено) Тогда
        ЭтаФорма.ИмяФайла = ДиалогВыбораФайла.ПолноеИмяФайла;
    КонецЕсли;
    
КонецПроцедуры


&НаКлиенте
Процедура Загрузить(Команда)
    
    Массив=Новый Массив;
    
    Попытка
        COMОбъект = Новый COMОбъект("Excel.Application");
        Workbook   = COMОбъект.Workbooks.Open(ИмяФайла);
        ExcelЛист  = COMОбъект.Sheets(1);
        ActiveCell = COMОбъект.ActiveCell.SpecialCells(11);
        RowCount = ActiveCell.Row;
        ColumnCount = ActiveCell.Column;    
        
            
    
            Для Строка = 1 По RowCount Цикл   
                Для Колонка = 1 По ColumnCount Цикл
                     Стурктура=Новый Структура;

                    
                    //Значение=ExcelЛист;
                    Значение  = СокрЛП(ExcelЛист.Cells(Строка,1).Value);  //НаименованиеНашегоПрайса
                    Значение2 = СокрЛП(ExcelЛист.Cells(Строка,2).Value);  //НаименованиеПоПоставщику                    
                    КонецЦикла;  
                    Стурктура.Вставить("Номенклатура",Значение);
                    Стурктура.Вставить("ДополнительныйРеквизит",Значение2);
                    Массив.Добавить(Стурктура);
                КонецЦикла;
                ЗаполнитьТабличнуюЧастьТовары(Массив);
                WorkBook.Close();        
    Исключение
        COMОбъект.Quit();
        COMОбъект = 0;
        СообщениеОбОшибке = НСтр("ru = 'Не удалось прочитать данные из файла. Подробности: '")
        + КраткоеПредставлениеОшибки(ИнформацияОбОшибке());
        ВызватьИсключение СообщениеОбОшибке;  
        
    КонецПопытки;    

КонецПроцедуры

&Насервере
Процедура ЗаполнитьТабличнуюЧастьТовары(Массив)
    
    Для Каждого  Эл из Массив цикл 
         Номенклатура=Справочники.Номенклатура.НайтиПоНаименованию(СокрЛП(Эл.Номенклатура),Истина);    
        НоваяСтрока=Объект.Товары.Добавить();
                   НоваяСтрока.Номенклатура=Номенклатура;
                   НоваяСтрока.ДополнительныйРеквизит=Эл.ДополнительныйРеквизит;
    КонецЦикла;
            
КонецПроцедуры