Excel и 1С77

lira89

Well-Known Member
12.03.2010
154
0
#1
Здравствуйте. Подскажите пожалуйста. Вот я при формировании отчета сделала его еще и в форме Excel и сохранила в определенной директории. Вопрос, а с помощью какого метода мне можно сделать так, чтобы он сам при формировании отчета открывался на экране, ну что-то вроде того, как появляется обычная печатная форма 1с (метод Показать(1)), чтобы пользователю не нужно было лезть в разные папки и искать этот отчет?
 

TimeDontWait

Well-Known Member
04.01.2010
367
0
#2
Если ексель формируеш в ходе выполнения отчета, то
Код:
 Visible = 1
делаеш его видимым, и не знабудь убрать закрытие документа в конце кода
 

lira89

Well-Known Member
12.03.2010
154
0
#3
спасибо), попробую
А вот еще скажем не вопросик, а небольшая просьба: подскажите ссылки в интернете, по которым можно доходчиво понять, как выгружать в word и чтобы текст не превращался в сплошную кашу?))))
 

unknown181538

НеГуру
28.12.2008
1 417
0
#4
Обычно Word документ формируют по шаблону с ключевыми полями. Вам не это нужно?
 

Дайнеко

Well-Known Member
19.11.2009
951
0
#6
Вот я при формировании отчета сделала его еще и в форме Excel и сохранила в определенной директории.
Я делаю так: обычный отчет открылся на экране. А у него вверху, рядом с рамочками "Обновить", "Настройка" нарисована еще одна "Excel". Пользователь полюбовался на отчет и нажал на рамочку. Вызывается глобальная процедура ОбработкаЯчейкиТаблицы(). А вот она уже творит:
* Спросила имя файла для сохранения
* Сохранила: Табл.Записать(ИмяФайла, "XLS");
* И тут же его открыла
Код:
	Попытка
ВыхЗад = СоздатьОбъект("Excel.Application");
Исключение
Предупреждение ("На компьютере не установлен MS Excel."+ РазделительСтрок+
ОписаниеОшибки(), 10);
Возврат;
КонецПопытки;

Попытка
ВыхЗад.Workbooks.Open(ИмяФайла);
ВыхЗад.Visible = 1;
ВыхЗад.ActiveSheet.Name = "Лист1";			// назвать
ВыхЗад.ActiveSheet.PageSetup.TopMargin	 = ВыхЗад.Application.CentimetersToPoints(1);
ВыхЗад.ActiveSheet.PageSetup.RightMargin = ВыхЗад.Application.CentimetersToPoints(0);
ВыхЗад.ActiveWindow.DisplayWorkbookTabs= 1;	// дать ярлычки 
ВыхЗад.ActiveWindow.TabRatio = 1/2;			// показать ярлычки 
ВыхЗад.ReferenceStyle = 1;					// стиль А1

Исключение
Предупреждение (ОписаниеОшибки(), 10);
ВыхЗад = 0;
КонецПопытки;