#include "StdAfx.h"
#include "ExportListToExcel.h"
CExportListToExcel::CExportListToExcel(void)
{
}
CExportListToExcel::~CExportListToExcel(void)
{
}
CString CExportListToExcel::GetExcelDriver(void)
{
char szBuf[2001];
WORD cbBufMax = 2000;
WORD cbBufOut;
char *pszBuf = szBuf;
CString sDriver="";
// 获取已安装驱动的名称(涵数在odbcinst.h里)
if (!SQLGetInstalledDrivers(szBuf, cbBufMax, &cbBufOut))
return "";
// 检索已安装的驱动是否有Excel...
do
{
if (strstr(pszBuf, "Excel") != 0)
{
//发现 !
sDriver = CString(pszBuf);
break;
}
pszBuf = strchr(pszBuf, '\0') + 1;
}
while (pszBuf[1] != '\0');
return sDriver;
}
void CExportListToExcel::importExcelCListCtrl(CListCtrl* pList, CString sExcelFile, CString sSheetName)
{
CString warningStr;
if (pList->GetItemCount ()>0) {
CDatabase database;
CString sDriver;
CString sSql;
// 检索是否安装有Excel驱动 "Microsoft Excel Driver (*.xls)"
sDriver = GetExcelDriver();
if (sDriver.IsEmpty())
{
// 没有发现Excel驱动
//MessageBox(NULL,"没有安装Excel!\n请先安装Excel软件才能使用导出功能!","提示",MB_OK|MB_ICONSTOP|MB_TOPMOST);
AfxMessageBox(_T("没有安装驱动"));
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 " + sSheetName + " (" + sSql + ")";
database.ExecuteSQL(sSql);
// 插入数据项
int nItemIndex;
for (nItemIndex=0;nItemIndex<pList->GetItemCount ();nItemIndex++)
{
strV = "";
for(i=0;i<columnNum;i++)
{
if (i!=0)
{
strV = strV + "," ;
}
strV = strV + "'" + pList->GetItemText(nItemIndex,i) +"'";
}
sSql = "INSERT INTO "+ sSheetName
+" ("+ strH + ")"
+" VALUES("+ strV + ")";
database.ExecuteSQL(sSql);
}
}
// 关闭数据库
database.Close();
warningStr.Format(_T("导出文件保存于%s!"),sExcelFile);
AfxMessageBox(_T("文件已经保存!"));
}
else
{
//没有数据
AfxMessageBox(_T("表格中没有数据"));
}
}
将listcontrl控件里的数据导出到excel表格里
5星 · 超过95%的资源 需积分: 9 114 浏览量
2013-11-05
15:55:59
上传
评论 1
收藏 2KB RAR 举报
会说话的狗
- 粉丝: 4
- 资源: 3
最新资源
- NetOps-py通过sftp替换网络设备启动文件
- STM32单片机FPGA毕设电路原理论文报告任务驱动教学法在单片机课程教学中的应用
- STM32单片机FPGA毕设电路原理论文报告任务驱动法在单片机教学中的应用
- STM32单片机FPGA毕设电路原理论文报告人造金刚石压机智能化压力测控系统设计
- 以某列为依据匹配多项(Excel版)
- STM32单片机FPGA毕设电路原理论文报告人体短臂离心机实验台的显示控制系统
- STM32单片机FPGA毕设电路原理论文报告人工气候室监控系统的环境控制器研究
- STM32单片机FPGA毕设电路原理论文报告染整自动线张力控制系统的设计
- 数据挖掘与机器学习-实验
- 基于Linux系统Nginx的动态网站的LNMP环境源码包
资源上传下载、课程学习等过程中有任何疑问或建议,欢迎提出宝贵意见哦~我们会及时处理!
点击此处反馈
- 1
- 2
前往页