1c Загрузка (заполнение) данными справочника из файла

&НаСервере
Процедура СинхронизироватьНаСервере()
    Сообщить(ЗагрузкаИзExcel());  
КонецПроцедуры
 
&НаКлиенте
 
Процедура Синхронизировать(Команда)
    СинхронизироватьНаСервере();
КонецПроцедуры
 
 
Функция ЗагрузкаИзExcel()
    //Номер листа в книге Excel для получения данных
    НомерЛиста         = 1;
    //Пытаемся подключиться к Excel
    Попытка
        Excel = новый COMОбъект("Excel.Application");
    Исключение
        Сообщить("Похоже, Excel на компьютере не установлен. Необходимо выполнить установку/переустановку Excel.");
        Возврат Ложь;
    КонецПопытки;     
    //Подключились удачно, открываем файл
    Excel.Workbooks.Open("C:\alsu\1.csv");
    //Открываем необходимый лист
    Excel.Sheets(НомерЛиста).select();   
    //Получим количество строк и колонок.
    //В разных версиях Excel получаются по-разному, поэтому сначала определим версию Excel
    Версия = Лев(Excel.Version,Найти(Excel.Version,";")-1);
    Если Версия = "8" тогда
        ФайлСтрок   = Excel.Cells.CurrentRegion.Rows.Count;
        ФайлКолонок = Макс(Excel.Cells.CurrentRegion.Columns.Count, 13);
    Иначе
        ФайлСтрок   = Excel.Cells(1,1).SpecialCells(11).Row;
        ФайлКолонок = Excel.Cells(1,1).SpecialCells(11).Column;   
    Конецесли;
    // Выбираем данные из файла
    Для а = 3 по ФайлСтрок Цикл           
        //Получим данные из соответсвующих ячеек
        Заемщик = Справочники.Заемщики.СоздатьЭлемент();
        Заемщик.Наименование = СокрЛП(Excel.Cells(а,4).Value);
        Заемщик.НомерКредитногоДоговора = СокрЛП(Excel.Cells(а,1).Value);
        Заемщик.ДатаКредитногоДоговора = Excel.Cells(а,2).Value;
        Заемщик.НомерЗакладной = СтрЗаменить(СокрЛП(Excel.Cells(а,3).Value),Символы.НПП,"");
        Заемщик.ФИО = СокрЛП(Excel.Cells(а,4).Value);
        Если СокрЛП(Excel.Cells(а,5).Value)="Да" Тогда
            Заемщик.ОсновнойЗаемщик = Истина;
        Иначе 
            Заемщик.ОсновнойЗаемщик = Ложь;
        КонецЕсли;    
        Заемщик.Записать();
    Конеццикла;
    //Закрываем Excel
    Excel.ActiveWorkbook.Close();   
КонецФункции