DBGrid导出Excel和Word

最新推荐文章于 2018-04-04 16:41:43 发布
最新推荐文章于 2018-04-04 16:41:43 发布
阅读量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");
 

路过路人乙
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
【C++ Builder 6.0】设置DBGrid单元显示格式
zyk的博客
12-21 1304
1.设置列的展示格式 DBGrid的DataSource设置一个ADOquery。 双击ADOquery，在弹出的字段编辑器中，新增要设置的字段。 点击新增字段，设置displayformat属性。例如展示为，带有三位小数。0.000 2.设置行高 ((TStringGrid *)dbgrd1)-&gt;DefaultRowHeight = 50; 3.技巧，快速向DBGrid添加字段...
C++ Builder 将数据库数据导出到Excel中总结3
01-18 1264
String strValue = ""; TBookmark mBookMark ; TStringList *tsList = NULL;  //存储数据 AnsiString XLSFileName; Variant vExcelApp,vWorkBook ,vSheet;  //excel设置 try { tsList = new TStringList(); XL
用Word做Delphi报表输出工具
wljcr的专栏
06-05 1000
用Word做Delphi报表输出工具  整理编辑：China ASP 　　笔者在实际应用中发现，报表的内容一般很少变动，但其字体格式及版式是经常变动的，而且有时用户为了某种需要，不想修改数据库的真实内容而又要改变报表内容。如果用ReportSmith可以解决前者问题，但对于后者则无能为力了，且其界面是英文的，不合用户习惯。如果用3.0中的TQReport的报表部件，则两者都不能实时解决，必须修改原
debug输出文本
Df's blog
04-04 299
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!”
Dbgrid导出为word
06-25 352
unit DbgridToWord; interface uses  SysUtils,ComObj,DBGrids; implementation Function DBGirdToWord(DBGrid: TDBGrid): Boolean;var  Count,I,J:Integer;  Doc:OleVariant;  CurrColumn,RecordNum:Integer;  wTab
C++Builder 导出数据到EXCEL表格
12-30
C++Builder 导出数据到EXCEL表格
DbGridToExcel
10-19
c++builder将DBGrid中的数据导出到word和excel中
数据库技术VB编程小例子源码小合集打包下载.rar
07-10
系统登录、操作员权限设置、连接加密的Access数据库(方法一)、将硬盘文件目录转为数据库数据、将数据库文件转换为文本文件、将Access导出成多种数据格式、将数据库文件转成HTML并设置超级链接、利用Word统计字数和...
数据库技术VB编程小例子源码集
05-07
系统登录、操作员权限设置、连接加密的Access数据库(方法一)、将硬盘文件目录转为数据库数据、将数据库文件转换为文本文件、将Access导出成多种数据格式、将数据库文件转成HTML并设置超级链接、利用Word统计字数和...
第一部分 界面设计
10-22
实例217 如何导出对象库中的商业决策分析程序 实例218 如何打印含有图像字段的数据库表 实例219 如何实现数据库表整表复制 实例220 如何实现数据库记录的批量删除 实例221 如何实现数据库记录的批量修改 实例...
C++Builder精彩编程实例集锦的源代码(4,5,6部分).rar
06-14
实例217 如何导出对象库中的商业决策分析程序 实例218 如何打印含有图像字段的数据库表 实例219 如何实现数据库表整表复制 实例220 如何实现数据库记录的批量删除 实例221 如何实现数据库记录的批量修改 实例...
DBGRID的应用范例
12-10
在用vc开发关于数据库的项目时，通常我们只好用微软的DBGRID作为数据库表格控件，其实微软的DBGRID并不好用，想找一份好的帮助文档都找不到，并且界面并不友好，比起C++Builder中的DBGRID来说是逊色不少，但是DBGRID在开发数据库的项目中又是常用的控件，所以就一直想找一个好用的DBGRID，可是网上又没有找到。上次在无意中看到了CGridCtrl(一个很漂亮的表格控件，如果你还没有用过，可以到http://www.codetools.com/miscctrl/gridctrl.asp/下载，上面还有详细的使用说明)支持虚模式，在这种模式下，即使你向这个表格插入一百万条数据，它并不会真的生成一百万行，而是随着你的滚动条的滚动，计算出在屏幕上要显示的行和列，然后会向你提供一个接口，通过这个接口，你可以在这儿设置你要显示的数据。这给了我一些启示，我决定用它来做一个DBGRID。下面的例子是它的一个应用。
C++ Builder 将数据库数据导出到Excel中总结
08-06 3455
首先要引入头文件：#include "ComObj.hpp" 下面是具体操作Excel：   bool __fastcall TFrmDispatchDataExport::DisExportData(String _strSql, String ExcelFileName) {  Variant ExcelApp,Workbook1,Sheet1;  try  {   //建立E
DBGrid应用
weixin_30907935的博客
03-28 53
http://www.cnblogs.com/liuke1987/archive/2013/02/06/2907892.html 转载于:https://www.cnblogs.com/m0488/archive/2013/03/28/2987380.html
DBGRID 使用OLE方法 导出 EXCEL
最新发布
05-30
然后，我们通过 `Worksheets` 属性获取第一个工作表，并将 DBGrid 中的表头和数据写入 Excel 文件中。最后，我们通过 `SaveAs` 方法将工作簿另存为指定的文件，并通过 `Quit` 方法关闭 Excel 应用程序。 需要注意的...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值