（19）uniGUI for C++ builder下如何使用FlexCel实现EXCEL表格生成和下载

(中行雷威2018.8.12)

（同一个世界，同一个梦想，交流学习C++Builder XE10，传承c++builder的魅力！欢迎各地朋友加入我的QQ群484979943、860634510、299497712,进群密码“BCB”，同时也请将该群号广为宣传，希望能够广集各方高手，共同进步。如需下载开发工具及源代码请加入我的QQ群。）

【阅读倡议】

1、有问题请留言;

2、没问题请点赞;

3、看连载请加群;

4、下源码请加群;

【开发工具】

1、C++Builder10.2.3tokyo

2、FMSoft_uniGUI_Complete_Professional_1.10.0build1472（正版）

3、TMS FlexCel for VCL & FMX 6.21.0.0 XE10.2（破解版，下载https://download.csdn.net/download/dlboy2018/10598597，或到我的QQ群里的B10目录下载）

本人主笔的国内第一本uniGUI教学案例代码已诞生，分为cbuilder和delphi两个版本，买代码送手册，需要的朋友可以加入我的QQ技术交流群484979943、860634510、299497712给我（群主）留言。资料简介：https://blog.csdn.net/dlboy2018/article/details/88923832

本例子将详细讲解如何通过FlexCel控件实现EXCEL表格的生成和下载，本文讲三个案例，一个是VCL下如何生成表格并打开，一个是UNIGUI下如何生成表格并下载，第三个是UNIGUI下如何将UniQuery的查询结果保存并下载到本地。本教程的源代码请到我的QQ群共享文件A02-源代码里下载。

第一部分、VCL下案例

FlexCel的安装很简单，直接setup就可以了，我设置的安装目录是C:\TMSSoftware，安装后C:\TMSSoftware\FlexCelVCLNT\Demo\cpp下是演示案例，C:\TMSSoftware\FlexCelVCLNT\Documentation目录下是帮助文件，Examples-》c++ -》是c版的案例和代码。

一、创建一个VCL项目

创建一个项目，在FormMain主窗口中添加一个按钮，放置一个SaveDialog保存文件控件，即可。

1、UnitMain.h文件

//---------------------------------------------------------------------------

#ifndef UnitMainH

#define UnitMainH

//---------------------------------------------------------------------------

#include <System.Classes.hpp>

#include <Vcl.Controls.hpp>

#include <Vcl.StdCtrls.hpp>

#include <Vcl.Forms.hpp>

#include <Vcl.Buttons.hpp>

#include <Vcl.Dialogs.hpp>

#include <VCL.FlexCel.Core.hpp>

#include <FlexCel.XlsAdapter.hpp>

//---------------------------------------------------------------------------

class TFormMain : public TForm

{

__published: // IDE-managed Components

TBitBtn *BitBtn1;

TSaveDialog *SaveDialog1;

void __fastcall BitBtn1Click(TObject *Sender);

void __fastcall FormCreate(TObject *Sender);

void __fastcall writeToExcel(TExcelFile *xls);//写表格文件

void __fastcall saveToExcel(TExcelFile *xls); //存表格文件

private: // User declarations

public: // User declarations

__fastcall TFormMain(TComponent* Owner);

};

//---------------------------------------------------------------------------

extern PACKAGE TFormMain *FormMain;

//---------------------------------------------------------------------------

#endif

2、UnitMain.cpp文件

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "UnitMain.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TFormMain *FormMain;

//---------------------------------------------------------------------------

__fastcall TFormMain::TFormMain(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TFormMain::BitBtn1Click(TObject *Sender)

{

TExcelFile *xls = new TXlsFile(true);

__try

{

writeToExcel(xls);//写表格

saveToExcel(xls);//存表格

}

__finally

{

delete xls;

}

// ---------------------------------------------------------------------------

void __fastcall TFormMain::writeToExcel(TExcelFile *xls)

{

int rowCount=5,colCount=3;

xls->NewFile(1);//创建一个表格

// 写内容

for(int i=1;i<=rowCount;i++)

for(int j=1;j<colCount;j++)

{

xls->SetCellValue(i, j, TCellValue::Create((double)i*j));

}

xls->PrintLandscape = true;

}

//-----------------------------------------------------------------------------

void __fastcall TFormMain::saveToExcel(TExcelFile *xls)

{

if (!SaveDialog1->Execute())

return;

xls->Save(SaveDialog1->FileName);//保存表格

if (MessageDlg("打开生成的表格文件看看不？", mtConfirmation,

TMsgDlgButtons() << mbYes << mbNo, 0) == mrYes)

{

ShellExecute(0, L"open", SaveDialog1->FileName.c_str(), NULL, NULL,SW_SHOWNORMAL);

}

//-----------------------------------------------------------------------------

void __fastcall TFormMain::FormCreate(TObject *Sender)

{

SaveDialog1->DefaultExt="xlsx";

}

//---------------------------------------------------------------------------

第二部分、UNIGUI下案例

一、创建一个UniGui项目

只需要放置一个UniBitBtn按钮即可

1、Main.h文件

//---------------------------------------------------------------------------

#ifndef MainH

#define MainH

#include "uniBitBtn.hpp"

#include "uniButton.hpp"

#include "uniGUIBaseClasses.hpp"

#include "uniGUIClasses.hpp"

#include <System.Classes.hpp>

#include <Vcl.Controls.hpp>

#include <Vcl.Forms.hpp>

//---------------------------------------------------------------------------

#include <VCL.FlexCel.Core.hpp>

#include <FlexCel.XlsAdapter.hpp>

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <uniGUIForm.hpp>

#include <uniGUIRegClasses.hpp>

#include "uniBitBtn.hpp"

#include "uniButton.hpp"

#include "uniGUIBaseClasses.hpp"

#include "uniGUIClasses.hpp"

//---------------------------------------------------------------------------

class TMainForm : public TUniForm

{

__published: // IDE-managed Components

TUniBitBtn *UniBitBtn1;

void __fastcall writeToExcel(TExcelFile *xls);//写表格

void __fastcall saveToExcel(TExcelFile *xls); //存表格

void __fastcall UniBitBtn1Click(TObject *Sender);

private: // User declarations

public: // User declarations

__fastcall TMainForm(TComponent* Owner);

};

//---------------------------------------------------------------------------

TMainForm *MainForm(void);

//---------------------------------------------------------------------------

#endif

2、Main.cpp文件

//---------------------------------------------------------------------------

#include <vcl.h>

#include <uniGUIVars.hpp>

#pragma hdrstop

#include "Main.h"

#include "MainModule.h"

#include "ServerModule.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma link "uniBitBtn"

#pragma link "uniButton"

#pragma link "uniGUIBaseClasses"

#pragma link "uniGUIClasses"

#pragma link "uniBitBtn"

#pragma link "uniButton"

#pragma link "uniGUIBaseClasses"

#pragma link "uniGUIClasses"

#pragma resource "*.dfm"

//---------------------------------------------------------------------------

TMainForm *MainForm(void)

{

return( (TMainForm *)UniMainModule()->GetFormInstance(__classid(TMainForm)));

}

//---------------------------------------------------------------------------

__fastcall TMainForm::TMainForm(TComponent* Owner)

: TUniForm(Owner)

{

}

//---------------------------------------------------------------------------

void TE39ED013A2244DC798ABA9F61211176E__RegisterFormClass() {

Uniguivars::RegisterAppFormClass(__classid(TMainForm));

Uniguiregclasses::CPPInit();

}

#pragma startup TE39ED013A2244DC798ABA9F61211176E__RegisterFormClass

void __fastcall TMainForm::UniBitBtn1Click(TObject *Sender)

{

TExcelFile *xls = new TXlsFile(true);

__try

{

writeToExcel(xls);//写表格

saveToExcel(xls);//存表格

}

__finally

{

delete xls;

}

//---------------------------------------------------------------------------

// ---------------------------------------------------------------------------

void __fastcall TMainForm::writeToExcel(TExcelFile *xls)

{

int rowCount=5,colCount=3;

xls->NewFile(1);//创建一个表格

// Set some cell values.

for(int i=1;i<=rowCount;i++)

for(int j=1;j<colCount;j++)

{

xls->SetCellValue(i, j, TCellValue::Create((double)i*j));//写表格内容

}

xls->PrintLandscape = true;

}

//-----------------------------------------------------------------------------

void __fastcall TMainForm::saveToExcel(TExcelFile *xls)

{

AnsiString destPath,destFile,tempFile;

tempFile="测试表格.xlsx";

destPath=UniServerModule()->FilesFolder+"我的表格\\临时文件";//需要在开头#include "ServerModule.h"

//强制在服务端生成临时文件保存目录

if(!DirectoryExists(destPath))

{

ForceDirectories(destPath.c_str());

}

destFile=destPath+"\\"+tempFile;

//保存表格到服务器端的临时目录

xls->Save(destFile);

//浏览器端发起下载表格

UniSession->SendFile(destFile);

}

//-----------------------------------------------------------------------------

第三部分、UNIGUI下将UniQuery结果保存成表格并下载

本例子中我的窗口名字叫UniformFreeQuery,本窗口是一个复杂的查询窗口，后续代码仅讲解如何将一个UniQuery的结果集保存到表格里面，窗口必须的是一个UniQuery控件，一个SaveDialog控件。

1、UnitFreeQuery.h代码

//---------------------------------------------------------------------------

#ifndef UnitFreeQueryH

#define UnitFreeQueryH

#include "DADump.hpp"

#include "DBAccess.hpp"

#include "MemDS.hpp"

#include "Uni.hpp"

#include "uniBasicGrid.hpp"

#include "uniBitBtn.hpp"

#include "uniButton.hpp"

#include "uniComboBox.hpp"

#include "uniDBGrid.hpp"

#include "UniDump.hpp"

#include "uniGUIBaseClasses.hpp"

#include "uniGUIClasses.hpp"

#include "uniLabel.hpp"

#include "uniListBox.hpp"

#include "uniMemo.hpp"

#include "uniMultiItem.hpp"

#include "uniPageControl.hpp"

#include "uniPanel.hpp"

#include "uniSplitter.hpp"

#include <Data.DB.hpp>

#include <System.Classes.hpp>

#include <Vcl.Controls.hpp>

#include <Vcl.Forms.hpp>

#include <Vcl.Dialogs.hpp>

#include <VCL.FlexCel.Core.hpp>

#include <FlexCel.XlsAdapter.hpp>

//---------------------------------------------------------------------------

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <uniGUIForm.hpp>

#include "uniBasicGrid.hpp"

#include "uniBitBtn.hpp"

#include "uniButton.hpp"

#include "uniComboBox.hpp"

#include "uniDBGrid.hpp"

#include "uniGUIBaseClasses.hpp"

#include "uniGUIClasses.hpp"

#include "uniLabel.hpp"

#include "uniListBox.hpp"

#include "uniMemo.hpp"

#include "uniMultiItem.hpp"

#include "uniPageControl.hpp"

#include "uniPanel.hpp"

#include "DBAccess.hpp"

#include "MemDS.hpp"

#include "Uni.hpp"

#include <Data.DB.hpp>

#include "uniSplitter.hpp"

#include "DADump.hpp"

#include "UniDump.hpp"

//---------------------------------------------------------------------------

class TUniFormFreeQuery : public TUniForm

{

__published: // IDE-managed Components

TUniPageControl *UniPageControl1;

TUniTabSheet *UniTabSheet1;

TUniBitBtn *UniBitBtn4;

TUniBitBtn *UniBitBtn6;

TUniButton *UniButton1;

TUniBitBtn *UniBitBtn7;

TUniBitBtn *UniBitBtn8;

TUniQuery *UniQuery1;

TUniQuery *UniQuery2;

TUniQuery *UniQuery3;

TUniDataSource *UniDataSource1;

TUniContainerPanel *UniContainerPanel7;

TUniComboBox *UniComboBox3;

TUniLabel *UniLabel3;

TUniLabel *UniLabel2;

TUniLabel *UniLabel1;

TUniComboBox *UniComboBox1;

TUniComboBox *UniComboBox2;

TUniBitBtn *UniBitBtn1;

TUniBitBtn *UniBitBtn2;

TUniBitBtn *UniBitBtn3;

TUniContainerPanel *UniContainerPanel8;

TUniContainerPanel *UniContainerPanel9;

TUniListBox *UniListBox1;

TUniListBox *UniListBox2;

TUniPageControl *UniPageControl2;

TUniTabSheet *UniTabSheet2;

TUniContainerPanel *UniContainerPanel1;

TUniDBGrid *UniDBGrid1;

TUniContainerPanel *UniContainerPanel2;

TUniMemo *UniMemo1;

TUniContainerPanel *UniContainerPanel4;

TUniBitBtn *UniBitBtn9;

TUniBitBtn *UniBitBtn10;

TUniBitBtn *UniBitBtn11;

TUniBitBtn *UniBitBtn5;

TUniMemo *UniMemo2;

TUniLabel *UniLabel4;

TUniLabel *UniLabel5;

TUniBitBtn *UniBitBtn12;

TUniSplitter *UniSplitter1;

TSaveDialog *SaveDialog1;

void __fastcall UniFormBeforeShow(TObject *Sender);

void __fastcall UniComboBox1Select(TObject *Sender);

void __fastcall UniComboBox2Select(TObject *Sender);

void __fastcall UniComboBox3Select(TObject *Sender);

void __fastcall UniBitBtn4Click(TObject *Sender);

void __fastcall UniBitBtn5Click(TObject *Sender);

void __fastcall UniBitBtn11Click(TObject *Sender);

void __fastcall UniBitBtn8Click(TObject *Sender);

void __fastcall UniBitBtn7Click(TObject *Sender);

void __fastcall UniBitBtn6Click(TObject *Sender);

void __fastcall UniButton1Click(TObject *Sender);

void __fastcall UniBitBtn1Click(TObject *Sender);

void __fastcall UniBitBtn2Click(TObject *Sender);

void __fastcall UniBitBtn3Click(TObject *Sender);

void __fastcall UniBitBtn9Click(TObject *Sender);

void __fastcall UniBitBtn12Click(TObject *Sender);

void __fastcall saveToExcel(TExcelFile *xls); //存表格

void __fastcall UniBitBtn10Click(TObject *Sender);

void __fastcall UniFormCreate(TObject *Sender);

private: // User declarations

String mySql,rowId,tmpStr,tmpStr1,tmpStr2;

public: // User declarations

__fastcall TUniFormFreeQuery(TComponent* Owner);

};

//---------------------------------------------------------------------------

#endif

2、UniFreeQuery.cpp代码

void __fastcall TUniFormFreeQuery::UniBitBtn10Click(TObject *Sender)

{

TExcelFile *xls = new TXlsFile(true);

__try

{

saveToExcel(xls);

}

__finally

{

delete xls;

}

//---------------------------------------------------------------------------

void __fastcall TUniFormFreeQuery::saveToExcel(TExcelFile *xls)

{

AnsiString destPath,destFile,tempFile;

int rowCount,colCount,i,j;

if(!UniQuery1->Active)

{

ShowMessage("先查询，再导出！");

return;

}

if(UniQuery1->RecordCount<1)

{

ShowMessage("没有记录，取消导出！");

return;

}

xls->NewFile(1);

rowCount=UniQuery1->RecordCount;

colCount=UniQuery1->FieldCount;

//写列头

i=1;

for(j=1;j<colCount;j++)

{

xls->SetCellValue(i, j, TCellValue::Create(UniQuery1->Fields->FieldByNumber(j)->FieldName));

}

//写数据

i=2;

while(!UniQuery1->Eof)

{

for(j=1;j<colCount;j++)

{

xls->SetCellValue(i, j, TCellValue::Create(UniQuery1->Fields->FieldByNumber(j)->AsString));

}

UniQuery1->Next();

i++;

}

xls->PrintLandscape = true;

tempFile="定制导出.xlsx";

destPath=UniServerModule()->FilesFolder+"临时文件\\下载表格";

//强制在服务端生成临时文件保存目录

if(!DirectoryExists(destPath))

{

ForceDirectories(destPath.c_str());

}

destFile=destPath+"\\"+tempFile;

//保存表格到服务器端的临时目录

xls->Save(destFile);

//选择本地保存目录和文件名

if(!SaveDialog1->Execute() )

return;

//浏览器端将服务器端默认临时表格文件下载保存成本地新名字

UniSession->SendFile(destFile,SaveDialog1->FileName);

}

//-----------------------------------------------------------------------------

void __fastcall TUniFormFreeQuery::UniFormCreate(TObject *Sender)

{

SaveDialog1->DefaultExt="xlsx";

}

//---------------------------------------------------------------------------

FlexCel的表格功能很强大，需要的兄弟姐妹可以看起安装目录下的官方文档和案例。

（19）uniGUI for C++ builder下如何使用FlexCel实现EXCEL表格生成和下载

继续阅读

SQL表中数据按条件批量导出多个Excel文件

GlobalMapper20如何导入文本类（txt，csv，excel）的坐标数据序：一、如何导入离散的坐标点二、离散的坐标点如何生产相互连接的线三、离散的坐标点如何生成范围面

如何增值你的文档资产?_

在线转换pdf和虚拟打印机生成pdf文件操作攻略

如何在Word中输入英语音标

VBA实用代码拾零

vba excel编程三日谈(1)

EXCEL VBA笔记

使用ffmpeg进行视频文件转换成FLV整理

文件资源管理器右键开文件夹_如何在Windows的文件资源管理器中设置自定义启动文件夹...

利用javascript和jxl实现自定义报表的输出

unigui的loginform登录界面创建和使用

Excel多行转多列

Excel如何将小写转大写金额

个项目的开发过程及成员组成

博客9-10表格表格 table(会使用)表单标签(掌握)HTML5新标签与特性总结