将DBGrid的数据导出到word和excel中

╰+哭是因爲堅強的太久メ 2021-09-15 14:16 445阅读 0赞

[将DBGrid的数据导出到word和excel中][DBGrid_word_excel]

DBGrid2Word和DBGrid2Excel，分别实现将DBGrid中数据导出到Word和Excel文档。需要注意的是DBGrid中的数据并不代码数据库中所有的数据，因为数据集在打开的时候有可能进行了筛选，取决于使用者如何打开这个数据集，总之就是DBGrid中显示多少数据，就导出多少

//---------------------------------------------------------------------------  
// 将DBGrid中的数据导出到Word文档  
//---------------------------------------------------------------------------  
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 \->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][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*->Width;  
        vExcelApp.OlePropertyGet("Columns", i + 1)  
                .OlePropertySet("ColumnWidth", nColWidth / 7);  
    \}  
    //----------------------------------------------------------------------------  
       // 先将列名写入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_word_excel]: http://blog.csdn.net/lzkit/article/details/8058000
[http_www.ccrun.com_article.asp_i_635_d_g75jbn]: http://www.ccrun.com/article.asp?i=635&d=g75jbn

发表评论取消回复

表情：

评论列表（有 0 条评论，445人围观）

还没有评论，来说两句吧...

相关阅读

相关 C# 将excel表格嵌入到Word中

继续开扒，今天要实现的是使用C\将excel表格嵌入到Word中这个功能，将word表格导入到excel中我已经写过了，如有需要可参考我之前的文章，在开始前还有一点需要指出的是

逃离我推掉我的手/ 2023年10月16日 22:54/ 0 赞/ 117 阅读

相关 java中将查询数据导出_如何在R中将数据框导出到Excel

java中将查询数据导出 What if I tell, that you can export data frames to excel in R within a cou

柔情只为你懂/ 2023年03月01日 06:21/ 0 赞/ 27 阅读

相关 VB将MSHFlexGrid中数据导出到Excel中

在VB程序中，经查找筛选显示在MSHFlexGrid中的数据，导出到Excel中。分析一下，其实特别简单，MSHFlexGrid中数据是从数据

Bertha 。/ 2022年09月17日 05:26/ 0 赞/ 385 阅读

相关使用poi将数据导出到excel

第一种方式：代码中自定义样式（不推荐） //获取数据 List<OutProductVO> outProductList = this.out

深藏阁楼爱情的钟/ 2022年07月17日 01:28/ 0 赞/ 322 阅读

相关 JS 将Table数据导出到Excel表

通过JavaScript方法将table中的数据导出在excel表中，使用方便，可以直接浏览器直接下载所需要的excel表，一般适用于后台管理的导出数据需求。使用方法

r囧r小猫/ 2022年06月17日 08:42/ 0 赞/ 370 阅读

相关 Java代码将数据导出到Excel

最近遇到的一个需求是讲数据库中查到的数据导出到Excel表格文件，直接上干货。首先，下载要使用到的jar包poi包，下载地址：[http://mvnrepository.c

不念不忘少年蓝@/ 2022年06月06日 11:13/ 0 赞/ 288 阅读

相关 SQLyog如何将mysql中的表数据导出到Excel

工作中运营部门的同事经常找要数据，这时候需要把数据导出来到excel给他们。导出数据有两种方法：（a）可以用程序导（程序导出虽然很强大，比如列名、列宽、数据显示形式

爱被打了一巴掌/ 2022年06月03日 06:26/ 0 赞/ 1172 阅读

相关将数据导出到Excel

最近在做一个项目，涉及到将数据导出到excel，因此花了一天多时间，从网上查询了一些相关方法：下面做一下总结：下面这个项目里面的步骤是本人已经成功应用到项目中的。第

青旅半醒/ 2022年01月28日 10:19/ 0 赞/ 486 阅读

相关将Excel表格复制到Word中

早上帮老板做文档，要把一个Excel表格贴到Word中做展示。直接复制贴进来吧，表格大小和word不匹配。截图贴进来吧，表之大，一张截不下，最后通过万能的度娘找了一个完美粘

迷南。/ 2021年12月04日 07:29/ 0 赞/ 466 阅读

相关将DBGrid的数据导出到word和excel中

[将DBGrid的数据导出到word和excel中][DBGrid_word_excel] DBGrid2Word和DBGrid2Excel，分别实现将DBGrid中数

╰+哭是因爲堅強的太久メ/ 2021年09月15日 14:16/ 0 赞/ 446 阅读