Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.04.03;
Скачать: CL | DM;

Вниз

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]

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



Страницы: 1 вся ветка

Текущий архив: 2003.04.03;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.026 c
1-6441
lexa
2003-03-23 22:01
2003.04.03
Как создать ссылку в тексте


1-6544
DelphiN!
2003-03-21 12:13
2003.04.03
Как узнать handl текущего компонента и окна


14-6796
romychk
2003-03-16 16:11
2003.04.03
mp3 плейер


9-6288
Константин
2002-10-30 10:24
2003.04.03
OpenGL - различия в инициализации в Winde и Linux


3-6412
sammy
2003-03-16 10:20
2003.04.03
Помогите со структурой таблицы Access