| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Вопрос по TExcelApplication . [D7, Win2k, WinXP]

EXCEL ©   (2004-08-26 12:39:00) 

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

...
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 14:21:00) [1]

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

---

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

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

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

---

clickmaker   (2004-08-26 13:22:00) [3]

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

---

Наверх