Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.031 c