Автору респект! Очень хорошая обработка для конвертации кучи документов из Екселя в MXL. Главное - не нужно рисовать границы ячеек.
Даже немного доработал обработку - добавил возможность сохранения в файл MXL и возможность добавлять путь сохранения с тем же именем файла, но уже с расширением MXL. Выдержки кода публикую здесь, а доработку отправляю автору - если нужно, пусть выкладывает. Если нужно кучи документов конвертировать за раз можно запутаться что где и не так переименовать :)
Добавляем в обработку реквизит строка неограниченой длины "
ПутьСохранения" и обработчики в коде с пометкой доработка(+):
Процедура ИмяФайлаНачалоВыбора(Элемент, СтандартнаяОбработка)
Длг = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
Длг.Заголовок = "Выберите файл для импорта";
Длг.ПолноеИмяФайла = ИмяФайла;
Длг.Расширение = "xls";
Длг.ПроверятьСуществованиеФайла = Истина;
Длг.Фильтр = "Файлы Microsoft Excel(*.xls)|*.xls|Все файлы (*.*)|*.*";
Если Длг.Выбрать() Тогда
ИмяФайла = Длг.ПолноеИмяФайла;
КонецЕсли;
СписокЛистовФайла = ПолучитьСписокЛистовФайла();
Если ТипЗнч(СписокЛистовФайла) <> Тип("СписокЗначений") Тогда
Сообщить("В выбранном файле неопределены листы");
Возврат;
ИначеЕсли НЕ ЗначениеЗаполнено(ИмяЛиста) И СписокЛистовФайла.Количество() > 0 Тогда
ИмяЛиста = СписокЛистовФайла[0].Значение;
КонецЕсли;
//### Доработка(+) позволяет сразу создать нужное имя файла с другим расширением чтоб не запуататься!
Ф = Новый Файл(ИмяФайла);
ПутьСохранения = ф.Путь+ф.ИмяБезРасширения+".mxl";
//### Доработка(-)
КонецПроцедуры
//###Доработка(+) сохранение в файл сразу (если много документов, чтоб не пользоваться Ctrl+c - Ctrl+v
Процедура ОсновныеДействияФормыКнСохранитьВ_MXL(Кнопка)
Если ПустаяСтрока(ПутьСохранения) Тогда
Сообщить("Не указан файл для сохранения результата в MXL");
Возврат;
КонецЕсли;
ЭлементыФормы.ПолеТабличногоДокументаМакет.Записать(ПутьСохранения);
Сообщить("Файл сохранен "+ПутьСохранения, СтатусСообщения.Информация);
КонецПроцедуры
Процедура ПутьСохраненияНачалоВыбора(Элемент, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Длг = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);
Длг.Заголовок = "Выберите файл для сохранения в формат MXL";
Длг.ПолноеИмяФайла = ИмяФайла;
Длг.Расширение = "mxl";
Длг.ПроверятьСуществованиеФайла = Истина;
Длг.Фильтр = "Файлы MXL (*.mxl)|*.mxl";
Если Длг.Выбрать() Тогда
ПутьСохранения = Длг.ПолноеИмяФайла;
КонецЕсли;
КонецПроцедуры
//###Доработка(-)
Показать
