Инструкция:
1 Открываем обработку (в зависимости от версии толстый или тонкий клиент)
2 В форме выбираем Excel файл для конвертации
3. Нажимаем кнопку конвертировать и получаем печатную форму mxl, на базе которого можно писать отчеты
Проверялась на конфигурации ЗУП КОРП, редакция 2.5 (2.5.140.1)
Работает на всех конфигурациях.
Код ниже:
&НаКлиенте
Процедура ОбработкаВыбора(ВыбранноеЗначение, ИсточникВыбора)
КонецПроцедуры
&НаКлиенте
Процедура КнопкаСформироватьНажатие(Кнопка)
ТабличныйДокумент=ПодготовитьТаблицуСДанными(объект.Файл);
ТабличныйДокумент.Показать();
КонецПроцедуры
&НаСервере
Функция ПодготовитьТаблицуСДанными(Файл)
ТабличныйДокумент = Новый ТабличныйДокумент;
Попытка
ТабличныйДокумент.Прочитать(Файл, СпособЧтенияЗначенийТабличногоДокумента.Текст);
Исключение
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = ОписаниеОшибки();
Сообщение.Сообщить();
КонецПопытки;
возврат ТабличныйДокумент;
КонецФункции
&НаКлиенте
Процедура ФайлНачалоВыбора(Элемент,ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = ложь;
Диалог = новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
Диалог.Фильтр = "Excel, *.xls*|*.xls*";
Диалог.МножественныйВыбор=Ложь;
Если Диалог.Выбрать() Тогда
объект.Файл = Диалог.ПолноеИмяФайла;
КонецЕсли;
КонецПроцедуры
