[导出CListCtrl控件到Excel文件.docVIP

导出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]@ ? /////////////////////////////////////////////////////////////////////////////// ? 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