BCB6 从TClientDataSet 和 TDBGrid 的内容里，导出Excel

云魂工作室-AKAI

于 2014-05-15 11:38:11 发布

阅读量1.6k

点赞数

分类专栏： C++ Builder c/c++ 心路历程

本文链接：https://blog.youkuaiyun.com/limuyun/article/details/25880595

版权

这段代码演示了如何在BCB6环境下，从TClientDataSet对象和TDBGrid组件中导出数据到Excel文件。它首先遍历TDBGrid的列标题，然后逐行读取TClientDataSet的内容，将其值写入Excel工作表。最后，如果在数据集中没有记录，则不进行导出，否则创建一个新的Excel文件并显示。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

//导出数据到excel
bool TForm1::Export_XLS(Variant vExcelApp,Variant Workbook,Variant vSheet,TClientDataSet * ds_Dataset, TDBGrid * dbgrd)
{
      bool bflag = true;
      try
      {
            int i,j,i_unvisible = 0;
            int nRow = 1;
            int nCol = 1;
            AnsiString title = "";
            for (i = 0;i<dbgrd->Columns->Count;i++)
            {
                 if (dbgrd->Columns->Items[i]->Visible == true)
                 {
                       title = dbgrd->Columns->Items[i]->Title->Caption;
                       vSheet.OlePropertyGet((Variant)"Cells",(Variant)nRow,(Variant)nCol).OlePropertySet((Variant)"Value",title.c_str());
                       nCol++;
                 }
            }
            ds_Dataset->First();
            j=0;
            while(!ds_Dataset->Eof)
            {
                j+

最低0.47元/天解锁文章