Каталог решений - Сохранить табличный документ по умолчанию в Excel

Очень часто клиенты просили меня сделать им так, чтобы по нажатию элемента меню «Сохранить как» открывался диалог сохранения файла, в котором уже был бы выбран тип файла «ТаблицаExcel (*.xls)».

Посидел, подумал и решил немножко по-другому сделать.

Добавил в глобальный модуль функцию

Функция глСохранитьФайлExcel() Экспорт
    Перем ТекКонтекст;
    Перем ИмяФайла;
    Перем ИмяКаталога;
   
     ЗагрузитьВнешнююКомпоненту(«FormEx.dll»);
     глСервис    = СоздатьОбъект(«Сервис»);

     //получаем контекст активной формы
     Если глСервис.АктивныйКонтекст(ТекКонтекст) = 1 Тогда

        //проверяем является ли форма таблицой
        Если ТипЗначенияСтр(ТекКонтекст) = «Таблица» Тогда

            //активная таблица будет всегда первой в списке таблиц
            глСервис.СписокТаблиц().ПолучитьЗначение(1, ИмяФайла);

            ИмяФайла    = СокрЛП(СтрЗаменить(ИмяФайла, «*», «»));

            ИмяФайла    = СтрЗаменить(ИмяФайла, «:», «-«);

            Если ФС.ВыбратьФайл(1, ИмяФайла, ИмяКаталога, «Сохранить как», «Таблицы Excel (*.xls)|*.xls») = 1 Тогда
                ТекКонтекст.Записать(ИмяКаталога + ИмяФайла, 1);
            КонецЕсли;
        КонецЕсли;
    КонецЕсли;
   
КонецФункции //глСохранитьФайлExcel()

Добавил в меню «Файл» элемент «Сохранить в Excel»(Объект — Задача, Команда — Задача.Выполнить, Формула — глСохранитьФайлExcel()) — и все, клиент доволен.

Для работы необходим formex.dll (можно взять по адресу dorex.ru)