Главная страница
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.022 c
8-1088083215
Wiz@rd
2004-06-24 17:20
2004.09.12
Gausian Blur на фоне


3-1092653832
Sir John
2004-08-16 14:57
2004.09.12
Автоинкремент при работе с локальными фалами


1-1093375510
VZup
2004-08-24 23:25
2004.09.12
Круглые SpeedButton


1-1093374512
ShimON
2004-08-24 23:08
2004.09.12
Цифры во время выполнения


4-1091303283
dosik
2004-07-31 23:48
2004.09.12
COM - порт. Тестирование.