Вопрос по 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)

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

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

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