DBGrid导出Excel和Word

最新推荐文章于 2018-12-21 10:24:03 发布
最新推荐文章于 2018-12-21 10:24:03 发布
阅读量1k 收藏
点赞数
分类专栏： c++Builder 文章标签： excel c++builder 文档 工作 测试 c


    // 作者：ccrun(老妖) info@ccrun.com
    // 本文转自 C++Builder 研究 - http://www.ccrun.com/article/go.asp?i=635&d=g75jbn

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);
// 本文转自 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");
 

路过路人乙
关注
专栏目录
Visual C++环境下DBGrid控件的使用
yjh0628的专栏
08-22 1111
Visual C++环境下DBGrid控件的使用 一.前期准备 为了实现DBGrid控件的自动捆绑,我们需要建立一个数据库和与之关联的数据源，本例中我们用Access建立数据库mydata.mdb，在数据库中新建一张表users,包含三个字段username,address,email,并输入多条记录。 在控制面板ODBC数据源中建立名称为test的系统DSN，并将其指向mydata.mdb 二.创建工程 新建一个基于对话框的MFC AppWizard (exe)工程，取名为GridTes
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;}
C++Builder 导出数据到EXCEL表格
12-30
C++Builder 导出数据到EXCEL表格
C++ Builder 将数据库数据导出到Excel中总结3
01-18 1353
String strValue = ""; TBookmark mBookMark ; TStringList *tsList = NULL;  //存储数据 AnsiString XLSFileName; Variant vExcelApp,vWorkBook ,vSheet;  //excel设置 try { tsList = new TStringList(); XL
Dbgrid导出为word
06-25 369
unit DbgridToWord; interface uses  SysUtils,ComObj,DBGrids; implementation Function DBGirdToWord(DBGrid: TDBGrid): Boolean;var  Count,I,J:Integer;  Doc:OleVariant;  CurrColumn,RecordNum:Integer;  wTab
debug输出文本
Df's blog
04-04 326
debug命令 a 100 jmp 126 db 0d,0a,"This is my first DEBUG program!" db 0d,0a,"$" mov ah,9 mov dx,102 int 21 mov ah,0 int 21 g =100 输出”This is my first DEBUG program!”
Delphi导出Excel源码实现
在Delphi中导出Excel文件是常见的需求，通常用于将数据库数据或者表格数据转换成易于分享和分析的电子表格格式。这段代码使用了`ComObj`单元来创建和操作Excel对象，以及`Office2000`单元（可能包含对Microsoft ...
使用dbgrideh高效导出Excel数据
"dbgrideh快速导出excel" 在IT领域，经常需要处理数据的导入导出操作，尤其是在数据库管理和数据分析场景中。本资源主要介绍了如何使用dbgrideh组件快速将数据显示的数据导出到Excel文件中。dbgrideh是Delphi编程...
C++builder控制数据库输出到excel
04-02
在IT领域，C++Builder是一款强大的集成开发环境（IDE），专为C++编程语言设计，尤其适用于...总的来说，C++Builder结合其强大的数据库和COM支持，可以方便地完成从数据库到Excel的导出任务，满足你的报表制作需求。
DbGridToExcel
10-19
本文将详细介绍如何通过C++Builder 6.0将DBGrid的数据导出至Excel，并简要提及导出至Word的方法。 #### 准备工作 在进行数据导出之前，确保已经安装了Microsoft Office，并且包含Excel组件。这是因为导出功能依赖...
【C++ Builder 6.0】设置DBGrid单元显示格式
zyk的博客
12-21 1396
1.设置列的展示格式 DBGrid的DataSource设置一个ADOquery。 双击ADOquery，在弹出的字段编辑器中，新增要设置的字段。 点击新增字段，设置displayformat属性。例如展示为，带有三位小数。0.000 2.设置行高 ((TStringGrid *)dbgrd1)-&gt;DefaultRowHeight = 50; 3.技巧，快速向DBGrid添加字段...
DBGrid应用
weixin_30907935的博客
03-28 71
http://www.cnblogs.com/liuke1987/archive/2013/02/06/2907892.html 转载于:https://www.cnblogs.com/m0488/archive/2013/03/28/2987380.html
一个好用的DBGRID --- VC数据库开发之二
skyremember的专栏
11-08 1340
 一个好用的DBGRID --- VC数据库开发之二 来源： 作者：cool 转自－陈松乐 时间：2005-11-22 点击：1566 次 下载本文配套代码一 (演示CGridCtrl的使用)下载本文配套代码二 (演示与CMYODBC的配合使
用Word做Delphi报表输出工具
wljcr的专栏
06-05 1025
用Word做Delphi报表输出工具  整理编辑：China ASP 　　笔者在实际应用中发现，报表的内容一般很少变动，但其字体格式及版式是经常变动的，而且有时用户为了某种需要，不想修改数据库的真实内容而又要改变报表内容。如果用ReportSmith可以解决前者问题，但对于后者则无能为力了，且其界面是英文的，不合用户习惯。如果用3.0中的TQReport的报表部件，则两者都不能实时解决，必须修改原
DBGrid导出Excel教程：多Sheet支持与步骤详解
总结来说，这个程序为Delphi开发者提供了一种方便快捷的方法，可以将DBGrid的数据结构优雅地导出到Excel，有助于数据的管理和分析。通过了解这个函数的工作原理和调用方式，开发人员可以更好地集成和处理数据库数据...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值