dbeaver 怎么导出postgres数据库表结构 dbeaver数据导出excel

转载
mob64ca14154457 2024-07-12 12:08:22
文章标签 excel string 工作 office insert 文章分类 云原生云计算
if ( SaveDialog->Execute() /*SelectDirectory("请选择存储目录","",Dir)*/ )
     {
         ExportToExcel( DBGrid,/*Dir*/ SaveDialog->FileName);
     }
  
  
  
 
  
  /*****************************************************
函数说明: 讲DBGrid的数据导出到Excel中
参    数: *dbg 指向要导出的TDBGrid对象，saveDir保存的路径
备    注：数据的写入用了windows的粘贴板做暂存后再粘贴到excel，
          这样减少重复多次的读写操作，缩减导出时间。
          另外Excel一个sheet只能有65536行，如果导出的数据行数
          多于65530行(6行用掉了)应该要存到多个sheet，目前没有实现。
******************************************************/
void TF_report::ExportToExcel(TDBGrid *dbg, String saveDir)
{
 /*************************************************************
  以下为TExcelApplication、TExcelWorkbook、TExcelWorksheet方法
  虽然比较推荐，但是Excel进程只能在关闭窗体后才会退出，找不到
  导完数据后关闭的方法。
 ***********************************************************/
    try
    {
       ExcelApplication->Connect();
       ExcelApplication->set_DisplayAlerts(0,false);
    }
    catch(...)
    {
        MessageBox(0, "启动 Excel 出错,可能你没有安装Office .",
                "导出错误", MB_OK | MB_ICONERROR);
        return;
    }
 
    try
    {
      // 隐藏Excel界面
       ExcelApplication->set_Visible(0,false);
    }
    catch (...)
    {
       MessageBox(0, "启动 Excel 出错 .",
                "导出错误", MB_OK | MB_ICONERROR);
         ExcelApplication->Disconnect();
         ExcelApplication->Quit();
         return;
    }
 
 
    //载入模板
    String xls = ExtractFilePath(Application->ExeName) + "Template.xls";
 
    if( !FileExists(xls) )
    {
      MessageBox(0, "Excel模板文件不存在，请重新安装外接软件!",
                "导出错误", MB_OK | MB_ICONERROR);
 
      ExcelApplication->Disconnect();
      ExcelApplication->Quit();
      return;
    }
 
    try
    {
    // 载入模板到Excel
      WideString wxls  = xls;
      ExcelWorkbook->ConnectTo(ExcelApplication->Workbooks->Open(wxls.c_bstr(),
                                                                 TNoParam(),TNoParam(),TNoParam(),TNoParam(),
                                                                 TNoParam(),TNoParam(),TNoParam(),TNoParam(),
                                                                 TNoParam(),TNoParam(),TNoParam(),TNoParam(),0));
    }
    catch( ... )
    {
       MessageBox(0, "Excel模板载入错误!",
                "导出错误", MB_OK | MB_ICONERROR);
 
      ExcelWorkbook->Disconnect();
      ExcelApplication->Disconnect();
      ExcelApplication->Quit();
      return;
    }
 
   try
   {
    // 操作这个工作表
     ExcelWorksheet->ConnectTo( ExcelWorkbook->Worksheets->get_Item( TVariant(1) ) );
 
    // 表格的行数
    int nRowCount(dbg->DataSource->DataSet->RecordCount);
    nRowCount = nRowCount < 2? 2: nRowCount;
 
    if( nRowCount > 65530 )
    {
        ShowMessage("记录多于65530条，受Excel的工作表限制，将只导出前65530条。");
        nRowCount = 65530;
    }
 
    //插入nRowCount-1行
    for ( int i = 0; i < nRowCount -1 ; ++i)
    {
 
        Excel_2k::RangePtr rp;
        rp =  ExcelWorksheet->get_Range(TVariant("A3"),TVariant("A3"));
        rp->EntireRow->Insert(TNoParam());
 
    }
 
    // 表格的列数
    int nColCount(dbg->Columns->Count);
    nColCount = nColCount < 1? 1: nColCount;
 
 
    // 将DBGrid中的数据写入Excel表格
    int pcount = 0 , unpcount;
    String qual,rate,value,cell;
    char ct;
//    cell = "A" + IntToStr(1);
//    value = "我是标题";
//    ExcelWorksheet->get_Range(TVariant(cell),TVariant(cell))->set_Value( TVariant(value) );
 
    TStringList *sl=new TStringList();
    dbg->DataSource->DataSet->First();
    for(int i=0; i<nRowCount; i++)
    {
        value = "";
        for(int j=0; j<nColCount; j++)
        {
            if( j != 1)
            {
               // value = dbg->DataSource->DataSet->FieldByName(dbg->Columns->Items[j]->FieldName)->AsString;
               value += Trim(dbg->DataSource->DataSet->Fields->Fields[j]->AsString) + "/t";
            }
            else
            {   //DBGrid显示时间时自动加上了一个日期，在显示和导出时需要格式化，去掉日期( PS：显示用了字典格式化）
               // value = FormatDateTime("hh:nn:ss",dbg->DataSource->DataSet->FieldByName(dbg->Columns->Items[j]->FieldName)->AsDateTime);
               value += FormatDateTime("hh:nn:ss", Trim(dbg->DataSource->DataSet->Fields->Fields[j]->AsDateTime) ) + "/t";
            }
 
           //   ct = static_cast<char>('A' + j);
           //   cell = ct ;
           //   cell +=  IntToStr(i + 3);
           //   ExcelWorksheet->get_Range(TVariant(cell),TVariant(cell))->set_Value( TVariant(value) );
        }
        sl->Add(value);  //TStringList自动在末尾加上 /n 换行符
        qual = Trim(dbg->DataSource->DataSet->FieldByName("Test_qual")->AsString);
        if( qual == "合格")
           pcount++;
 
        dbg->DataSource->DataSet->Next();
    }
 
    Clipboard()->SetTextBuf(sl->Text.c_str());   //发送到粘贴板
    ExcelWorksheet->get_Range(TVariant("A3"),TVariant("A3"))->Select();
    ExcelWorksheet->Paste();
    ExcelWorksheet->get_Range(TVariant("A1"),TVariant("A1"))->Select();
    Clipboard()->Clear(); //清除粘贴板
 
    unpcount = nRowCount - pcount;
    rate = FormatFloat("0.00",100.0f*pcount/nRowCount);
    rate += "%";
 
    //设置总个数
    value =  IntToStr(nRowCount);
    ct = static_cast<char>('A' + 3);
    cell = ct;
    cell += IntToStr(nRowCount + 4);
    ExcelWorksheet->get_Range(TVariant(cell),TVariant(cell))->set_Value( TVariant(value) );
 
    //合格个数
     value =  IntToStr(pcount);
     ct = static_cast<char>('A' + 8);
     cell = ct;
     cell += IntToStr(nRowCount + 4);
    ExcelWorksheet->get_Range(TVariant(cell),TVariant(cell))->set_Value( TVariant(value) );
 
    //不合格个数
    value =  IntToStr(unpcount);
    ct = static_cast<char>('A' + 10);
     cell = ct ;
     cell += IntToStr(nRowCount + 4);
    ExcelWorksheet->get_Range(TVariant(cell),TVariant(cell))->set_Value( TVariant(value) );
 
 
    //合格率
    value =  rate;
    ct = static_cast<char>('A' + 12);
    cell = ct;
    cell += IntToStr(nRowCount + 4);
    ExcelWorksheet->get_Range(TVariant(cell),TVariant(cell))->set_Value( TVariant(value) );
 
    WideString Dir = saveDir;
    ExcelWorksheet->SaveAs(Dir.c_bstr(),
                             TNoParam(),TNoParam(),TNoParam(),TNoParam(),
                             TNoParam(),TNoParam(),TNoParam(),TNoParam(),0);
 
   }
   catch( ... )
   {
      ExcelWorksheet->Disconnect();
      ExcelWorkbook->Disconnect();
      ExcelApplication->Disconnect();
      ExcelApplication->Quit();
      ExcelQueryTable->Disconnect();
      return;
   }
 
      ExcelWorksheet->Disconnect();
      ExcelWorkbook->Disconnect();
      ExcelApplication->Disconnect();
      ExcelQueryTable->Disconnect();
      ExcelApplication->Quit();
 
 /*************************************************************
  以下为OLE方法,编译时无法判断错误的Excel操作，
  但能在导出后关闭Excel进程。
 ***********************************************************/
   /*
 
     Variant vExcelApp, vSheet,Range;
    try
    {
        vExcelApp = Variant::CreateObject("Excel.Application");
 
    }
    catch(...)
    {
        MessageBox(0, "启动 Excel 出错,可能你没有安装Office .",
                "导出错误", MB_OK | MB_ICONERROR);
        return;
    }
 
    try
    {
      // 隐藏Excel界面
     vExcelApp.OlePropertySet("Visible", false);
 
    }
    catch (...)
    {
       MessageBox(0, "启动 Excel 出错 .",
                "导出错误", MB_OK | MB_ICONERROR);
 
      vExcelApp.OleFunction("Quit");
       vSheet = Unassigned;
       vExcelApp = Unassigned;
       return;
    }
    //载入模板
    String xls = ExtractFilePath(Application->ExeName) + "Template.xls";
 
    if( !FileExists(xls) )
    {
      MessageBox(0, "Excel模板文件不存在，请重新安装外接软件!",
                "导出错误", MB_OK | MB_ICONERROR);
 
 
      vExcelApp.OleFunction("Quit");
      vSheet = Unassigned;
      vExcelApp = Unassigned;
      return;
    }
 
    try
    {
    // 载入模板到Excel
    vExcelApp.OlePropertyGet("Workbooks").OleFunction("Open",xls.c_str()); // 工作表
 
    }
    catch( ... )
    {
       MessageBox(0, "Excel模板载入错误!",
                "导出错误", MB_OK | MB_ICONERROR);
 
 
      vExcelApp.OleFunction("Quit");
      vSheet = Unassigned;
      vExcelApp = Unassigned;
      return;
    }
    // 操作这个工作表
    vSheet = vExcelApp.OlePropertyGet("ActiveWorkbook").OlePropertyGet("Sheets", 1);
 
 
    // 表格的行数
    int nRowCount(dbg->DataSource->DataSet->RecordCount);
    nRowCount = nRowCount < 2? 2: nRowCount;
 
    //插入nRowCount-1行
    for ( int i = 0; i < nRowCount -1 ; ++i)
    {
      vSheet.OlePropertyGet("Rows",3).OleProcedure("Insert");
 
    }
 
    // 表格的列数
    int nColCount(dbg->Columns->Count);
    nColCount = nColCount < 1? 1: nColCount;
 
    if( nRowCount > 65530 )
    {
        ShowMessage("记录多于65530条，受Excel的工作表限制，将只导出前65530条。");
        nRowCount = 65530;
    }
    S
    TStringList *sl=new TStringList();
    int pcount = 0 , unpcount;
    String qual,rate,value ="";
 
    dbg->DataSource->DataSet->First();
    for(int i=0; i<nRowCount; i++)
    {   value ="";
        for(int j=0; j<nColCount; j++)
        {
            if( j != 1)
            {
              //  value = dbg->DataSource->DataSet->FieldByName(dbg->Columns->Items[j]->FieldName)->AsString;
              value += Trim(dbg->DataSource->DataSet->Fields->Fields[j]->AsString) + "/t";
            }
            else
            {   //DBGrid显示时间时自动加上了一个日期，在显示和导出时需要格式化，去掉日期( PS：显示用了字典格式化）
               // value = FormatDateTime("hh:nn:ss",dbg->DataSource->DataSet->FieldByName(dbg->Columns->Items[j]->FieldName)->AsDateTime);
               value += FormatDateTime("hh:nn:ss",Trim(dbg->DataSource->DataSet->Fields->Fields[j]->AsDateTime)) + "/t";
            }
           // vSheet.OlePropertyGet("Cells", i + 3, j + 1).OlePropertySet("Value",value.c_str());
 
 
        }
        sl->Add(value);
        qual = Trim(dbg->DataSource->DataSet->FieldByName("Test_qual")->AsString);
        if( qual == "合格")
           pcount++;
 
        dbg->DataSource->DataSet->Next();
    }
 
 
    vExcelApp.Exec(PropertyGet("Range")<<"A3").Exec(Procedure("Select"));
 
    Clipboard()->SetTextBuf(sl->Text.c_str());   //发送到粘贴板
    vExcelApp.OlePropertyGet("ActiveSheet").OleProcedure("Paste");
 
    vSheet.OlePropertyGet("Cells", 1, 1).OleProcedure("Select"); //去除粘贴造成的选区
 
    Clipboard()->Clear(); //清除粘贴板
 
    unpcount = nRowCount - pcount;
 
    rate = FormatFloat("0.00",100.0f*pcount/nRowCount);
    rate += "%";
 
    //设置总个数
 
    vSheet.OlePropertyGet("Cells", nRowCount + 4,4).OlePropertySet("Value",IntToStr(nRowCount).c_str());
 
    //合格个数
 
    vSheet.OlePropertyGet("Cells", nRowCount + 4,9).OlePropertySet("Value",IntToStr(pcount).c_str());
 
    //不合格个数
 
    vSheet.OlePropertyGet("Cells", nRowCount + 4,11).OlePropertySet("Value",IntToStr(unpcount).c_str());
 
    //合格率
    vSheet.OlePropertyGet("Cells", nRowCount + 4,13).OlePropertySet("Value",rate.c_str());
 
   // 保存Excel文档并退出
   try
   {
    vExcelApp.OlePropertyGet("ActiveWorkbook").OleFunction("SaveAs", saveDir.c_str());
 
   }
   catch( ... )
   {
      vExcelApp.OleFunction("Quit");
      vSheet = Unassigned;
      vExcelApp = Unassigned;
 
      return;
   }
 
    vExcelApp.OleFunction("Quit");
    vSheet = Unassigned;
    vExcelApp = Unassigned;
 
  */
    // 工作结束
    MessageBox(0, "导出成功",
            "导出到Excel", MB_OK | MB_ICONINFORMATION);
 
 
}
本文章为转载内容，我们尊重原作者对文章享有的著作权。如有内容错误或侵权问题，欢迎原作者联系我们进行内容更正或删除文章。