// 导出Excel
CString CBackGroundDlg::ExportAsExcel(CString filename, CListCtrl &resultlist, CWnd * wnd)
{
 CDatabase database;
 CString sDriver = "MICROSOFT EXCEL DRIVER (*.XLS)"; // Excel安装驱动
 CString sSql, sExcelFile;
 //弹出对话框选择路径
    CFileDialog fileDlg (FALSE, /*"Path",*/"xls", filename, OFN_FILEMUSTEXIST| OFN_HIDEREADONLY, "*.xls", wnd);
 if(fileDlg.DoModal() == IDOK)
 {
  sExcelFile = fileDlg.GetPathName();    // 要建立的Excel文件
  CFileFind finder;
  BOOL bWorking = finder.FindFile(sExcelFile);//寻找文件
  if (bWorking)//如果已经存在文件,则删除
  {
   CFile::Remove((LPCTSTR)sExcelFile);
  } 
 }
 else
  return("");
 
 TRY
 {
  // 创建进行存取的字符串
  sSql.Format("DRIVER={%s};DSN='';FIRSTROWHASNAMES=1;READONLY=FALSE;CREATE_DB=\"%s\";DBQ=%s", sDriver, sExcelFile, sExcelFile);
  
  // 创建数据库 (既Excel表格文件)
  if(database.OpenEx(sSql, CDatabase::noOdbcDialog))
  {
   CHeaderCtrl* pHeader = resultlist.GetHeaderCtrl();
   //获得行,列的个数
   int nColCount = pHeader->GetItemCount();
   int nLineCount = resultlist.GetItemCount();
   int ColOrderArray[100];
   CString ca[100];
   resultlist.GetColumnOrderArray(ColOrderArray, nColCount);
   //检索各列的信息,确定列标题的内容
   for(int i =0 ; i< nColCount; i++)
   {
    LVCOLUMN lvc;
    char text[100];
    lvc.mask = LVCF_TEXT|LVCF_SUBITEM;
    lvc.pszText = text;
    lvc.cchTextMax = 100;
    resultlist.GetColumn(ColOrderArray[i], &lvc);
    ca[i] = lvc.pszText;     
   }
   
   // 创建表结构
   CString tempsql="(";
   for(int i = 0 ; i < nColCount - 1; i++)
   {
    tempsql += ca[i];
    tempsql += " TEXT,";   
   }
   tempsql += ca[nColCount - 1];
   tempsql += " TEXT)";
   sSql = "CREATE TABLE Sheet1 ";
   sSql += tempsql;
   database.ExecuteSQL(sSql);
   //插入数据
   int item_count = resultlist.GetItemCount();
   tempsql="(";
   for(int i = 0 ; i < nColCount - 1; i++)
   {
    tempsql += ca[i];
    tempsql += " ,";  
   }
   tempsql += ca[nColCount - 1];
   tempsql += ")";
   for(int itemnum = 0; itemnum < item_count; itemnum++){   
    sSql = "";
    sSql ="INSERT INTO Sheet1 ";
    sSql += tempsql;
    sSql += "VALUES ('";
    for(int i =0 ; i < nColCount - 1; i++)
    {
     sSql += resultlist.GetItemText(itemnum, i);
     sSql += "','";    
    }
    sSql += resultlist.GetItemText(itemnum, nColCount - 1);
    sSql += "')";
    database.ExecuteSQL(sSql);
    
   }    
  }     
  
  // 关闭数据库
  database.Close();
  AfxMessageBox("Excel文件写入成功!");
 }
 CATCH_ALL(e)
 {
  TRACE1("Excel驱动没有安装: %s", sDriver);
  sExcelFile = "";
 }
 END_CATCH_ALL;
 return sExcelFile;
}

//以下是调用该接口方法

CListCtrl *pList = (CListCtrl*)GetDlgItem(IDC_LIST);
 CString strFileName;
 CString strFileOutput = ExportAsExcel(strFileName, *pList, this);
 if (strFileOutput != "")
 {
  if (AfxMessageBox(strFileOutput + "写入成功\n自动打开吗?", MB_YESNO) == IDYES)
  {
   ShellExecute(NULL, "open", strFileName.GetBuffer(strFileOutput.GetLength()), NULL, NULL, SW_SHOWNORMAL);
  }
 }

MFC listcontrol导出excel表格的更多相关文章

  1. PHP导入导出excel表格图片(转)

    写excel的时候,我用过pear的库,也用过pack压包的头,同样那些利用smarty等作的简单替换xml的也用过,csv的就更不用谈了.呵呵.(COM方式不讲了,这种可读的太多了,我也写过利用wp ...

  2. java中使用jxl导出Excel表格详细通用步骤

    该方法一般接收两个参数,response和要导出的表格内容的list. 一般我们将数据库的数据查询出来在页面进行展示,根据用户需求,可能需要对页面数据进行导出. 此时只要将展示之前查询所得的数据放入s ...

  3. .NET环境下导出Excel表格的两种方式和导入两种类型的Excel表格

    一.导出Excel表格的两种方式,其中两种方式指的是导出XML数据类型的Excel(即保存的时候可以只需要修改扩展名为.xls)和真正的Excel这两种. using System; using Sy ...

  4. java导出excel表格

    java导出excel表格: 1.导入jar包 <dependency> <groupId>org.apache.poi</groupId> <artifac ...

  5. 使用NPOI将数据库里信息导出Excel表格并提示用户下载

    使用NPOI进行导出Excel表格大家基本都会,我在网上却很少找到导出Excel表格并提示下载的 简单的代码如下 //mvc项目可以传多个id以逗号相隔的字符串 public ActionResult ...

  6. VB.NET版机房收费系统---导出Excel表格

    datagridview,翻译成中文的意思是数据表格显示,使用DataGridView控件,能够显示和编辑来自不同类型的数据源的表格,将数据绑定到DataGridView控件很easy和直观,大多数情 ...

  7. C#导出Excel表格方法

    using NPOI.SS.UserModel; using NPOI.XSSF.UserModel; using NPOI.SS.Formula.Functions; using System.Re ...

  8. Java代码导入导出 Excel 表格最简单的方法

    import java.io.FileInputStream; import java.io.FileNotFoundException; import java.io.FileOutputStrea ...

  9. js导出Excel表格

    js导出Excel表格 直接上代码: 红色部分:如果表格数据中有“1/1”这样的值,会在导出的Excel中转化为日期“1月1日”,所以才加上了红色那两句.如果返回值中没有这样的格式,红色部分可以不写. ...

随机推荐

  1. 如何监控checkbox改变

    现在想实现一个效果,即使弹幕开关,弹幕开关实际是checkbox $(document).on('change',"#barrage",function(){ if (!$(thi ...

  2. mac 下jetbrains IDE系列IDE主题

    1.直接粘贴导入 使用shift+command+g键进入: ~/Library/Preferences/ 在下边找到当前的IED(WebStrom.IdealIC.PyCharm) 然后在下边找到c ...

  3. 对 OverFeat: Integrated Recognition, Localization and Detection using Convolutional Networks 一文的理解

    一点最重要的学习方法:  当你读一篇论文读不懂时,如果又读了两遍还是懵懵懂懂时怎么办???方法就是别自己死磕了,去百度一下,如果是很好的论文,大多数肯定已经有人读过并作为笔记了的,比如我现在就把我读过 ...

  4. 【IOS 开发】Object - C 入门 之 数据类型详解

    1. 数据类型简介及输出() http://www.把下面的替换我.com/html/topnews201408/79/1279.htm csdn123

  5. django一对多关系的小例题

    urls.py from django.conf.urls import urlfrom django.contrib import adminfrom son1.views import * url ...

  6. webpack ,gulp/grunt的介绍

    http://www.jianshu.com/p/42e11515c10f# bfc的概念block formatting context http://www.cnblogs.com/dojo-lz ...

  7. mina-http之坑

    TCP是流式协议,不保证一次通信传输完整的包,当这种情况发生在mina-http时会产生严重的bug,图中红框部分只是将前后收到的数据拼在一起,但下面处理的还是最近收到的不完整的msg:此为大坑! 轻 ...

  8. Python经典资料汇总

    [专题推荐]Python系列英文原版电子书 http://down.51cto.com/zt/104 python简明教程(CHM) http://down.51cto.com/data/49213 ...

  9. zencart産品描述加上錨文本

    首先,函數會遍曆整段描述,假如一段描述裏面有Hermes wallets這個關鍵詞,那麽函數就會對這個關鍵詞加上鏈接,至于鏈接到哪裏,上面數組裏面有,隻要把數組裏面的内容替換你想要的就可以. 那麽在z ...

  10. 通过图片对比带给你不一样的KMP算法体验

    KMP 算法,俗称“看毛片”算法,是字符串匹配中的很强大的一个算法,不过,对于初学者来说,要弄懂它确实不易. 笔者认为,KMP 算法之所以难懂,很大一部分原因是很多实现的方法在一些细节的差异.体现在几 ...