DBGrid 导出到 Excel
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);
}