广告：
网页制作参考
千千学园
雨路开发频道
雨路技术文档
技术问答
编程技术

天极软件专题专区精选　　　　　到天极软件“读编交流区”畅所欲言
Google专区	POPO专区	QQ专区　QQ挂机	了解Web2.0
Flash MX 视频教程	Photoshop视频教程	网页设计视频教程	照片处理数字暗房
PPT动画演示教程	Excel动画教程集	Word动画演示教程	Windows Vista专区
特洛伊木马专区	黑客知识教程专区	防火墙应用专区	注册表应用专区
Windows API开发专区	网络编程专区	VB数据库编程专区	图像处理与多媒体编程

　　经常看到有网友发帖子询问如何将DBGrid中的内容导出到Excel或Word文档中，于是笔者花了点时间写了以下两个函数，分别实现将DBGrid中数据导出到Word和Excel文档。需要注意的是DBGrid中的数据并不代表数据库中所有的数据，因为数据集在打开的时候有可能进行了筛选，取决于使用者如何打开这个数据集，总之就是DBGrid中显示多少数据，就导出多少。

　　一、将DBGrid中的内容导出到Word文档

//--------------------------------------------------------------------------- // 将DBGrid中的数据导出到Word文档 //--------------------------------------------------------------------------- void __fastcall DBGrid2Word(TDBGrid *dbg, String strDocFile) { 　if(!dbg->DataSource->DataSet->Active) // 数据集没有打开就返回 　　return; 　Variant vWordApp, vTable, vCell; 　try 　{ 　　vWordApp = Variant::CreateObject("Word.Application"); 　} 　catch(...) 　{ 　　MessageBox(0, "启动 Word 出错, 可能是没有安装Word.","DBGrid2Word", MB_OK | MB_ICONERROR); 　　vWordApp = Unassigned; 　　return; 　} 　// 隐藏Word界面 　vWordApp.OlePropertySet("Visible", false); 　// 新建一个文档 　vWordApp.OlePropertyGet("Documents").OleFunction("Add"); 　Variant vSelect = vWordApp.OlePropertyGet("Selection"); 　// 设置一下字体，大小 　vSelect.OlePropertyGet("Font").OlePropertySet("Size", dbg->Font->Size); 　vSelect.OlePropertyGet("Font").OlePropertySet("Name", dbg->Font->Name.c_str()); 　// 要插入表格的行数 　int nRowCount(dbg->DataSource->DataSet->RecordCount + 1); 　nRowCount = nRowCount < 2? 2: nRowCount; 　// 要插入表格的列数 　int nColCount(dbg->Columns->Count); 　nColCount = nColCount < 1? 1: nColCount; 　// 在Word文档中插入与DBGrid行数列数基本相同的一个表格 　vWordApp.OlePropertyGet("ActiveDocument").OlePropertyGet("Tables").OleProcedure("Add", 　　　vSelect.OlePropertyGet("Range"), 　　　nRowCount, // 行数 　　　nColCount, // 列数 　　　1, // DefaultTableBehavior:=wdWord9TableBehavior 　　　0); // AutoFitBehavior:=wdAutoFitFixed 　// 操作这个表格 　vTable = vWordApp.OlePropertyGet("ActiveDocument"). 　OleFunction("Range").OlePropertyGet("Tables").OleFunction("Item", 1); 　// 设置单元格的宽度 　for(int i=0; i<nColCount; i++) 　{ 　　int nColWidth = dbg->Columns->Items[i]->Width; 　　vTable.OlePropertyGet("Columns").OleFunction("Item", i + 1) 　　　　.OlePropertySet("PreferredWidthType", 3); // wdPreferredWidthPoints 　　vTable.OlePropertyGet("Columns").OleFunction("Item", i + 1) 　　　　.OlePropertySet("PreferredWidth", nColWidth); 　} 　// 先将列名写入Word表格 　for(int j=0; j<dbg->Columns->Count; j++) 　{ 　　vCell = vTable.OleFunction("Cell", 1, j + 1); 　　vCell.OlePropertySet("Range", dbg->Columns->Items[j]->FieldName.c_str()); 　　// 列名单元格背景颜色 // wdColorGray125 　　vCell.OlePropertyGet("Shading").OlePropertySet("BackgroundPatternColor", 14737632); 　} 　// 将DBGrid中的数据写入Word表格 　dbg->DataSource->DataSet->First(); 　for(int i=0; i<nRowCount; i++) 　{ 　　// 63 63 72 75 6E 2E 63 6F 6D 　　for(int j=0; j<dbg->Columns->Count; j++) 　　{ 　　　vCell = vTable.OleFunction("Cell", i + 2, j + 1); 　　　vCell.OlePropertySet("Range", 　　　　dbg->DataSource->DataSet->FieldByName( 　　　　　dbg->Columns->Items[j]->FieldName)->AsString.c_str()); 　　} 　　dbg->DataSource->DataSet->Next(); 　} 　// 保存Word文档并退出 　vWordApp.OlePropertyGet("ActiveDocument").OleProcedure("SaveAs", strDocFile.c_str()); 　vWordApp.OlePropertyGet("ActiveDocument").OleProcedure("Close"); 　Application->ProcessMessages(); 　vWordApp.OleProcedure("Quit"); 　Application->ProcessMessages(); 　vWordApp = Unassigned; 　// 工作结束 　MessageBox(0, "DBGrid2Word 转换结束!","DBGrid2Word", MB_OK | MB_ICONINFORMATION); }

　　二、将DBGrid中的内容导出到Excel文档

//--------------------------------------------------------------------------- // 将DBGrid中的数据导出到Excel文档 //--------------------------------------------------------------------------- void __fastcall DBGrid2Excel(TDBGrid *dbg, String strXlsFile) { 　if(!dbg->DataSource->DataSet->Active) // 数据集没有打开就返回 　　return; 　Variant vExcelApp, vSheet; 　try 　{ 　　vExcelApp = Variant::CreateObject("Excel.Application"); 　} 　catch(...) 　{ 　　MessageBox(0, "启动 Excel 出错, 可能是没有安装Excel.","DBGrid2Excel", MB_OK | MB_ICONERROR); 　　return; 　} 　// 隐藏Excel界面 　vExcelApp.OlePropertySet("Visible", false); 　// 新建一个工作表 　vExcelApp.OlePropertyGet("Workbooks").OleFunction("Add", 1); // 工作表 　// 操作这个工作表 　vSheet = vExcelApp.OlePropertyGet("ActiveWorkbook").OlePropertyGet("Sheets", 1); 　// 设置Excel文档的字体 　vSheet.OleProcedure("Select"); 　vSheet.OlePropertyGet("Cells").OleProcedure("Select"); 　vExcelApp.OlePropertyGet("Selection").OlePropertyGet("Font").OlePropertySet("Size", dbg->Font->Size); 　vExcelApp.OlePropertyGet("Selection").OlePropertyGet("Font").OlePropertySet("Name",dbg->Font->Name.c_str()); 　vExcelApp.OlePropertyGet("Selection").OlePropertyGet("Font").OlePropertySet("FontStyle", "常规"); 　vSheet.OlePropertyGet("Cells", 1, 1).OleProcedure("Select"); 　// 表格的行数 　int nRowCount(dbg->DataSource->DataSet->RecordCount + 1); 　nRowCount = nRowCount < 2? 2: nRowCount; 　// 表格的列数 　int nColCount(dbg->Columns->Count); 　nColCount = nColCount < 1? 1: nColCount; 　// 设置单元格的宽度 　for(int i=0; i<nColCount; i++) 　{ 　　int nColWidth = dbg->Columns->Items[i]->Width; 　　vExcelApp.OlePropertyGet("Columns", i + 1).OlePropertySet("ColumnWidth", nColWidth / 7); 　} 　// 先将列名写入Excel表格 　for(int j=0; j<dbg->Columns->Count; j++) 　{ 　　// 标题行的行高 　　vExcelApp.OlePropertyGet("Rows", 1).OlePropertySet("RowHeight", 20); 　　vSheet.OlePropertyGet("Cells", 1, j + 1) 　　　.OlePropertySet("Value", dbg->Columns->Items[j]->FieldName.c_str()); 　　// 设置列名单元格的背景色 　　Variant vInter = vSheet.OlePropertyGet( "Cells", 1, j + 1).OlePropertyGet("Interior"); 　　vInter.OlePropertySet("ColorIndex", 15); // 灰色 　　vInter.OlePropertySet("Pattern", 1); // xlSolid 　　vInter.OlePropertySet("PatternColorIndex", -4105); // xlAutomatic 　} 　// 将DBGrid中的数据写入Excel表格 　dbg->DataSource->DataSet->First(); 　for(int i=0; i<nRowCount; i++) 　{ 　　// 普通数据行的行高16 　　vExcelApp.OlePropertyGet("Rows", i + 2).OlePropertySet("RowHeight", 16); 　　// 63 63 72 75 6E 2E 63 6F 6D 　　for(int j=0; j<dbg->Columns->Count; j++) 　　{ 　　　vSheet.OlePropertyGet("Cells", i + 2, j + 1).OlePropertySet("Value", 　　　　　dbg->DataSource->DataSet->FieldByName( 　　　　　　dbg->Columns->Items[j]->FieldName)->AsString.c_str()); 　　} 　　dbg->DataSource->DataSet->Next(); 　} 　// 保存Excel文档并退出 　vExcelApp.OlePropertyGet("ActiveWorkbook").OleFunction("SaveAs", strXlsFile.c_str()); 　vExcelApp.OleFunction("Quit"); 　vSheet = Unassigned; 　vExcelApp = Unassigned; 　// 工作结束 　MessageBox(0, "DBGrid2Excel 转换结束!","DBGrid2Excel", MB_OK | MB_ICONINFORMATION); }