Каталог решений - Быстрая выгрузка отчетов в Excel + ярлычки листов

Вместо Таб.Показать() используем глобальную функцию — и отчет показывается сразу в Excel в удобоваримом виде — с форматированием колонок по ширине, автофильтром и ярлычками листов

// ===============================
Процедура глОткрытьВЭкселе(Таб,ИмяФайла="",НеИзменятьВысотуСтроки=0) Экспорт
    Попытка 
        // запускаем Excel-Server 
        Excel = СоздатьОбъект("Excel.Application");
    Исключение       
        Excel = 0;
        Предупреждение("MS Excel не загружен!");
        Возврат;
    КонецПопытки;   
	
    Если ТипЗначенияСтр(Таб)="Строка" Тогда
        Excel.WorkBooks.Open(Таб);
    Иначе                                                          
        Если НеИзменятьВысотуСтроки=0 Тогда
            ШиринаТаблицы=Таб.ШиринаТаблицы();
            Область=Таб.Область(1,1,Таб.ВысотаТаблицы(),ШиринаТаблицы);
            Область.ВысотаСтроки(12);                 
        КонецЕсли;
		
        Если Найти(ИмяФайла,":")=0 Тогда
            ИмяФайла=КаталогПользователя()+ИмяФайла;
        КонецЕсли;
        Если Найти(Врег(ИмяФайла),"XLS")=0 Тогда
            ИмяФайла=ИмяФайла+".xls";
        КонецЕсли;
		
        Таб.Записать(?(ПустоеЗначение(ИмяФайла)=0,ИмяФайла,КаталогПользователя()+"Таблица.xls"),"XLS");
        Excel.WorkBooks.Open(ИмяФайла);
		
        Excel.Visible = 0;
		
        //добавляем автофильтр и форматирование колонок по ширине
        Excel.Columns.AutoFit();
        Range = Excel.Range(Excel.Cells(1, 1), Excel.Cells(1, ШиринаТаблицы));
        Range.Select();
        Range.AutoFilter();
		
        //показываем вечно прячущиеся ярлычки листов :)		
        Excel.ActiveWindow.DisplayWorkbookTabs = -1;
        Excel.ActiveWindow.TabRatio = 0.25;
    КонецЕсли;
	
    Excel.Visible=1;	  
    Excel=0;
КонецПроцедуры	//глОткрытьВЭкселе