Каталог решений - Загрузка из Excel в управляемом приложении

Столкнулся очередной раз с задачей древней как мир, кому-то из коллег показалось что в excel задача по загрузке информации в регистр сведений 1С (в частности ЛицевыеСчетаСотрудников) будет выполняться проще, чем в интерфейсе 1С. Но не надо на этом зацикливаться, информация, изложенная ниже, носит более широкий характер. Так вот, ввиду отсутствия MS Office на компьютере с базой пользователь благополучно был с обидой отправлен восвояси, при этом на локальном компьютере у пользователя был установлен офис, и это даже ставилось как аргумент. Позже возникла необходимость загрузки информации в похожий регистр, но задача отличалась тем, что теперь требовалось загрузить из Excel с локальной тачки в клиент-серверную базу. Устав людям доказывать, что не одним экселем сыт 1С, взялся за реализацию несложной задачи и так получилось, что увидел в наискучнейшем рутинном занятии повод для изысканий тут. Итак, как ни странно, подробного разбора полетов не нашел ни здесь, ни на профильных сайтах, есть опытные ответчики на сайтах и тут тоже был замечен из категории черного пояса по "Спасибо, кэп", с советами "в управляемом приложении перенеси все &НаКлиент"  или "Конечно, перед открытием нужно указать путь на сервере, проснулся, типа скачай мою обработку и научись". Так вот эта заметка будет полезна тем, кто обойдется без выслушивания подобного рода высказывателей.

Со времен Толстого, задача действительно разделилась. И у банальной процедуры загрузки появились варианты, где ее выполнять, на клиенте или на сервере.

Первый вариант &НаКлиенте

Подходит для озвученной мною задачи, если у вас файл Эксель это просто несколько колонок с загружаемыми реквизитами, простой структуры, типа колонка — снизу ее значение и никаких логических или сложных арифметических действий или индексирования со значениями в колонках не требуется, тогда будет достаточно следующего кода. Замечу, этот код не зависит от типа базы, файлоая/серверная и требуется наличие экселя только на стороне клиента (это из области "Спасибо, кэп", но будет полезно в определении круга задач для тех, кто читал с начала)

&НаКлиенте
Процедура Загрузка(Команда)
	
	Колонки = Новый Массив;
	Колонки.Добавить("Сотрудник");
	Колонки.Добавить("Счет");
	
	Попытка 
		ex = ПолучитьCOMобъект("","Excel.Application");
	Исключение
		Сообщить("Excel Application не создан!!");
		Возврат;
	КонецПопытки;
	
	Попытка
		ex.workbooks.open(Файл,1);
	Исключение
		Сообщить("Файл перемещен или удален!");
		Возврат;
	КонецПопытки;
	
	RCount = ex.ActiveSheet.UsedRange.Rows.Count();
	Для j = 2 по RCount цикл
		
		Если СокрЛП(ex.ActiveSheet.Cells(j,1).Value)="" Тогда
			Продолжить;
		КонецЕсли;
		
		Стр = Новый Массив;
		Для i=1 По Колонки.Количество() Цикл
			 Стр.Добавить(СокрЛП(ex.ActiveSheet.Cells(j,i).Value));
		КонецЦикла;	
		
		ДобавитьЗаписьЛицевойСчет(Стр, ВыбПроект);
	КонецЦикла;	
	
	ex.workbooks.Close();
	ex.quit();
	
КонецПроцедуры

Второй вариант &НаСервере.

После загрузки вам необходимо выполнить группировку загруженных данных, например, вы загружаете информацию не по лицевым счетам, а по загрузке графиков работы сотрудников при суммированном учете, не спорю, можно это извернуться и сделать массивами &НаКлиенте, но при загрузке большого объема данных логичнее в целях увеличения производительности перенести операцию &НаСервер и выполнить загрузку в таблицу значений. При явном указании пути к файлу на клиенте в процедуру &НаСервере, в лучшем случае получите сообщение, что файл не найден. Поэтому перед выполнением необходимо скопировать файл во временное хранилище в процедуре &НаКлиенте, а затем сохранить его во временный каталог уже на сервере

&НаКлиенте
Процедура Загрузка(Команда)
	
	Двоичное = Новый ДвоичныеДанные(Файл);
	Адрес = ПоместитьВоВременноеХранилище(Двоичное, ЭтаФорма.УникальныйИдентификатор);
	
	ЗагрузкаНаСервере(Адрес, ВыбПроект);
КонецПроцедуры

&НаСервере
Процедура ЗагрузкаНаСервере(Адрес, Проект)

	темп_Путь = КаталогВременныхФайлов()+ "prncss_Megan_"+Формат(ТекущаяДата()-Дата(2012,01,01), "ЧГ=0")+".xls";
	
	темп_файл = ПолучитьИзВременногоХранилища(Адрес);
	темп_файл.Записать(темп_Путь);
	
	СписокКолонок = Новый СписокЗначений;
	СписокКолонок.Добавить("ФизЛицо");
	СписокКолонок.Добавить("НомерЛицевогоСчета");
	
	ТабЛицСчетов = ЗагрузитьЭксель(темп_Путь,СписокКолонок);
	
	Попытка
    	УдалитьФайлы(темп_Путь); 
	Исключение
    	Сообщить(ОписаниеОшибки());
	КонецПопытки;
	
....

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

&НаСервере
Функция  ЗагрузитьЭксель(Путь, СписокКолонки)
	
	ТЗФайл = Новый ТаблицаЗначений;
	
	Попытка 
		ex = ПолучитьCOMобъект("","Excel.Application");
	Исключение
		Сообщить("Excel Application не создан!!");
		Возврат ТЗФайл;
	КонецПопытки;
	
	Попытка
		ex.workbooks.open(Путь,1);
	Исключение
		Сообщить("Файл перемещен или удален!");
		Возврат ТЗФайл;
	КонецПопытки;
	
	
	Для каждого Зн Из СписокКолонки Цикл
		ТЗФайл.Колонки.Добавить(Зн.Значение);	
	КонецЦикла;	
	
	RCount = ex.ActiveSheet.UsedRange.Rows.Count();
	CCount = ex.ActiveSheet.UsedRange.Columns.Count();
	Для j = 2 по RCount цикл
		
		Новая = ТЗФайл.Добавить();
		Для i=1 По СписокКолонки.Количество() Цикл
			Новая.Установить(i-1, СокрЛП(ex.ActiveSheet.Cells(j,i).Value));
		КонецЦикла;	
		
	КонецЦикла;	
	
	ex.workbooks.Close();
	ex.quit();
	
	Возврат ТЗФайл;
КонецФункции

Временный каталог используется стандартного пользователя USR1CV82. В своем коде я еще применил таймстэмп на всякий случай, во избежание ошибки разделенного доступа к файлу в случае неожиданного завершения в прошлый запуск (почему-то окончание фразы сразу подумалось о другом и стало немного грустно 😉  а потом весело: не только 1С-ники косячат).

Всем благ, поменьше вам гневных советчиков на форумах, те, кто ничего нового не прочел, но упорно читал до конца, отвечу вам фразой известного футболиста про "Ваши ожидания".