VC知识库文章 - 导出CListCtrl控件到Excel文件

导出CListCtrl控件到Excel文件

作者：

　　CListCtrl获得列的属性可以使用BOOL CListCtrl::GetColumn( int nCol, LVCOLUMN* pColumn )，nCol为需要获得获得属性值的列序号，pColumn 为 LVCOLUMN 结构体的指针。LVCOLUMN结构体中的 UINT mask 作为输入，决定返回哪些属性的值，如果 mask 的值包含 LVCF_TEXT ，则需要将字符串缓存的首地址指针置入结构体中的 LPTSTR pszText; 变量，缓存大小置入 int cchTextMax; 变量。
　　使用这个函数的主要问题是主要问题期望返回 LVCF_TEXT ，设置了 pszText 却没有设置 cchTextMax 变量，并且通常都在分配 LVCOLUMN 结构体空间时将所分配的内存清0，因此总是不能返回列名。反而是没有清0所分配空间，直接设置 mask 为 LVCF_TEXT ，那么可能可以获得列名的值。当然只要正确设置 pszText 和 cchTextMax 就不会有这些问题。
　　还有一个问题是列的数量。没有直接的函数可以获得列的数量，只能从0开始不断自增 nCol 的值，判断 GetColumn( nCol,pColumn ) 的返回值是否为 False 以计算列的数量。

一封装好的导出CListCtrl数据函数如下：

///////////////////////////////////////////////////////////////////////////////
//	void GetExcelDriver(CListCtrl* pList, CString strTitle)
//	参数：
//		pList		需要导出的List控件指针
//		strTitle	导出的数据表标题
//	说明:
//		导出CListCtrl控件的全部数据到Excel文件。Excel文件名由用户通过“另存为”
//		对话框输入指定。创建名为strTitle的工作表，将List控件内的所有数据（包括
//		列名和数据项）以文本的形式保存到Excel工作表中。保持行列关系。
//	
//	edit by [r]@dotlive.cnblogs.com
///////////////////////////////////////////////////////////////////////////////
void ExportListToExcel(CListCtrl* pList, CString strTitle)
{
	CString warningStr;
	if (pList->GetItemCount ()>0) {	
		CDatabase database;
		CString sDriver;
		CString sExcelFile; 
		CString sSql;
		CString tableName = strTitle;
		
		// 检索是否安装有Excel驱动 "Microsoft Excel Driver (*.xls)" 
		sDriver = GetExcelDriver();
		if (sDriver.IsEmpty())
		{
			// 没有发现Excel驱动
			AfxMessageBox("没有安装Excel!\n请先安装Excel软件才能使用导出功能!");
			return;
		}
		
		///默认文件名
		if (!GetDefaultXlsFileName(sExcelFile))
			return;
		
		// 创建进行存取的字符串
		sSql.Format("DRIVER={%s};DSN='''';FIRSTROWHASNAMES=1;READONLY=FALSE;CREATE_DB=\"%s\";DBQ=%s",sDriver, 
					sExcelFile, sExcelFile);
		
		// 创建数据库 (既Excel表格文件)
		if( database.OpenEx(sSql,CDatabase::noOdbcDialog) )
		{
			// 创建表结构
			int i;
			LVCOLUMN columnData;
			CString columnName;
			int columnNum = 0;
			CString strH;
			CString strV;

			sSql = "";
			strH = "";
			columnData.mask = LVCF_TEXT;
			columnData.cchTextMax =100;
			columnData.pszText = columnName.GetBuffer (100);
			for(i=0;pList->GetColumn(i,&columnData);i++)
			{
				if (i!=0)
				{
					sSql = sSql + ", " ;
					strH = strH + ", " ;
				}
				sSql = sSql + " " + columnData.pszText +" TEXT";
				strH = strH + " " + columnData.pszText +" ";
			}
			columnName.ReleaseBuffer ();
			columnNum = i;

			sSql = "CREATE TABLE " + tableName + " ( " + sSql +  " ) ";
			database.ExecuteSQL(sSql);
			
			// 插入数据项
			int nItemIndex;
			for (nItemIndex=0;nItemIndexGetItemCount ();nItemIndex++){
				strV = "";
				for(i=0;iGetItemText(nItemIndex,i) +"'' ";
				}
				
				sSql = "INSERT INTO "+ tableName 
					+" ("+ strH + ")"
					+" VALUES("+ strV + ")";
				database.ExecuteSQL(sSql);
			}
			
		}      
		
		// 关闭数据库
		database.Close();
			
		warningStr.Format("导出文件保存于%s!",sExcelFile);
		AfxMessageBox(warningStr);
	}
}

欢迎到 来讨论VC 、.net、.net moblie、图形图像等的编程与开发。

--------------------next---------------------

VC怎样将Excel文件转化为.txt文件的？ ( xiaolijie 发表于 2007-4-20 14:53:00)
 
我想请教如何在导出之前修改Excel表格的表头，标题，统计行数等信息？ ( sirley 发表于 2007-4-17 17:50:00)
 
为什么导出的数据前面都有一个 " ' ", 怎样在程序中去掉? ( sxpczj 发表于 2007-3-5 9:29:00)
 
对！就是这样：

pList->GetHeaderCtrl()->GetItemCount();

( weifirst 发表于 2006-11-6 14:54:00)
 
我的vc源码网站,欢迎大家去指导 ( xypxlt 发表于 2006-9-13 15:13:00)
 
还有一个问题是列的数量。没有直接的函数可以获得列的数量，只能从0开始不断自增 nCol 的值，判断 GetColumn( nCol,pColumn ) 的返回值是否为 False 以计算列的数量。 
///////////////////////////
如果没有记错的话可以这样:
pList->GetHeaderCtrl()->GetItemCount(); ( lifeforu 发表于 2006-9-1 9:34:00)
 
.......................................................

--------------------next---------------------