выгрузка в Excel

[magnifico61]

Код Выделить Развернуть


&НаСервере
Процедура ВыгрузитьВXLSНаСервере(ИмяФайла)
Попытка
Эксель = Новый COMОбъект("Excel.Application");
Исключение
Сообщить(ОписаниеОшибки() + " Программа Exсel не установлена на данном компьютере!");
Возврат;
КонецПопытки;



Книга = Эксель.WorkBooks.Open("C:\Users\user16\Desktop\1с.xls");
Лист = Книга.WorkSheets(1);

НомерСтроки=1;
//Шапка таблицы
Лист.Cells(НомерСтроки, 1).Value = Строка("Идентификатор");
Лист.Cells(НомерСтроки, 2).Value = Строка("Наименование");
Лист.Cells(НомерСтроки, 3).Value = Строка("Настройка раскрытия");
Лист.Cells(НомерСтроки, 4).Value = Строка("Описание настройки");
Лист.Cells(НомерСтроки, 5).Value = Строка("Аналитика 1");
Лист.Cells(НомерСтроки, 6).Value = Строка("Аналитика 2");
Лист.Cells(НомерСтроки, 7).Value = Строка("Аналитика 3");
Лист.Cells(НомерСтроки, 8).Value = Строка("Аналитика 4");
Лист.Cells(НомерСтроки, 9).Value = Строка("Аналитика 5");
Лист.Cells(НомерСтроки, 10).Value = Строка("Аналитика 6");
Лист.Cells(НомерСтроки, 11).Value = Строка("Значение");

Таблица = ПолучитьЗаголовки();
НомерСтроки = НомерСтроки + 1;
Для Каждого Строка Из Таблица Цикл
СоздатьСтроки(Строка.Ссылка, НомерСтроки, Лист);
КонецЦикла;

Попытка
//Книга.SaveAs("C:\Users\user16\Desktop\1с.xls");
Книга.Close();
Эксель.Quit();
Исключение
Сообщить("" + ОписаниеОшибки());
Книга.Close();
Эксель.Quit();
КонецПопытки;

КонецПроцедуры

При таком варианте выгрузки если я выгружаю в уже созданный документ с данными повторно, то у меня появляется окно Excel с подверждение сохранения, как обойтись без этого?

[ilyay]

Можно удалять файл перед каждым сохранением.
Можно передать дополнительный параметр функции Save/SaveAs, чтобы она не спрашивала.

[Дмитрий@]

У объекта "Application" есть булева константа, если ей присвоить определенное значение, то эти окна появляться не будут.

[magnifico61]

Можно передать дополнительный параметр функции Save/SaveAs, чтобы она не спрашивала.

И как поставить этот параметр?

У объекта "Application" есть булева константа, если ей присвоить определенное значение, то эти окна появляться не будут.

И как она называется?

[ilyay]

В яндексе за минуту можно найти ответ, например:
http://www.forum.mista.ru/topic.php?id=492769