Ошибка при выводе отчета в Excel

[Valik93]

Ошибка при вызове отчета, Выдает ошибки:
[C++ Error] Unit6.cpp(55): E2268 Call to undefined function 'CreateOleObject'
[C++ Error] Unit6.cpp(169): E2268 Call to undefined function 'CreateOleObject'

Вот мой код:


void __fastcall TForm6::Button2Click(TObject *Sender)
{

Variant vVarCell;
String x;
Variant vVarTable;
String k1;
String k2;
String k3;
String k4;
String k5;
String k6;
Variant vVarRange;
String str;
Variant vVarParagraph ;

Variant vVarParagraphs ;
Variant vVarApp;
Variant vVarDocs;
Variant vVarDoc;
Variant v;

int index,i,j;
vVarApp = CreateOleObject("Excel.Application" );
vVarDocs=vVarApp.OlePropertyGet("Do cuments");
vVarApp.OlePropertySet("Visible", 1);
vVarDocs.OleProcedure ("Add"); //("Open", "D:\\Operand.xls");
vVarDoc=vVarDocs.OleFunction("Item" ,1);
vVarParagraphs=vVarDoc.OlePropertyG et("Paragraphs");
str="Îò÷åò";
vVarParagraphs.OleProcedure("Add");
vVarParagraph=vVarParagraphs.OleFun ction("Item",1);
v=vVarParagraph.OlePropertyGet("Ran ge").OlePropertyGet("Font");
v.OlePropertySet("Color",255);
v.OlePropertySet("Size",20);
v.OlePropertySet("Animation",1);
vVarParagraph.OlePropertyGet("Range ").OlePropertySet("Text",str.c_str( ));
vVarParagraph.OlePropertySet("Align ment",1);

vVarParagraphs.OleProcedure("Add");
vVarParagraphs.OleProcedure("Add");


vVarCell=vVarTable.OleFunction("Cel l",1,1);
vVarCell.OleFunction("Select");

v = vVarApp.OlePropertyGet("Selection") .OlePropertyGet("Font");

v.OlePropertySet("Size",16);
v.OlePropertySet("Underline",0);
v.OlePropertySet("Color",clRed);
vVarCell.OlePropertyGet("Range").Ol ePropertySet("Text","Êîä");

vVarCell=vVarTable.OleFunction("Cel l",1,2);
vVarCell.OleFunction("Select");

v = vVarApp.OlePropertyGet("Selection") .OlePropertyGet("Font");

v.OlePropertySet("Size",16);
v.OlePropertySet("Underline",0);
v.OlePropertySet("Color",clRed);
vVarCell.OlePropertyGet("Range").Ol ePropertySet("Text","¹ àóäèòîðèè");

vVarCell=vVarTable.OleFunction("Cel l",1,3);
vVarCell.OleFunction("Select");

v = vVarApp.OlePropertyGet("Selection") .OlePropertyGet("Font");

v.OlePropertySet("Size",16);
v.OlePropertySet("Underline",0);
v.OlePropertySet("Color",clRed);
vVarCell.OlePropertyGet("Range").Ol ePropertySet("Text","Íàçâàíèå àóäèòîðèè");

vVarCell=vVarTable.OleFunction("Cel l",1,4);
vVarCell.OleFunction("Select");

v = vVarApp.OlePropertyGet("Selection") .OlePropertyGet("Font");

v.OlePropertySet("Size",16);
v.OlePropertySet("Underline",0);
v.OlePropertySet("Color",clRed);
vVarCell.OlePropertyGet("Range").Ol ePropertySet("Text","Ïëîùàäü");

vVarCell=vVarTable.OleFunction("Cel l",1,5);
vVarCell.OleFunction("Select");

v = vVarApp.OlePropertyGet("Selection") .OlePropertyGet("Font");

v.OlePropertySet("Size",16);
v.OlePropertySet("Underline",0);
v.OlePropertySet("Color",clRed);
vVarCell.OlePropertyGet("Range").Ol ePropertySet("Text","Âèä àóäèòîðèè");


vVarCell=vVarTable.OleFunction("Cel l",1,6);
vVarCell.OleFunction("Select");

v = vVarApp.OlePropertyGet("Selection") .OlePropertyGet("Font");

v.OlePropertySet("Size",16);
v.OlePropertySet("Underline",0);
v.OlePropertySet("Color",clRed);
vVarCell.OlePropertyGet("Range").Ol ePropertySet("Text","Êîëè÷åñòâî ïîñàäî÷íûõ ìåñò");
}

[Valik93]

void __fastcall TForm6::Button1Click(TObject *Sender)
{
Variant vVarCell;
String x;
Variant vVarTable;
String k1;
String k2;
String k3;
String k4;
String k5;
String k6;
Variant vVarRange;
String str;
Variant vVarParagraph ;

Variant vVarParagraphs ;
Variant vVarApp;
Variant vVarDocs;
Variant vVarDoc;
Variant v;
int index,i,j;

vVarApp = CreateOleObject("Exel.Application" );
vVarDocs=vVarApp.OlePropertyGet("Do cuments");
vVarApp.OlePropertySet("Visible", 1);
vVarDocs.OleProcedure ("Add"); //("Open", "H:\\Operand.xls");
vVarDoc=vVarDocs.OleFunction("Item" ,1);
vVarParagraphs=vVarDoc.OlePropertyG et("Paragraphs");
str="Îò÷åò";
vVarParagraphs.OleProcedure("Add");
vVarParagraph=vVarParagraphs.OleFun ction("Item",1);
v=vVarParagraph.OlePropertyGet("Ran ge").OlePropertyGet("Font");
v.OlePropertySet("Color",255);
v.OlePropertySet("Size",20);
v.OlePropertySet("Animation",1);
vVarParagraph.OlePropertyGet("Range ").OlePropertySet("Text",str.c_str( ));
vVarParagraph.OlePropertySet("Align ment",1);

vVarParagraphs.OleProcedure("Add");
vVarParagraphs.OleProcedure("Add");


vVarCell=vVarTable.OleFunction("Cel l",1,1);
vVarCell.OleFunction("Select");

v = vVarApp.OlePropertyGet("Selection") .OlePropertyGet("Font");

v.OlePropertySet("Size",16);
v.OlePropertySet("Underline",0);
v.OlePropertySet("Color",clRed);
vVarCell.OlePropertyGet("Range").Ol ePropertySet("Text","Êîä");

vVarCell=vVarTable.OleFunction("Cel l",1,2);
vVarCell.OleFunction("Select");

v = vVarApp.OlePropertyGet("Selection") .OlePropertyGet("Font");

v.OlePropertySet("Size",16);
v.OlePropertySet("Underline",0);
v.OlePropertySet("Color",clRed);
vVarCell.OlePropertyGet("Range").Ol ePropertySet("Text","¹ àóäèòîðèè");


vVarCell=vVarTable.OleFunction("Cel l",1,3);
vVarCell.OleFunction("Select");

v = vVarApp.OlePropertyGet("Selection") .OlePropertyGet("Font");

v.OlePropertySet("Size",16);
v.OlePropertySet("Underline",0);
v.OlePropertySet("Color",clRed);
vVarCell.OlePropertyGet("Range").Ol ePropertySet("Text","Íàçâàíèå àóäèòîðèè");


vVarCell=vVarTable.OleFunction("Cel l",1,4);
vVarCell.OleFunction("Select");

v = vVarApp.OlePropertyGet("Selection") .OlePropertyGet("Font");

v.OlePropertySet("Size",16);
v.OlePropertySet("Underline",0);
v.OlePropertySet("Color",clRed);
vVarCell.OlePropertyGet("Range").Ol ePropertySet("Text","Ïëîùàäü");

vVarCell=vVarTable.OleFunction("Cel l",1,5);
vVarCell.OleFunction("Select");

v = vVarApp.OlePropertyGet("Selection") .OlePropertyGet("Font");

v.OlePropertySet("Size",16);
v.OlePropertySet("Underline",0);
v.OlePropertySet("Color",clRed);
vVarCell.OlePropertyGet("Range").Ol ePropertySet("Text","Âèä àóäèòîðèè");


vVarCell=vVarTable.OleFunction("Cel l",1,6);
vVarCell.OleFunction("Select");

v = vVarApp.OlePropertyGet("Selection") .OlePropertyGet("Font");

v.OlePropertySet("Size",16);
v.OlePropertySet("Underline",0);
v.OlePropertySet("Color",clRed);
vVarCell.OlePropertyGet("Range").Ol ePropertySet("Text","Êîëè÷åñòâî ïîñàäî÷íûõ ìåñò");
}

[FataLL]

Замечательный код. Включи заголовок

#include <ComObj.hpp>

:-)