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

最新推荐文章于 2017-05-05 17:52:00 发布

云魂工作室-AKAI

最新推荐文章于 2017-05-05 17:52:00 发布

阅读量1.5k

点赞数

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

本文链接：https://blog.csdn.net/limuyun/article/details/25880595

版权

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

摘要由CSDN通过智能技术生成

//导出数据到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+