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

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

云魂工作室-AKAI

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

阅读量1.6k

点赞数

CC 4.0 BY-SA版权

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

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

心路历程同时被 3 个专栏收录

16 篇文章

订阅专栏

c/c++

14 篇文章

订阅专栏

C++ Builder

7 篇文章

订阅专栏

这段代码演示了如何在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++;
                i_unvisible = 0;
                for(int i=0;i<dbgrd->Columns->Count;i++)
                {
                    if(!dbgrd->Columns->Items[i]->Visible)
                    {
                        i_unvisible++;
                        continue;
                    }
                    TField * tfd = ds_Dataset->Fields->operator [](i);
                    AnsiString colName = tfd->FieldName;
                    AnsiString colValue = ds_Dataset->FieldByName(colName)->AsString.c_str();
                    vSheet.OlePropertyGet((Variant)"Cells",(Variant)j+1,(Variant)i+1-i_unvisible).OlePropertySet((Variant)"Value",colValue.c_str());
                }
                ds_Dataset->Next();
            }
      }
      catch(...)
      {
            bflag = false;
            return bflag;
      }
      return bflag;
}
void __fastcall TForm1::btn_out_excelClick(TObject *Sender)
{
    if(this->ClientDataSet1->RecordCount ==0 )
    {

      return;

    }
    Variant vExcelApp,vSheet,Workbook;
    try
      {
            vExcelApp = Variant::CreateObject((Variant)"Excel.Application");
            // 隐藏Excel界面
            vExcelApp.OlePropertySet((Variant)"Visible", (Variant)false);

            //建立一个新的excel文件
            Workbook = vExcelApp.OlePropertyGet("WorkBooks").OleFunction("Add");
            Workbook = vExcelApp.OlePropertyGet("ActiveWorkBook");//打开工作簿

            Workbook=vExcelApp.OlePropertyGet("ActiveWorkBook");
            Workbook.OlePropertyGet("Sheets",1).OleProcedure("Select");
            vSheet=Workbook.OlePropertyGet("ActiveSheet");
            
            if (Export_XLS(vExcelApp,Workbook,vSheet,this->ClientDataSet1,this->DBGrid1) == false )
            {
                  vExcelApp.OleFunction((Variant)"Quit");
                  vSheet = Unassigned;
                  Workbook = Unassigned;
                  vExcelApp = Unassigned;
            }
            vExcelApp.OlePropertySet((Variant)"Visible", (Variant)true);
      }
      catch(...)
      {
            vExcelApp.OleFunction((Variant)"Quit");
            vSheet = Unassigned;
            Workbook = Unassigned;
            vExcelApp = Unassigned;
      } 




}