bcb中操作excel文件

[zhao2008gang]

请教：
我现在想在bcb中制作一个报表，把查询到的数据以图表的形式显示出来，想点击生excel文件方便打印等操作。
现在想通过ole的方式实现，以下是我的代码
Variant ex,newxls;
int i,j=1;
try
{
ex=CreateOleObject("excel.Application"); //启动excel
}
catch(...)
{
ShowMessage("无法启动Excel");
}
ex.OlePropertySet("Visible",(Variant)true);
newxls=(ex.OlePropertyGet("workbooks")).OleFunction("Add");
Table1->Active=true;
//打开数据库
Table1->First();
for(i=0;i<Table1->FieldCount;i++)
//将字段名写到工作簿第一行
{
(ex.OleFunction("Cells")).OlePropertySet("Item",(Variant)1,(Variant)(i+1),(Variant)(Table1->Fields->Fields[i]->FieldName));
}
while(!Table1->Eof)
//将数据中的记录依次记录到工作簿中
{
j=j+1;
for(i=0;i<Table1->FieldCount;i++)
{
(ex.OleFunction("Cells")).OlePropertySet("Item",(Variant)j,(Variant)(i+1),(Variant)(Table1->Fields->Fields[i]->AsString));
}
Table1->Next();
}
wxls.OleFunction("SavaAs",(Variant)"c:\\1.xls");
ex.OleFunction("Quit");

现在出现的问题是 将名字写到工作簿第一行那段代码有错误，总是写不进去 望高手教我怎么改正
(ex.OleFunction("Cells")).OlePropertySet("Item",(Variant)1,(Variant)(i+1),(Variant)(Table1->Fields->Fields[i]->FieldName));
就这一段，谢谢了！

[路过路人乙]

 Variant Ex;
   Variant WorkBook1;
   Variant newxls;
   Ex=CreateOleObject ("Excel.Application");
   Ex.OlePropertyGet("WorkBooks").OleFunction("Add");
   WorkBook1=Ex.OlePropertyGet("ActiveWorkBook");
   newxls= WorkBook1.OlePropertyGet("ActiveSheet");
   WorkBook1.PG("Sheets", 1).OleProcedure("Select");
   for(i=0;i <Table1-> FieldCount;i++) 
   {
   newxls.OlePropertyGet("Cells", 1, i).OlePropertySet("Value",Table1-> Fields-> Fields[i]-> FieldName);
   }

[路过路人乙]

WorkBook1.PG("Sheets", 1).OleProcedure("Select");
换成
WorkBook1.OlePropertyGet("Sheets", 1).OleProcedure("Select");

[miao001]

Variant WB = ex.OlePropertyGet("Workbooks").OlePropertyGet("ActiveWorkbook")
Variant Sh = Wb.OlePropertyGet("sheets").OlepropertyGet("Item",1)
//用个循环，一格格写
Sh.OlePropertyGet("Cells",x,y).OlePropertySet("Value",strValue);

[zhao2008gang]

Variant Variant::OlePropertyGet(const String& name, P1 p1, P2 p2)
{
TAutoArgs<2> args;
args[1] = p1; args[2] = p2;
return OlePropertyGet(name, static_cast<TAutoArgsBase*>(&args));
}
报错：Project excel.exe raised exception class EOleSysError with message '发生意外'. Process stopped. Use Step or Run to continue.
请问是什么问题！

[zhao2008gang]

Variant Variant::OlePropertyGet(const String& name, P1 p1, P2 p2)
{
TAutoArgs<2> args;
args[1] = p1; args[2] = p2;
return OlePropertyGet(name, static_cast<TAutoArgsBase*>(&args));
}
报错：Project excel.exe raised exception class EOleSysError with message '发生意外'. Process stopped. Use Step or Run to continue.
请问是什么问题！

[qianchuizi]

Variant Variant::OlePropertyGet(const String& name, P1 p1, P2 p2)
{
TAutoArgs <2> args;
args[1] = p1; args[2] = p2;
return OlePropertyGet(name, static_cast <TAutoArgsBase*>(&args));
}
报错：Project excel.exe raised exception class EOleSysError with message '发生意外'. Process stopped. Use Step or Run to continue.
请问是什么问题！
注:我是用BC++调用VFP的DLL设的多重使用.

[lwj9123]

ex.OleFunction("Cells")).OlePropertySet("Item",(Variant)j,(Variant)(i+1),(Variant)(Table1->Fields->Fields[i]->AsString.c_str())