Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
10 авг 2022, 22:34

выгрузка в Excel

Автор magnifico61, 15 ноя 2017, 16:53

0 Пользователей и 1 гость просматривают эту тему.

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

Цитата: ilyay от 15 ноя 2017, 17:12Можно передать дополнительный параметр функции Save/SaveAs, чтобы она не спрашивала.
И как поставить этот параметр?

Цитата: Дмитрий@ от 16 ноя 2017, 09:30У объекта "Application" есть булева константа, если ей присвоить определенное значение, то эти окна появляться не будут.
И как она называется?

ilyay

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


Теги:

Похожие темы (5)

Рейтинг@Mail.ru Rambler's Top100

Поиск