导出CListCtrl控件到Excel文件

一起学习

导出CListCtrl控件到Excel文件

作者：.Live

下载源代码

　　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);

	}

}

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

下载本文示例代码


导出CListCtrl控件到Excel文件导出CListCtrl控件到Excel文件导出CListCtrl控件到Excel文件导出CListCtrl控件到Excel文件导出CListCtrl控件到Excel文件导出CListCtrl控件到Excel文件导出CListCtrl控件到Excel文件导出CListCtrl控件到Excel文件导出CListCtrl控件到Excel文件导出CListCtrl控件到Excel文件导出CListCtrl控件到Excel文件导出CListCtrl控件到Excel文件