Undeclared identifier: CreateOleObject Уважаемые мастера, помог

← →
denary (2003-03-14 01:30) [0]

Undeclared identifier: "CreateOleObject" Уважаемые мастера, помогите утопающему! Не могу выкинуть DataSet в Excel.
Что ему сделать, чтоб оно заработало? Вот текст процедуры:

uses ..... Variants, Excel2000, ADODB;
.....

procedure TForm2.ToExcelClick(Sender: TObject);
var
BeginCol, BeginRow, j :integer;
RowCount, ColCount :integer;
ExcelApp, Workbook, Range, Cell1, Cell2, ArrayData :Variant;
Begin
BeginCol:=1;
BeginRow:=9;

RowCount:=Form2.Query1.RecordCount;
ColCount:=Form2.Query1.FieldDefs.Count;

ExcelApp := CreateOleObject("Excel.Application"); - не работает, выдает ошибку
{ExcelOLEObject1.Create(Query1);
ExcelApp := ExcelOLEObject1.Copy;}
ExcelApp.Application.EnableEvents:=false;
Workbook:=ExcelApp.WorkBooks.Add("D:\users\Geo1.xls");
ArrayData:=VarArrayCreate([1, RowCount, 1, ColCount], varVariant);
Form2.Query1.DisableControls;
Form2.Query1.First;
While Not Form2.Query1.Eof do
begin
for J:=1 to Form2.Query1.FieldDefs.Count do
begin
ArrayData[Form2.Query1.RecNo, J]:=Form2.Query1.Fields[j-1].Value;
End;
Form2.Query1.Next;
End;
Form2.Query1.EnableControls;
Cell1 :=WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];
Cell2 :=WorkBook.WorkSheets[1].Cells[BeginRow + RowCount -1, BeginCol + ColCount -1];
Range:= WorkBook.WorkSheets[1].Range[Cell1, Cell2];
Range.Value:=ArrayData;
ExcelApp.Visible:=true;

end;

← →
theodor_iv (2003-03-14 03:51) [1]

В uses дописать модуль ComObj

← →
denary (2003-03-18 00:55) [2]

В uses дописал все, что можно было. Не работает!
Может кто-нибудь объяснить?

← →
theodor_iv (2003-03-18 03:38) [3]

> ExcelApp := CreateOleObject("Excel.Application"); - не работает,
> выдает ошибку

Может, хотя бы скажешь, какая ошибка?

← →
denary (2003-03-21 01:17) [4]

Ошибку написал в самом начале:
Undeclared identifier: "CreateOleObject"

← →
Palladin (2003-03-21 01:37) [5]

> denary (21.03.03 01:17)

тебе в самом начале ответили

uses comobj;

← →
denary (2003-03-22 01:00) [6]

Спасибо за помощь, работает.
Была грамматическая ошибка.
Господа мастера, извините за тупость :(

Undeclared identifier: CreateOleObject Уважаемые мастера, помог Найти похожие ветки