谁能提供BCB控制的EXCEL的例子, Variant Or Com!

maxtry 2000-08-07 08:43:00

...全文

172 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

maxtry 2000-08-08

打赏
举报

Hank:　你的答复已接受，你还可以提供COM的例子吗？

Hank 2000-08-08

打赏
举报

下面的是我从我的程序里面直接截取的代码，可以直接修改调用！

//********************//
SaveDialog1->Filter="*.XLS|*.XLS";
SaveDialog1->DefaultExt="XLS";
if (SaveDialog1->Execute())
{
try
{
Variant MSExcel=CreateOleObject("Excel.Application");
MSExcel.OlePropertyGet("WorkBooks").OleProcedure("Add");
MSExcel.OlePropertySet("Visible",False);
Muster->Account1->First();
for (int i=1;i<=Muster->Account1->RecordCount;i++)
{
MSExcel.OlePropertyGet("ActiveWorkBook").OlePropertyGet("ActiveSheet").OlePropertyGet("Cells",i,1).OlePropertySet("NumberFormat","@");
MSExcel.OlePropertyGet("ActiveWorkBook").OlePropertyGet("ActiveSheet").OlePropertyGet("Cells",i,1).OlePropertySet("Value",Muster->Account1->FieldByName("BANK")->AsString);
MSExcel.OlePropertyGet("ActiveWorkBook").OlePropertyGet("ActiveSheet").OlePropertyGet("Cells",i,2).OlePropertySet("NumberFormat","0.00");
MSExcel.OlePropertyGet("ActiveWorkBook").OlePropertyGet("ActiveSheet").OlePropertyGet("Cells",i,2).OlePropertySet("Value",Muster->Account1->FieldByName("FACT")->AsFloat);
Muster->Account1->Next();
}
MSExcel.OlePropertyGet("ActiveWorkBook").OleProcedure("SaveAs",SaveDialog1->FileName);
MSExcel.OlePropertyGet("ActiveWorkBook").OleProcedure("Close");
}
catch(...)
{
Application->MessageBox("没有安装Microsoft Excel办公软件！","系统信息",MB_OK+MB_ICONWARNING);
}
}

maxtry 2000-08-07