Функция вExcel(ТЗ,С,К) Экспорт //ТЗ - таблица значений //С,К - координаты левого верхнего угла области для Excel //Проверим входящие значения Если ТипЗначенияСтр(ТЗ)<>"ТаблицаЗначений" Тогда Возврат 1; КонецЕсли; Если ТипЗначенияСтр(С)<>"Число" Тогда Возврат 2; КонецЕсли; Если ТипЗначенияСтр(К)<>"Число" Тогда Возврат 3; КонецЕсли; //Проинициируем Ecxel Попытка ExcelApp=СоздатьОбъект("Excel.Application"); Исключение Сообщить(ОписаниеОшибки()+"; программа Excel не установлена на данном компьютере!"); Возврат 4; КонецПопытки; НовыеРабочиеКниги=ExcelApp.WorkBooks; РабочаяКнига=НовыеРабочиеКниги.Add(); Стр=РабочаяКнига.Worksheets(1); //Начнем работать Для i=1 По ТЗ.КоличествоСтрок() Цикл Для j=1 По ТЗ.КоличествоКолонок() Цикл Клетка=Стр.Cells(С+i,К+j); Клетка.Value=ТЗ.ПолучитьЗначение(i,j) КонецЦикла; КонецЦикла; ExcelApp.Visible=1; Возврат 0; КонецФункции