当前位置：七道奇 → 文章资讯 → 编程技术 → VC/C++编程
日期：2011-03-22 13:55:00  来源：本站整理

<b>将DBGrid中的数据导出到Word和Excel</b>[VC/C++编程]

赞助商链接



　　本文“<b>将DBGrid中的数据导出到Word和Excel</b>[VC/C++编程]”是由七道奇为您精心收集，来源于网络转载，文章版权归文章作者所有，本站不对其观点以及内容做任何评价，请读者自行判断，以下是其具体内容：

昨天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");
　　以上是“<b>将DBGrid中的数据导出到Word和Excel</b>[VC/C++编程]”的内容，如果你对以上该文章内容感兴趣，你可以看看七道奇为您推荐以下文章：
  • <b>hosts是什么 hosts文件在什么位置 若何改正hosts</b>
  • <b>在 Windows 8 中手动安装语言包</b>
  • <b>五个常见 PHP数据库问题</b>
  • Windows中Alt键的12个高效快速的利用本领介绍
  • <b>MySQL ORDER BY 的实现解析</b>
  • <b>详解MySQL存储历程参数有三种范例(in、out、inout)</b>
  • <b>Win8系统恢复出来经典的开始菜单的办法</b>
  • <b>Win8系统花屏怎么办 Win8系统花屏的办理办法</b>
  • <b>Windows 7系统下无线网卡安装</b>
  • <b>为什么 Linux不需求碎片整理</b>
  • <b>Windows 8中删除账户的几种办法(图)</b>
  • <b>教你如安在win7下配置路由器</b>
    •
    本文地址： 与您的QQ/BBS好友分享!
    [] [返回上一页] [打 印]
    • 好的评价　如果您觉得此文章好，就请您
        0%(0)
    • 差的评价　如果您觉得此文章差，就请您
        0%(0)

    文章评论评论内容只代表网友观点，与本站立场无关！

       评论摘要(共 0 条，得分 0 分，平均 0 分) 查看完整评论

    栏目导航

    赞助商链接

    免责条款 - 广告合作 - 下载声明 - 欢迎投稿 - 友情连接 -
    Copyright © 2020-2022 www.xiamiku.com. All Rights Reserved .