Опять Excel

← →
KPY © (2003-02-13 15:19) [0]

Нужно заполнить таблицу 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 открылся и закрылся. Подскажите пожалуйста что творить.

← →
Steven (2003-02-13 15:22) [1]

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

← →
KPY © (2003-02-13 15:33) [2]

Плиз
Krivtsov@nnc.kz

← →
KPY © (2003-02-13 16:16) [3]

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

← →
mate © (2003-02-13 16:22) [4]

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

← →
KPY © (2003-02-13 16:29) [5]

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

← →
mate © (2003-02-13 16:53) [6]

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

← →
Pakshin A. S. (2003-02-13 18:29) [7]

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

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

Опять Excel Найти похожие ветки