科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道基础软件C++将DBGrid中数据导出到Word和Excel

C++将DBGrid中数据导出到Word和Excel

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

经常看到有网友发帖子询问如何将DBGrid中的内容导出到Excel或Word文档中,于是笔者花了点时间写了以下两个函数,分别实现将DBGrid中数据导出到Word和Excel文档。

作者:MOLLY编译 来源:天极网 2007年10月27日

关键字: C++ DBGRID 导出 WML Excel Linux

  • 评论
  • 分享微博
  • 分享邮件
经常看到有网友发帖子询问如何将DBGrid中的内容导出到Excel或Word文档中,于是笔者花了点时间写了以下两个函数,分别实现将DBGrid中数据导出到Word和Excel文档。需要注意的是DBGrid中的数据并不代表数据库中所有的数据,因为数据集在打开的时候有可能进行了筛选,取决于使用者如何打开这个数据集,总之就是DBGrid中显示多少数据,就导出多少。

  一、将DBGrid中的内容导出到Word文档

//---------------------------------------------------------------------------
// 将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[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);
}


  二、将DBGrid中的内容导出到Excel文档

//---------------------------------------------------------------------------
// 将DBGrid中的数据导出到Excel文档
//---------------------------------------------------------------------------
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);
 }
 // 先将列名写入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);
}

查看本文来源

    • 评论
    • 分享微博
    • 分享邮件
    邮件订阅

    如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。

    重磅专题
    往期文章
    最新文章