Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.09.12;
Скачать: [xml.tar.bz2];

Вниз

Вопрос по 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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.036 c
4-1090998661
TUser
2004-07-28 11:11
2004.09.12
GetWindowPlacement


1-1093491856
Fynjy1984
2004-08-26 07:44
2004.09.12
сворачивание формы


1-1093113718
Арр'акктур
2004-08-21 22:41
2004.09.12
гибрид TTreeView с TListView


3-1092635311
Shap
2004-08-16 09:48
2004.09.12
DBGrid + DBNavigator


10-1037005934
Minibox
2002-11-11 12:12
2004.09.12
Midas (DCOM)-приложения не работают после установки VS.NET





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский