Загрузка из Excel в справочники Сотрудники и Должности, самописная конфигурация 1С 8.3

Перем Excel;

&НаКлиенте
Процедура ВыборФайлаExcelНачалоВыбора(Элемент, СтандартнаяОбработка)
        ВыборФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
             ВыборФайла.Фильтр = "Файлы Excel (*.xls)|*.xls|";
    Если ВыборФайла.Выбрать() Тогда
        имяФайла = ВыборФайла.ПолноеИмяФайла;
    Иначе
        Предупреждение("Необходимо выбрать файл...");    
        Возврат;
    КонецЕсли; 
КонецПроцедуры
    
 &НаКлиенте
 Процедура КнопкаВыполнитьНажатие(Кнопка)
     ЗагрузкаСервер();
 КонецПроцедуры
 
 &НаСервере
 Процедура ЗагрузкаСервер();
    Excel = Новый ComObject("Excel.Application");
    Excel.Visible = 0;
    ExcelWorkBooks = Excel.WorkBooks;
    ExcelObject = ExcelWorkBooks.Open(имяФайла);
    Лист = ExcelObject.Sheets(1);
    инт=3;
 Пока Не ПустаяСтрока(сокрЛП(Лист.Cells(инт,1).Text)) Цикл
 Если не ПустаяСтрока(сокрЛП(Лист.Cells(инт,2).Text)) Тогда
               пДол = сокрЛП(Лист.Cells(инт,2).Text);
             пКод = сокрЛП(Лист.Cells(инт,1).Text);
             НаименДол = Справочники.ДолжностиОрганизации.НайтиПоНаименованию(пДол);
        Если НаименДол.Ссылка.Пустая() Тогда 
            СпрДО = Справочники.ДолжностиОрганизации.СоздатьЭлемент();
            СпрДО.Наименование = пДол;
            СпрДО.Код = пКод;
            СпрДО.Записать();
            НаименДол = Справочники.ДолжностиОрганизации.НайтиПоНаименованию(пДол);
        КонецЕсли;
    Иначе 
        НаименДол = Справочники.ДолжностиОрганизации.ПустаяСсылка();
    КонецЕсли;    
                
     инт=инт+1;
     
КонецЦикла;

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