如何cb中建立Excel文件？

[zxq80]

怎样创建Excel文件并将一个Table控件中的数据存到这个文件中去，谢谢！

[yao_yuan]

可以试一下TBatchMove控件

[Hank]

以前写过一个，你可以直接参考，具体数据部分你就直接修改了，参看代码：

//********************//

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);
}
}

[qzh]

我也要