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

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

Опять Excel [D6, Paradox]


KPY ©   (2003-02-13 15:19:00) 

Нужно заполнить таблицу Excel
Делаю

procedure TForm1.Button1Click(Sender: TObject);
var
vExcel, xlvariant: OLEVariant;
begin
vExcel := CreateOleObject("Excel.Application");
vExcel.Workbooks.Add(EmptyParam);
vExcel.Cells[1, 1].Value := 124512;
vExcel.Cells[1, 2].Value := "С добрым утром";
vExcel.ActiveWorkBook.SaveAs("c:\Test");
vExcel.ActiveWorkBook.Close;
vExcel.Visible := False;
end;

В результате создается книга данные записываются но видно что Excel открылся и закрылся. Подскажите пожалуйста что творить.


Alik   (2003-02-16 23:26:00) [1]

Я вот тут тоже занимался с Экселькой, нашел хороший компонент - FlexCel! В результате забацал клевую базу данных! Скачай его и проблемы твои решаться!


KPY   (2003-02-14 13:42:00) [2]

mate ©
Такого метода у Excel нет
Pakshin A. S.
А это может решить проблему! Спасибо!


Pakshin A. S.   (2003-02-13 18:29:00) [3]

Есть компонент F1BOOK1 во вкладке ActiveX...


mate   (2003-02-13 16:53:00) [4]

Попробуй последнее
Excel.Enabled := False;


KPY   (2003-02-13 16:29:00) [5]

Только что попробовал, то-же самое
Хотя теперь не видно что это именно Excel открывается, просто экран моргает. Может это вообще невозможно?


mate   (2003-02-13 16:22:00) [6]

Попробуй вот так:
uses
ComObj, ActiveX;
var
Excel: Variant;
begin
Excel := CreateOleObject("Excel.Application");
Excel.Visible := False;


KPY   (2003-02-13 16:16:00) [7]

У тебя в примере точно так-же открывается Excel а потом закрывается.Это заметно.Может как нибудь можно записать не запуская Excel (например в шаблон) или так чтобы этого хотябы не было видно.


KPY   (2003-02-13 15:33:00) [8]

Плиз
Krivtsov@nnc.kz


Steven   (2003-02-13 15:22:00) [9]

Могу кинуть компонентик с исходниками =)


Наверх

Титульная страница Поиск, карта сайта Написать письмо