Эксель = Новый COMОбъект("Excel.Application");
Исключение
Возврат;
КонецПопытки;
templ="C:\Documents and Settings\A_Voronov\Рабочий стол\Баланс2.xls";
Книга=Эксель.Workbooks.Open(templ);
ТекЛист=Книга.WorkSheets(1);
ТекЛист.Cells(2,14).Value = ПредставлениеПериода(ПериодС, КонецДня(ПериодПо));
к = 8;
Пока Выборка.Следующий() цикл
к = к+1;
ТекЛист.Cells(к,1).Value = Выборка.Источник; // данный параметр не передается (ошибка Value)
Если Выборка.Пар=0 Тогда
ТекЛист.Cells(к,3).Value = Null;
Иначе
ТекЛист.Cells(к,3).Value = Выборка.Пар;
КонецЕсли;
Если Выборка.Вода=0 Тогда
ТекЛист.Cells(к,7).Value = Null;
Иначе
ТекЛист.Cells(к,7).Value = Выборка.Вода;
КонецЕсли;
Если Выборка.Промывка=0 Тогда
ТекЛист.Cells(к,12).Value = Null;
Иначе
ТекЛист.Cells(к,12).Value = Выборка.Промывка;
КонецЕсли;
Если Выборка.ГВС=0 Тогда
ТекЛист.Cells(к,11).Value = Null;
Иначе
ТекЛист.Cells(к,11).Value = Выборка.ГВС;
КонецЕсли;
Если Выборка.Отопление=0 Тогда
ТекЛист.Cells(к,16).Value = Null;
Иначе
ТекЛист.Cells(к,16).Value = Выборка.Отопление;
КонецЕсли;
Если Выборка.Вентиляция=0 Тогда
ТекЛист.Cells(к,17).Value = Null;
Иначе
ТекЛист.Cells(к,17).Value = Выборка.Вентиляция;
КонецЕсли;
Если Выборка.Потери=0 Тогда
ТекЛист.Cells(к,18).Value = Null;
Иначе
ТекЛист.Cells(к,18).Value = Выборка.Потери;
КонецЕсли;
КонецЦикла;
Эксель.Visible = Истина;
/index.php?showtopic=4852&hl=Excel