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

最新推荐文章于 2022-08-12 18:53:44 发布
最新推荐文章于 2022-08-12 18:53:44 发布
阅读量426 收藏 1
点赞数
分类专栏： 程序人生 文章标签： c++builder

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

关键字：DBGrid,Word,Excel,OLE,ccrun

作者：ccrun    更新：2005-10-13    浏览：21097

昨天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);
// 本文转自 C++Builder研究 - http://www.ccrun.com/article.asp?i=635&d=g75jbn
}
//---------------------------------------------------------------------------
// 将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");
脚本之家
关注
专栏目录
如何将DBGrid中的数据原样导出到Excel表中
salut的专栏
03-31 765
library LoadDBGridToExcel;uses  ShareMem,  SysUtils,  Classes,  Windows,Variants,  Dialogs, DBGrids, ExcelXP,Graphics;{$R *.res}function sendDBGridToExcel_F(dbg :TDBGrid;sheetName :s
intraweb 中Iwdbgrid iwdbedit使用
aibi9196的博客
03-02 291
intraweb 中Iwdbgrid iwdbedit使用 Delphi / Windows SDK/APIhttp://www.delphi2007.net/DelphiNetwork/html/delphi_20061204150533204.html intraweb 中Iwdbgrid中colummns属性设置control关联一个idwdbedit; Iwdb...
三、C++ Builder XE关于intraweb开发_插入IWGrid并美化表格
lzksword的专栏
08-12 502
表格展示，是不是很好，并且，操作非常简单，不过要先插入一个CSS表格，在IWGrid中设置事件就可以达到，这Web开发实在不要太简单。对网页模板如何导入，也很简单，后面会讲并有实例下载。2、在iWGrid1的OnRenderCell事件中写入。1、插入一个iWGrid.//美化IWGrid1表格。...
怎么在IWDBGrid中写链接？
THE_ROCK的专栏
04-24 1433
设置字段的LinkField属性，多数情况下，设置为自增字段名。点击时取得AValue值，就是LinkField字段的值。
将DBGrid的数据导出到word和excel中
ljianhui的专栏
10-15 1478
将DBGrid的数据导出到word和excel中 DBGrid2Word和DBGrid2Excel，分别实现将DBGrid中数据导出到Word和Excel文档。需要注意的是DBGrid中的数据并不代码数据库中所有的数据，因为数据集在打开的时候有可能进行了筛选，取决于使用者如何打开这个数据集，总之就是DBGrid中显示多少数据，就导出多少 //------------------------
c++builder 6.0 将DBGrid中的数据导出到Word和Excel
拉维达的博客
07-17 3082
因为需求，所以自学了c++，没有人带着还是有点慢！遇到很多问题网上很难找到资料，幸好在这网站遇到好多热心人！！ 我我也在网上找到了几个不错的资料，需要的朋友可以 去我的资源下载！ 今天这代码是从网上看到的，我正好需要，我把他整理了一下下！！ 代码来自：点击打开链接 主要方法// 导出excel void __fastcall DBGrid2Excel(TDBGrid *dbg, Str
将ListView中的内容导出到Word和Excel(新)
拉维达的博客
07-17 836
点击打开链接
Delphi 多数据集（sheet）导出到一个Excel文件中
Lv骚年
07-16 1318
公司要做一个执行一个存储过程返回多个数据集到TADOStroedProc中，然后把这些数据导出到一个Excel文件中，百度加实践，总结如下：1. 先获取数据//创建相关控件数组： //TabSheetA: array[0 .. 19] of TRzTabSheet; TDBGridA[0 .. 19]: array of TDBGridEh; TADOQueryA[0 .. 19]: array ...
BootStrapFramework_Delphi XE10.2.Tokyo
04-12
Bootstrap is an open source toolkit for developing with HTML, CSS, and JS. Quickly prototype your ideas or build your entire app with our Sass variables and mixins, responsive grid system, extensive prebuilt components, and powerful plugins built on jQuery. BootStrapFramework_Delphi 是BootStrap的Delphi封装版本，方便在Itraweb程序中直接使用BootStrap。
IntraWeb_10范例
03-10
IntraWeb_10的范例，供学习用. 非常好的学习IntraWeb的教程。
Delphi动态IP连接的实现
06-08
Delphi动态IP连接的实现，适合新手
C++builder控制数据库输出到excel
04-02
在这个场景中，我们讨论的是如何利用C++Builder来控制数据库，并将数据导出到Excel格式，以便创建专业的报表。 首先，要实现这个功能，你需要C++Builder中的几个关键组件。其中最重要的可能是BDE（Borland Database...
DbGridToExcel
10-19
本文将详细介绍如何通过C++Builder 6.0将DBGrid的数据导出至Excel，并简要提及导出至Word的方法。 #### 准备工作 在进行数据导出之前，确保已经安装了Microsoft Office，并且包含Excel组件。这是因为导出功能依赖...
将数据集转换为Excel格式的一个实现
简简单单
01-03 3657
{ 将数据集转换为Excel格式的一个实现 在做项目时，很多情况下，客户需要对我们保存在数据库中的数据再加工再利用， 如财务需要一份今年财务情况的电子报表，总经理需要今年销售情况的一个电子报表。 我们的程序可以把这些数据用DBGrid显示出来，也可以用QuickReport打印出来，但是 这些数据都不能被客户自由的完整地拷贝，没有独立的电子化形式，因而不能被独立地使用。 要把数据库中的数据，在De
dbgrid使用大全(delphi)
热门推荐
beyondqd的专栏
08-25 1万+
<br /> <!-- /* Font Definitions */ @font-face {font-family:宋体; panose-1:2 1 6 0 3 1 1 1 1 1; mso-font-alt:SimSun; mso-font-charset:134; mso-generic-font-family:auto; mso-font-pitch:variable; mso-font-signature:3 135135232 16 0 262145 0;}
DBGrid 应用全书
zch619
12-08 2958
   在 Delphi 语言的数据库编程中，DBGrid 是显示数据的主要手段之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实，我们完全可以在我们的程序中通过编程来达到美化DBGrid 外观的目的。通过编程，我们可以改变 DBGrid 的表头、网格、网格线的前景色和背景色，以及相关的字体的大小和风格。    以下的示例程序演示了对 DBGrid 各属性的设置，使 Delphi 显示
Delphi实现DBGrid多选数据导出到Excel
在实际代码中，这部分可能涉及到对Excel应用程序对象（ExcelApp）的初始化，创建一个新的工作表（page），然后遍历DBGrid中的选中行，将数据写入Excel工作表的相应单元格。 此外，为了防止Excel自动转换数值格式为...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值