Доброго всем времени суток, столкнулся с такой проблемой, задача состоит в выгрузке значений в excel с использованием макета который в дальнейшем рисует график по этим значениям, в итоге после сохранения документ экселя пустой
Процедура СохранитьВФайл()
   
   Книга = ПолучитьМакет("Шаблон").Получить();
   

   Лист = Книга.WorkSheets(1);
   
   
   НомСтроки = 8;
   Для Каждого Строка Из График Цикл
       Лист.Cells(НомСтроки, 3).Value = Строка.Время;
       Лист.Cells(НомСтроки, 4).Value = Строка.Температура;
       
       НомСтроки = НомСтроки + 1;
   КонецЦикла;
   
   Для н = НомСтроки По 17 Цикл
       Лист.Cells(н, 3).Value = Строка.Время;
       Лист.Cells(н, 4).Value = Строка.Температура;
   КонецЦикла;
   
   Лист.Visible = 1;
   Книга.SaveAs("E:\..."+Формат(ТекущаяДата(), "ДФ=yyyy_MM_dd_ЧЧ_мм")+".xls", -4143);
   
   Книга.Close()
   
КонецПроцедуры

это ты хвастаешься?

(1) А то!) чем еще в пятницо заниматься?...)

Для Каждого Строка Из График Цикл
       Лист.Cells(НомСтроки, 3).Value = Строка.Время;
       Лист.Cells(НомСтроки, 4).Value = Строка.Температура;
       
       НомСтроки = НомСтроки + 1;
   КонецЦикла;
   
   Для н = НомСтроки По 17 Цикл
       Лист.Cells(н, 3).Value = Строка.Время;
       Лист.Cells(н, 4).Value = Строка.Температура;
   КонецЦикла;
два цикла, что второй делает?

ну и "Строка" хорошо бы заменить на что нибудь другое

(0) А разве 1С 8.ххх не умеет сохранять печатные формы в формате ЕХеЛь?

(5) у меня не печатная форма, в эксель поступают данные  с окна формы

(3)  Да фиг знает :DD еще  не придумал :D

(6) а не хочешь заюзать "печатную форму"?

(6) А какая разница в Печатной форме и Екселе?

Сперва все выводишь в Макет, а после записываешь макет в Ексельный формат :)

Да желательно было чтобы по кнопке файл сразу в екселе в папке появлялся, без создания печатной формы

(10) Дак не показывай печатную форму, и тут же её пиши :)

(0) 1. Данные в окне Excel видишь перед сохранением?
2. Книга.SaveAs("E:\1.xls") Так сохраняет?

2. Книга.SaveAs("C:\1.xls") Так сохраняет?

(12) да, сохраняет с нужным расширением

значит с форматом даты намудрил
погляди что там
"E:\..."+Формат(ТекущаяДата(), "ДФ=yyyy_MM_dd_ЧЧ_мм")+".xls"
возвращает

(15) Тут норм , выкидывает Файл с именем текущей даты сохранения, приписывает расширение .xls, файл то норм появляется, только пустой(Значений нет), попробовал не использовать макет
Попытка
       Эксель = Новый COMОбъект("Excel.Application");
   
   Исключение
       Сообщить(ОписаниеОшибки());
       Возврат;
   КонецПопытки;
   
   Книга = Эксель.WorkBooks.Add();
   
   Лист = Книга.Sheets.add();
   
   НомСтроки = 8;
   Для Каждого Строка Из График Цикл
       Лист.Cells(НомСтроки, 3).Value = Строка.Время;
       Лист.Cells(НомСтроки, 4).Value = Строка.Температура;
       
       НомСтроки = НомСтроки + 1;
   КонецЦикла;
   
   Для н = НомСтроки По 17 Цикл
       Лист.Cells(н, 3).Value = Строка.Время;
       Лист.Cells(н, 4).Value = Строка.Температура;
   КонецЦикла;
   
   Попытка
       Книга.SaveAs("E:\1\"+Формат(ТекущаяДата(), "ДФ=yyyy_MM_dd_ЧЧ_мм")+".xls", -4143);
   Исключение
       Сообщить(ОписаниеОшибки()+" Файл не сохранен, пошел лесом");
       Возврат;
   КонецПопытки;
   Эксель.Application.Quit();
Значения выползли, хз в чем трабл(

1. Данные в окне Excel видишь перед сохранением?

отбой
барабашкам привет

(17) нет, док создается, потом открываю

а в 1 с есть возможность диаграмму в эксель передать?

Ребят никаких больше идей?