将DBGrid中的数据导出到Word和Excel

昨天ccrun刚写了将ListView中内容导出到Word文档和Excel文档的一篇文章，今天写程序凑巧用到了将DBGrid中数据导出到Office的功能，干脆再写个兄弟版的函数出来，DBGrid2Word和DBGrid2Excel，分别实现将DBGrid中数据导出到Word和Excel文档。需要注意的是DBGrid中的数据并不代码数据库中所有的数据，因为数据集在打开的时候有可能进行了筛选，取决于使用者如何打开这个数据集，总之就是DBGrid中显示多少数据，就导出多少。看在写代码很辛苦的份上，请在转载时留下出处和原作者信息。Thank了。:D
　 
如果您有好的想法，或者代码中存在的BUG，欢迎来信讨论: info@ccrun.com
2005.10.13 v0.1
初版发布

//---------------------------------------------------------------------------
// 将DBGrid中的数据导出到Word文档
// v0.1 by ccrun(老妖) 2005.10.13 1:40
//---------------------------------------------------------------------------
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);
　　}
　　//----------------------------------------------------------------------------
　　// 抱歉，这个提示又来了，为了防止不负责任的转载者，只好在此留些信息。
　　// 作者：ccrun(老妖) info@ccrun.com
　　// 本文转自 C++Builder 研究 - http://www.ccrun.com/article/go.asp?i=635&d=g75jbn
　　//----------------------------------------------------------------------------　　 
　　// 先将列名写入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文档
// v0.1 by ccrun(老妖) 2005.10.13 1:55
//---------------------------------------------------------------------------
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);
　　}
　　//----------------------------------------------------------------------------
　　// 抱歉，这个提示又来了，为了防止不负责任的转载者，只好在此留些信息。
　　// 作者：ccrun(老妖) info@ccrun.com
　　// 本文转自 C++Builder 研究 - http://www.ccrun.com/article/go.asp?i=635&d=g75jbn
　　//----------------------------------------------------------------------------　　 
　　// 先将列名写入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);
}
// 测试代码
DBGrid2Word(DBGrid1, "C:\\ccrun\\123.doc");
DBGrid2Excel(DBGrid1, "C:\\ccrun\\123.xls");

时间： 2024-12-22 18:06:59

将DBGrid中的数据导出到Word和Excel的相关文章

ASP.NET(C#)将数据导出到Word或Excel

  最简单的方法是把页面上所有的东西都导出 在载入时调用,注意页面里不能有其它控件,包括按钮 void converttoexcel() { Response.Clear(); Response.Buffer = true; Response.Charset = "GB2312"; Response.AppendHeader("Content-Disposition", "attachment;filename=" + DateTime.Now.

将ListView中的内容导出到Word和Excel(新)

经常看到有网友发帖子询问如何将ListView中的内容导出到Excel或Word文档中,其实在BCB中用OLE技术来操作,并不复杂,大概是有的人懒的写吧,于是ccrun(老妖)花了点时间写了以下两个函数,实现了将本程序中ListView中内容导出到Excel文档和Word文档.看在写代码很辛苦的份上,请在转载时留下出处和原作者信息.Thank了.:D 如果您有好的想法,欢迎来信讨论: info@ccrun.com2005.10.13 v0.2+ 导出表格增加了标题一栏2005.10.12 v0.

DataGrid中的数据导入到Word和Excel

datagrid|excel|word|数据 using System;using System.Collections;using System.ComponentModel;using System.Data;using System.Drawing;using System.Web;using System.Web.SessionState;using System.Web.UI;using System.Web.UI.WebControls;using System.Web.UI.Htm

mfc求助-MFC中ListCtrl中数据导出到Word文档中？

问题描述 MFC中ListCtrl中数据导出到Word文档中? 在写一个基于当文档的MFC小程序,其中需要将ListCtrl中的数据导出并生成.doc文档,不知如何操作,学习VC时间不长,求大仙帮忙.

机房收费系统的实现：VB中如何将MSHFlexGrid控件中的数据导出到Excel

机房收费系统中,好多查询的窗体都包含同一个功能:将数据库中查询到的数据显示在MSHFlexGrid控件中,然后再把MSHFlexGrid控件中的数据导出到Excel表格中. 虽然之前做过学生信息管理系统,不过并没有涉及到这个功能,因此记录于此,于己,回顾反思,于大家,分享学习. 方法一:在根目录中事先建立空的Excel表格 1.在与VB工程同一根目录中建立将要导入数据的Excel表格: 2.在VB事件中写代码: Private Sub cmdExport_Click() Dim i As Int

sqlite-Android如何将SQLite数据库中的数据导出为csv格式的文件

问题描述 Android如何将SQLite数据库中的数据导出为csv格式的文件 搜到了下边这个方法,但是我没实现功能,请各位指教.最好能有代码 public void ExportToCSV(Cursor c, String fileName) { int rowCount = 0; int colCount = 0; FileWriter fw; BufferedWriter bfw; File sdCardDir = Environment.getExternalStorageDirecto

机房收费系统——VB将MSHflexgrid控件中的数据导出为Excel

            在做机房收费系统的时候,许多窗体用到的一个功能,就是将从数据库中提取出来的数据导出到Excel中.   首先,引用Microsoft Excel 14.0 Object Library   然后,写代码     Public Sub OutDataToExcel(Flex As MSHFlexGrid) '导出至Excel Dim i As Integer Dim j As Integer Dim Line As Integer Dim outExcel As Excel

c#-怎么用C#将数据库中的数据导出到txt中

问题描述 怎么用C#将数据库中的数据导出到txt中 我现在在sqlsever中有一个叫Phone的表,现在要用C#把它里面的数据导入到一个txt中. 求各位大大,给段代码让小弟学习一下~ 解决方案 http://www.jb51.net/article/35989.htm 解决方案二: C# 读取数据库,应该是没有什么问题的.具体要看你的数据库是什么! 将读到的数据写入文件,这个比较简单.只要注意写入的格式控制. 代码,要靠你自己写.只能给你思路! 解决方案三: 参考C#中从数据库导出至txt

我在程序中把数据导出到excel存放在服务器，用户不用下载excel而直接打印，怎么做呢？

问题描述 我在程序中把数据导出到excel存放在服务器,用户不用下载excel而直接打印,怎么做呢? 解决方案 解决方案二:可以网上google代码或者用第三方控件客户不下载就直接打印好像比较难解决方案三:DLL一定要加的那在服务器打开Excel,我也做过,不过没成功,本机好用上传之后不好用了,希望你能够解决