Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.09.12;
Скачать: CL | DM;

Вниз

Вопрос по TExcelApplication .   Найти похожие ветки 

 
EXCEL   (2004-08-26 12:39) [0]

Всем прювет.
Есть:

...
var ea1 : TExcelApplication;
    RangeE:excelrange;
Begin

ea1 := TExcelApplication.Create(self);

ea1.Connect;
ea1.Visible[0]:=true;
ea1.Workbooks.Add(null,0);

rangee:=ea1.Range["A1","A1"];
rangee.MergeCells := true;
rangee.Font.Bold:=true;
rangee.Value := "BLA-BLA";
.....
end;




ВНИМАНИЕ ВОПРОС:
1. Почему открывается EXCEL с 3-мя листами хотя я работаю только с одним, как сделать чтобы был один лист (Sheet)?

2. Можно ли перехватить событие когда закрывается TExcelApplication, в тот момент когда пользователь нажмет на кнопку "ДА" в диалоге "Сохранить изменения в файле КНИГА1".


 
clickmaker ©   (2004-08-26 13:22) [1]

1.
for i := 2 to ea1.ActiveWorkbook.Sheets.Count do begin
  Sheet := ea1.ActiveWorkbook.Sheets.Item[i] as _Worksheet;
  Sheet.Visible[i] := 0;
end;
2. OnWorkBookBeforeClose


 
EXCEL   (2004-08-26 13:34) [2]

procedure TForm1.ExcelApplication1WorkbookBeforeClose(
 ASender: TObject; const Wb: _Workbook; var Cancel: WordBool)


Вы не могли бы объяснить какие параметры что делают.


 
clickmaker ©   (2004-08-26 14:21) [3]

про первые 2, надеюсь, понятно
а если Cancel поставишь true, книга не закроется



Страницы: 1 вся ветка

Текущий архив: 2004.09.12;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.026 c
1-1093861668
Ragazor
2004-08-30 14:27
2004.09.12
.Items , .lines


14-1093120730
i-s-v
2004-08-22 00:38
2004.09.12
Ancient


1-1093690153
Vasya.ru
2004-08-28 14:49
2004.09.12
Это меня глючит, или Дельфю?


1-1093502344
*Pavel
2004-08-26 10:39
2004.09.12
Скрипты


1-1093739034
Сергей Петров
2004-08-29 04:23
2004.09.12
Как правильно двигать содержимое панели?