VC中彻底玩转Excel

《VC中彻底玩转Excel》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、如今Excel是越来越重要了，在我们自己开发的程序中不免要和Excel打交道了。利用Automation技术，我们可以在不去了解数据库的情况下玩转Excel，而且你会发现一切竟如此轻松！    好了，咱们开始吧，我不喜欢用长篇累牍的代码来故弄玄虚，所以下面的代码都是切中要害的片段，总体上是个连贯的过程，包括启动Excel，读取数据，写入数据，以及最后的关闭Excel，其中还包括了很多人感兴趣的合并单元格的处理。    特别说明以下代码需要MFC的支持，而且工程中还要包含EXCEL2000的定义文件：EXCEL9.H，EXCEL9.CPP*****************************

2、************************************************************************************WorkbookswbsMyBooks;_WorkbookwbMyBook;WorksheetswssMysheets;_WorksheetwssMysheet;Rangerange;RangeiCell;LPDISPATCHlpDisp;COleVariantvResult;COleVariantcovTrue((short)TRUE),covFalse((short)FALSE),                   cov

3、Optional((long)DISP_E_PARAMNOTFOUND,VT_ERROR);   //创建Excel2000服务器(启动Excel)，尽量在初始化中建立excel_app对象   //以确保一次只打开一个excel服务器//    if(!m_ExcelApp.CreateDispatch("Excel.Application")) //    {//        AfxMessageBox("无法启动Excel服务器!");//        return;//    }   //app.SetVisible(TRUE);          //使Excel可见   //E

4、xcelApp.SetUserControl(TRUE);      //允许其它用户控制Excel   //打开c:\*.xls   wbsMyBooks.AttachDispatch(m_ExcelApp.GetWorkbooks());   lpDisp=wbsMyBooks.Open(m_strPath,//此处无法打开文档没有问题       covOptional,covOptional,covOptional,covOptional,covOptional,       covOptional,covOptional,covOptional,covOptional,covOpt

5、ional,       covOptional,covOptional);   wbMyBook.AttachDispatch(lpDisp);//得到Workbook   wssMysheets.AttachDispatch(wbMyBook.GetWorksheets());//得到Worksheets   //得到当前活跃sheet，如果有单元格正处于编辑状态中，此操作不能返回，会一直等待   lpDisp=wbMyBook.GetActiveSheet();   wssMysheet.AttachDispatch(lpDisp);   //读取已经使用区域的信息，包括已经使用的行数、

6、列数、起始行、起始列   RangeusedRange;   usedRange.AttachDispatch(wssMysheet.GetUsedRange());   range.AttachDispatch(usedRange.GetRows());   longiRowNum=range.GetCount();                   //已经使用的行数   range.AttachDispatch(usedRange.GetColumns());   longiColNum=range.GetCount();                   //已经使用的列数   l

7、ongiStartRow=usedRange.GetRow();               //已使用区域的起始行，从1开始   longiStartCol=usedRange.GetColumn();            //已使用区域的起始列，从1开始   //读取第iStartRow行，第iStartCol列单元格的值   range.AttachDispatch(wssMysheet.