将ListView中的内容导出到Word和Excel(新)

经常看到有网友发帖子询问如何将ListView中的内容导出到Excel或Word文档中，其实在BCB中用OLE技术来操作，并不复杂，大概是有的人懒的写吧，于是ccrun(老妖)花了点时间写了以下两个函数，实现了将本程序中ListView中内容导出到Excel文档和Word文档。看在写代码很辛苦的份上，请在转载时留下出处和原作者信息。Thank了。:D
 
如果您有好的想法，欢迎来信讨论: info@ccrun.com
2005.10.13 v0.2
+ 导出表格增加了标题一栏
2005.10.12 v0.1
初版发布

//---------------------------------------------------------------------------
// 将ListView中的内容导出到Word文档
// v0.2 by ccrun(老妖) 2005.10.13
//---------------------------------------------------------------------------
void __fastcall ListView2Word(TListView *lv, String strDocFile)
{
　Variant vWordApp, vTable, vCell;
　try
　{
　　vWordApp = Variant::CreateObject("Word.Application");
　}
　catch(...)
　{
　　MessageBox(0, "启动 Word 出错, 可能是没有安装Word.",
　　　　"ListView2Doc", 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", lv->Font->Size);
　vSelect.OlePropertyGet("Font").OlePropertySet("Name", lv->Font->Name.c_str());
　// 要插入表格的行数
　int nRowCount(lv->Items->Count + 1);
　nRowCount = nRowCount < 2? 2: nRowCount;
　// 要插入表格的列数
　int nColCount(lv->Columns->Count);
　nColCount = nColCount < 1? 1: nColCount;
　// 在Word文档中插入与ListView行数列数相同的一个表格
　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;
　　if(lv->Columns->Count > i)
　　　nColWidth = lv->Columns->Items[i]->Width;
　　else
　　　nColWidth = 100; // 如果没有设置列，就随便设置个默认值
　　vTable.OlePropertyGet("Columns").OleFunction("Item", i + 1)
　　　　.OlePropertySet("PreferredWidthType", 3); // wdPreferredWidthPoints
　　vTable.OlePropertyGet("Columns").OleFunction("Item", i + 1)
　　　　.OlePropertySet("PreferredWidth", nColWidth * 2);
　}
　//----------------------------------------------------------------------------
　// 抱歉，这个提示又来了，为了防止不负责任的转载者，只好在此留些信息。
　// 作者：ccrun(老妖) info@ccrun.com
　// 本文转自 C++Builder 研究 - http://www.ccrun.com/article/go.asp?i=633&d=vytvc6
　//---------------------------------------------------------------------------- 
　// 将列名写入Word表格先
　for(int i=0; i<lv->Columns->Count; i++)
　{
　　vCell = vTable.OleFunction("Cell", 1, i + 1);
　　vCell.OlePropertySet("Range", lv->Columns->Items[i]->Caption.c_str());
　　// 列名单元格背景颜色 // wdColorGray125
　　vCell.OlePropertyGet("Shading")
　　　　.OlePropertySet("BackgroundPatternColor", 14737632);
　}
　// 将ListView中的数据写入Word表格
　for(int i=0; i<nRowCount - 1; i++)
　{
　　// 63 63 72 75 6E 2E 63 6F 6D
　　vCell = vTable.OleFunction("Cell", i + 2, 1);
　　vCell.OlePropertySet("Range", lv->Items->Item[i]->Caption.c_str());
　　for(int j=0; j<lv->Items->Item[i]->SubItems->Count; j++)
　　{
　　　if(lv->Columns->Count > j)
　　　{
　　　　vCell = vTable.OleFunction("Cell", i + 2, j + 2);
　　　　vCell.OlePropertySet("Range",
　　　　　　lv->Items->Item[i]->SubItems->Strings[j].c_str());
　　　}
　　}
　}
　// 保存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, "ListView2Doc 转换结束!",
　　　"ListView2Doc", MB_OK | MB_ICONINFORMATION);
}
//---------------------------------------------------------------------------
// 将ListView中的内容导出到Excel文档
// v0.2 by ccrun(老妖) 2005.10.13
//---------------------------------------------------------------------------
void __fastcall ListView2Excel(TListView *lv, String strXlsFile)
{
　Variant vExcelApp, vSheet;
　try
　{
　　vExcelApp = Variant::CreateObject("Excel.Application");
　}
　catch(...)
　{
　　MessageBox(0, "启动 Excel 出错, 可能是没有安装Excel.",
　　　　"ListView2Excel", MB_OK | MB_ICONERROR);
　　vExcelApp = Unassigned;
　　return;
　}
　// 隐藏Excel界面
　vExcelApp.OlePropertySet("Visible", true);
　// 新建一个工作表
　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", lv->Font->Size);
　vExcelApp.OlePropertyGet("Selection").OlePropertyGet("Font")
　　　.OlePropertySet("Name", lv->Font->Name.c_str());
　vExcelApp.OlePropertyGet("Selection").OlePropertyGet("Font")
　　　.OlePropertySet("FontStyle", "常规");
　vSheet.OlePropertyGet("Cells", 1, 1).OleProcedure("Select");
　// 表格的行数
　int nRowCount(lv->Items->Count + 1);
　nRowCount = nRowCount < 2? 2: nRowCount;
　// 表格的列数
　int nColCount(lv->Columns->Count);
　nColCount = nColCount < 1? 1: nColCount;
　// 设置单元格的宽度
　for(int i=0; i<nColCount; i++)
　{
　　int nColWidth;
　　if(lv->Columns->Count > i)
　　　nColWidth = lv->Columns->Items[i]->Width;
　　else
　　　nColWidth = 100; // 如果没有设置列，就随便设置个默认值
　　vExcelApp.OlePropertyGet("Columns", i + 1)
　　　　.OlePropertySet("ColumnWidth", nColWidth / 2.6);
　}
　// 先将列名写入Excel表格
　for(int j=0; j<lv->Columns->Count; j++)
　{
　　// 标题行的行高
　　vExcelApp.OlePropertyGet("Rows", 1).OlePropertySet("RowHeight", 20);
　　// 写入标题
　　vSheet.OlePropertyGet("Cells", 1, j + 1)
　　　　.OlePropertySet("Value",
　　　　lv->Columns->Items[j]->Caption.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
　}
　//----------------------------------------------------------------------------
　// 抱歉，这个提示又来了，为了防止不负责任的转载者，只好在此留些信息。
　// 作者：ccrun(老妖) info@ccrun.com
　// 本文转自 C++Builder 研究 - http://www.ccrun.com/article/go.asp?i=633&d=vytvc6
　//---------------------------------------------------------------------------- 
　// 将ListView中的数据写入Excel表格
　for(int i=0; i<nRowCount - 1; i++)
　{
　　// 63 63 72 75 6E 2E 63 6F 6D
　　// 普通数据行的行高16
　　vExcelApp.OlePropertyGet("Rows", i + 2).OlePropertySet("RowHeight", 16);
　　//
　　vSheet.OlePropertyGet("Cells", i + 2, 1)
　　　　.OlePropertySet("Value", lv->Items->Item[i]->Caption.c_str());
　　for(int j=0; j<lv->Items->Item[i]->SubItems->Count; j++)
　　{
　　　vSheet.OlePropertyGet("Cells", i + 2, j + 2)
　　　　.OlePropertySet("Value",
　　　　lv->Items->Item[i]->SubItems->Strings[j].c_str());
　　}
　}
　// 保存Excel文档并退出
　vExcelApp.OlePropertyGet("ActiveWorkbook")
　　　.OleFunction("SaveAs", strXlsFile.c_str());
　vExcelApp.OleFunction("Quit");
　vSheet = Unassigned;
　vExcelApp = Unassigned;
　// 工作结束
　MessageBox(0, "ListView2Excel 转换结束！",
　　　"ListView2Excel", MB_OK | MB_ICONINFORMATION);
}
// 测试代码
ListView2Word(ListView1, "C:\\ccrun\\234.doc");
ListView2Excel(ListView1, "C:\\ccrun\\234.xls");

时间： 2024-08-03 12:07:59

将ListView中的内容导出到Word和Excel(新)的相关文章

JavaScript将Web页面内容导出到Word及Excel的方法

 这篇文章主要介绍了JavaScript将Web页面内容导出到Word及Excel的方法,涉及javascript操作ActiveXObject控件的使用技巧,具有一定参考借鉴价值,需要的朋友可以参考下     本文实例讲述了JavaScript将Web页面内容导出到Word及Excel的方法.分享给大家供大家参考.具体实现方法如下: ? 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 3

JavaScript将Web页面内容导出到Word及Excel的方法_javascript技巧

本文实例讲述了JavaScript将Web页面内容导出到Word及Excel的方法.分享给大家供大家参考.具体实现方法如下: <HTML> <HEAD> <title>WEB页面导出为EXCEL文档的方法 </title> </HEAD> <body> <BR> <table id = "PrintA" width="100%" border="1" cel

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

昨天ccrun刚写了将ListView中内容导出到Word文档和Excel文档的一篇文章,今天写程序凑巧用到了将DBGrid中数据导出到Office的功能,干脆再写个兄弟版的函数出来,DBGrid2Word和DBGrid2Excel,分别实现将DBGrid中数据导出到Word和Excel文档.需要注意的是DBGrid中的数据并不代码数据库中所有的数据,因为数据集在打开的时候有可能进行了筛选,取决于使用者如何打开这个数据集,总之就是DBGrid中显示多少数据,就导出多少.看在写代码很辛苦的份上,请

&amp;#106avascript Web页面内容导出到Word、Excel

excel|web|word|页面 <HTML>  <HEAD>    <title>WEB页面导出为Excel文档的方法    </title>  </HEAD><body><BR><table id = "PrintA" width="100%" border="1" cellspacing="0" cellpadding="

导出 word模板-做一个题库管理系统，怎么将存储在数据库中的试卷内容导出到word模板中呢

问题描述 做一个题库管理系统,怎么将存储在数据库中的试卷内容导出到word模板中呢 C#2008,access2003,做一个题库管理系统,怎么将存储在数据库中的试卷内容导出到word模板中呢,求助各位大神,求代码 解决方案 用npoi操作数据库http://my.oschina.net/yangxiaoguang/blog/264948 解决方案二: 用npoi操作word文档http://my.oschina.net/yangxiaoguang/blog/264948 解决方案三: http

listview-如何把Listview中的内容发送到另一个Activity中？

问题描述 如何把Listview中的内容发送到另一个Activity中? 在一个 RelativeLayout 有两个 TextViews ,布局像一个按钮.用户点击"button" 时,我发送一个TextView到一个resulting TextView,把第二个TextView 放到一个list中.这些都是在相同的activity中. 用户持续点击 "button"时,就会用很多items填充ListView. 我的问题是如何发送填充到 resulting Te

mfc-MFC中如何将ListControl控件report报表中的内容导出到doc的表格中？

问题描述 MFC中如何将ListControl控件report报表中的内容导出到doc的表格中? MFC中如何将ListControl控件report报表中的内容导出到doc的表格中? 解决方案 http://zhidao.baidu.com/link?url=8Xit7xzSh2IOBuVYdDr6EPAQqN49KMuOVdub_OdVauJHuZusmFC2UBWpBmgVDDXUYX5sObO-7IUSTHNFauBYBnYRmCG_RDPabYzkAfnf2cy

listview-有关Listview中item内容问题？

问题描述 有关Listview中item内容问题? 我的listview有100个条目,每个条目有2个textview,第一个textview有100个数据选择,第二个只有6个选择,请问怎么把第二组数据循环添加到Listview中?

c# 2 0-如何将网页中指定DIV中的内容插入到WORD中指定标签位置进行替换？

问题描述 如何将网页中指定DIV中的内容插入到WORD中指定标签位置进行替换? 我用以下代码实现了文本替换指定标签.请问如何实现将网页中指定DIV中的内容对WORD中指定标签进行替换?请给出源码,请尽可能通过这个类进行操作.. protected void ReplaceWordDocAndSave(Microsoft.Office.Interop.Word.Document docObject, object savePath) { object format = Microsoft.Offi