Формируется отчет и результат выводится в три печатные формы.
Необходимо эти три печатные формы сохранить программно в один файл xls с тремя закладками (листами).
В результате процедуры (см. ниже) в результирующем файле сбиваются цвета ячеек. Причем перед объединением файлов в один цвета нормальные.
Вот код:
ТабДок = ВыводНаПечатьНаСервере("ОбщаяВыручка", "1");
ТабДок.Записать(Отчет.ВыбПутьКФайлу + "\temp1.xls", ТипФайлаТабличногоДокумента.XLS);
ТабДок = ВыводНаПечатьНаСервере("Выручка1", "2");
ТабДок.Записать(Отчет.ВыбПутьКФайлу + "\temp2.xls", ТипФайлаТабличногоДокумента.XLS);
ТабДок = ВыводНаПечатьНаСервере("Выручка2", "3");
ТабДок.Записать(Отчет.ВыбПутьКФайлу + "\temp3.xls", ТипФайлаТабличногоДокумента.XLS);
ОбъектЭксель = ПолучитьCOMОбъект("", "Excel.Application");
ОбъектЭксель.SheetsInNewWorkbook = 1;
ОбъектЭксель.DisplayAlerts = False;
Книга = ОбъектЭксель.Workbooks.Add();
ИмяФайла = Отчет.ВыбПутьКФайлу + "\ОтчетВыруча.xls";
НомерЛиста = 1;
Пока НомерЛиста <= 3 Цикл
ИмяВременногоФайла = Отчет.ВыбПутьКФайлу + "\temp" + Строка(НомерЛиста) + ".xls";
ВременнаяКнига = ОбъектЭксель.Workbooks.Open(ИмяВременногоФайла);
ЛистИсточник = ВременнаяКнига.WorkSheets(1);
ЛистИсточник.Copy(Книга.WorkSheets(НомерЛиста));
Книга.WorkSheets(НомерЛиста).Name = ?(НомерЛиста = 1, "Общая выручка",?(НомерЛиста = 2, "Выручка1", "Выручка2"));
ВременнаяКнига.Close(0);
НомерЛиста = НомерЛиста + 1;
КонецЦикла;
Книга.Sheets(НомерЛиста).Delete();
ОбъектЭксель.Workbooks(1).Activate();
Книга.Worksheets(1).Activate();
Книга.SaveAs(ИмяФайла, 18);
Книга.Close(0);
ОбъектЭксель.Quit();
Помогите, пожалуйста, решить проблему с изменением цветов ячеек.