Загрузка из эксель

&НаКлиенте
Процедура ВыполнитьОбработку(Команда)
	
	ОписаниеОповещения = Новый ОписаниеОповещения("НачатьПомещениеФайлаЗавершение", ЭтотОбъект);
	НачатьПомещениеФайла(ОписаниеОповещения, "", ИмяФайла, Ложь, УникальныйИдентификатор);
	
КонецПроцедуры

&НаКлиенте
Процедура НачатьПомещениеФайлаЗавершение(Результат, АдресХранилища, ВыбранноеИмяФайла, ДополнительныеПараметры) Экспорт

	Если Результат = Ложь Тогда
		Возврат
	КонецЕсли;
	
	ВыполнитьОбработкуНаСервере(АдресХранилища);	

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

&НаСервере
Процедура ВыполнитьОбработкуНаСервере(АдресХранилища)
	
	ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресХранилища);
    ИмяВременногоФайла = ПолучитьИмяВременногоФайла("xls");
    ДвоичныеДанные.Записать(ИмяВременногоФайла);

	// здесь ваш код чтения файла
	ТаблицыДанных = ПрочитатьФайлExcel(ИмяВременногоФайла);
	
	УдалитьФайлы(ИмяВременногоФайла);
	
КонецПроцедуры

ОписаниеОповещенияОЗавершении = Новый ОписаниеОповещения("ФайлДляЗагрузкиНачалоВыбораЗавершение", ЭтаФорма);
	НачатьПомещениеФайла(ОписаниеОповещенияОЗавершении, АдресФайла, , Истина, УникальныйИдентификатор) 


&НаКлиенте
Процедура ФайлДляЗагрузкиНачалоВыбораЗавершение(Выбрано, АдресХранилища, Результат, ПараметрыОповещения) Экспорт 
	Если Выбрано Тогда 
		АдресФайлаНаСервере = АдресХранилища;
		ФайлДляЗагрузки = Результат;
		ПараметрыФормы	= новый Структура("Основание, АдресФайлаНаСервере, ФайлДляЗагрузки", ЭтаФорма.ДокументОснование, АдресФайлаНаСервере, ФайлДляЗагрузки);
	КонецЕсли;	
КонецПроцедуры

// на сервере получаем и записываем его
ДвДанные = ПолучитьИзВременногоХранилища(АдресФайлаНаСервере);
Имя=ПолучитьИмяВременногоФайла(".xml");
ДвДанные.Записать(имя);

&НаКлиенте
Функция   	ПолучитьОбъект 									()
	MyCon = Новый COMОбъект ("ADODB.Connection");
	СтрокаСоединения ="Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " +СокрЛП(рекИмяФайлаОбмена) +" ;Extended Properties=""Excel 12.0;HDR=YES;IMEX=1;""";
	MyCon.Open(СтрокаСоединения);
    MyCat=Новый COMОбъект ("ADOX.Catalog");
    MyCat.ActiveConnection = MyCon;
    ИмяПервойСтраницы=MyCat.Tables.Item(0).Name;
    MyRst = Новый COMОбъект ("ADODB.Recordset");
    MyStr = "sel ect * fr om ["+ИмяПервойСтраницы+"]";
    //MyRst.Open (MyStr, MyCon, 2, 3); //adOpenDynamic, adLockOptimistic 
	MyRst.Open (MyStr, MyCon, 3, 1); //adOpenDynamic, adLockOptimistic 
	

	
	Если Элементы.Найти("фрмТаблицаЗагрузки") = Неопределено Тогда
		СоздатьТаблицуНаСервере("рекТаблицаЗагрузки");
	Иначе
		ЭтаФорма.рекТаблицаЗагрузки.Очистить();
	КонецЕсли;
	
	Пока НЕ MyRst.EOF() Цикл
		
		
		Если НЕ ЗначениеЗаполнено(СокрЛП(MyRst.Fields.Item(1).Value)) Тогда
			Сообщить("Нет табельного номера для строки  """+СокрЛП(MyRst.Fields.Item(0).Value)+ 
					""" ТабНомер:"""+СокрЛП(MyRst.Fields.Item(1).Value)+
					""" Сумма:""" +Окр(Число(СокрЛП(MyRst.Fields.Item(2).Value)),2)+"""");
			MyRst.MoveNext();    
			Продолжить;
		КонецЕсли;	
		

		НайденныйСотрудник = ПолучитьСотрудника(СокрЛП(MyRst.Fields.Item(1).Value));
		  
		Если НЕ ЗначениеЗаполнено(НайденныйСотрудник) Тогда
			Сообщить("Не найденн сотрудник  """+СокрЛП(MyRst.Fields.Item(0).Value)+ 
			""" ТабНомер:"""+СокрЛП(MyRst.Fields.Item(1).Value)+
			""" Сумма:""" +Окр(Число(СокрЛП(MyRst.Fields.Item(2).Value)),2)+"""");
			MyRst.MoveNext();    
			Продолжить;
		КонецЕсли;	
		
		
		
		
		НоваяСтрока = ЭтаФорма.рекТаблицаЗагрузки.Добавить();
		НоваяСтрока.ФИО 		= НайденныйСотрудник;
		НоваяСтрока.ТабНомер 	= СокрЛП(MyRst.Fields.Item(1).Value);
		НоваяСтрока.Сумма 		= Окр(Число(СокрЛП(MyRst.Fields.Item(2).Value)),2);

        MyRst.MoveNext();    
		
	КонецЦикла;

    MyRst.Close();
    MyCon.Close();	
	
	Сообщить("Итого - " + ЭтаФорма.рекТаблицаЗагрузки.Итог("Сумма"));
	
КонецФункции
&НаКлиенте
Процедура 	КнопкаЗагрузить(Команда)
	
	Если НЕ ПроверитьСуществованиеФайла(СокрЛП(рекИмяФайлаОбмена)) Тогда Возврат КонецЕсли;
	
	ПолучитьОбъект();

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