Загрузка данных из Excel через COM Microsoft Excel, Open Office или Libre Office (управляемые формы)

Обработка представляет собой просто заготовку для загрузки данных из файла Excel. Она позволяет работать как с платным (или успешно ломанным) Microsoft Excel на компьютере, так и с бесплатными Open Office или Libre Office (которые все чаще используются во многих компаниях).

Сразу сообщаю - обработка не является неким универсальным загрузчиком, в котором можно извратиться и загрузить все что угодно из Excel не заглядывая в конфигуратор.

Я не сторонник подобных решения, т.к. как правило 95% пользователей 1С не в состоянии таким механизмом воспользоваться - просто не хватит навыков в программировании и построении запросов. И получается что подобные мощные и гибкие загрузчики по большей части тешат самолюбие их авторов.

Я, скажем так, за разумный подход и полуавтоматизацию в этом вопросе. Поэтому предлагаю свою болванку обработки, которую можно любому, даже начинающему, программисту по быстрому допилить под собственные нужды. 

Плюс обработки в том, что не надо лезть в куски кода работы с COM-объектами, а сразу в нужном месте написать свой кусок и использовать. Для этого достаточно почитать комментарии к коду и вставить свои куски вот в этих двух процедурах:

&НаКлиенте
Процедура ВыполнитьЗагрузку()
	
	Перем Источник, КоличествоСтрок, КоличествоКолонок, ЗначениеЯчейки, СтруктураCOMОбъектов;
	
	//Отказ готовим на случай если надо будет не продолжать загрузку данных на сервере.
	Отказ = Ложь;
	
	//Инициализация обработчика
	ТекстОшибки = ИнициализироватьИсточникДанных(Источник, КоличествоСтрок, КоличествоКолонок, СтруктураCOMОбъектов);
	Если ЗначениеЗаполнено(ТекстОшибки) Тогда
		ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстОшибки);
		Возврат;
	КонецЕсли;
	
	//Готовим массив под строки.
	//Каждая строка будет представлена в виде структуры.
	МассивОбработки = Новый Массив;
	
	Для ТекНомерСтроки = Объект.НомерНачальнойСтроки ПО КоличествоСтрок Цикл
		
		//Получение значений ячеек и помещение в структуру
		СтруктураСтроки = Новый Структура("НомерСтрокиФайла", ТекНомерСтроки); //Для того чтобы можно было состыковать с какой строкой таблицы файла работаем
		
		//...
		//Текст обработчика - получение данных из таблицы файла.
		
		//Заменяем ключи структуры на нужные нам. Номера колонок указываем так же - какие нам нужны
		СтруктураСтроки.Вставить("Заголовок1", ПолучитьЗначениеЯчейки(Источник, 1, ТекНомерСтроки));
		СтруктураСтроки.Вставить("Заголовок2", ПолучитьЗначениеЯчейки(Источник, 2, ТекНомерСтроки));
		СтруктураСтроки.Вставить("Заголовок3", ПолучитьЗначениеЯчейки(Источник, 3, ТекНомерСтроки));
		СтруктураСтроки.Вставить("Заголовок4", ПолучитьЗначениеЯчейки(Источник, 4, ТекНомерСтроки));
		
		//...
		
		//Помещаем сформированную структуру в массив
		МассивОбработки.Добавить(СтруктураСтроки);
	КонецЦикла;
	
	//Закрываем обработчик
	ТекстОшибки = ЗакрытьОбработчик(Источник, СтруктураCOMОбъектов);
	Если ЗначениеЗаполнено(ТекстОшибки) Тогда
		ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстОшибки);
		Возврат;
	КонецЕсли;
	
	//Передаем массив на сервер для уже собственно загрузки данных
	//Если установлена галочка, то выводим загруженные данные пользователю на просмотр в виде табличного документа.
	//Пользователь может отменить дальнейшую обработку, если его что-то не устраивает в данных.
	Если Не Отказ Тогда
		Если Объект.ОтображатьЗагруженныеДанные Тогда
			МожноПродолжатьЗагрузку = ОткрытьФормуМодально("ВнешняяОбработка.БолванкаИмпортаИзExcelИOpenOffice.Форма.ФормаРезультатаЗагрузки", Новый Структура("МассивОбработки", МассивОбработки), ЭтаФорма);
			Если МожноПродолжатьЗагрузку Тогда
				ОбработатьПолученныеДанныеНаСервере(МассивОбработки);
			Иначе
				ОбщегоНазначенияКлиентСервер.СообщитьПользователю("Обработка прервана!");
			КонецЕсли;
		Иначе
			ОбработатьПолученныеДанныеНаСервере(МассивОбработки);
		КонецЕсли;
	КонецЕсли;
		
КонецПроцедуры //ВыполнитьЗагрузку()

&НаСервере
Процедура ОбработатьПолученныеДанныеНаСервере(МассивОбработки)
	
	Для Каждого СтруктураСтроки Из МассивОбработки Цикл
		
		//...
		//Текст обработчика - загрузка данных из полученного массива структур строк.
		//...
		
	КонецЦикла;
	
	ОбщегоНазначенияКлиентСервер.СообщитьПользователю("Обработка завершена!");
	
КонецПроцедуры //ОбработатьПолученныеДанныеНаСервере()

...не заглядывая в остальные места )))

В общем свой код вставляйте тут:

и тут:

Сами куски кода работы с COM-объектами естественно не мои - по работе с экселем уже и не вспомню откуда брал изначально, а по Опен офису помогла вот эта статья: 1С и работа с Excel, OpenOffice/LibreOffice, ADODB (за что огромное спасибо автору!)

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

Прошу помидорами в комментах не закидывать - еще раз, не претендую на какую-либо оригинальность, просто причесал инструмент под себя, и решил, что, может, еще кому пригодится ))

Разрабатывалось на платформе 8.3.16, но будет работать и на более старых версиях.