MFC写Excel文件

1、首先项目中添加类”Typelib中的MFC类->选择文件中”，选择office的安装路径中的excel.exe;

2、选中以下几项_Application,_WorkSheet,_WorkBook,WorkSheets,WorkBooks,Range，然后导入;

3、导入后自动在工程中添加CApplication,CWorkSheet,CWorkBook,CWorkSheets,CWorkBooks,CRange这些类; 

并将把这些类的头文件中的第一句话 #import ".......EXCEL.EXE" nonamespace 删除； 

4、编译时会遇到问题Not enough actual parameters for macro 'DialogBoxW'.  

解决的方法：在CRange类中找到VARIANT DialogBox(){}并将DialogBox其改成_DialogBoxW

5、在菜单上添加一个按钮，并添加事件，写入代码：

     // TODO: 在此添加命令处理程序代码

         CApplication objApp;

         CWorkbooks objBooks;

         CWorkbook objBook;

         CWorksheets objSheets;

         CWorksheet objSheet;

         CRange objRange,usedRange;

         LPDISPATCH lpDisp;

         COleVariant vResult;

         COleVariant covOptional((long)DISP_E_PARAMNOTFOUND,VT_ERROR);

         if(!objApp.CreateDispatch(_T("Excel.Application"),NULL))

         {

                   AfxMessageBox(_T("创建Excel服务失败!"));

                   return;

         }

 

         objApp.put_Visible(TRUE);

         ////////////////////////////////////////////////////////////////

         objBooks.AttachDispatch(objApp.get_Workbooks(),TRUE);

         //objBook.AttachDispatch(objBooks.Add((COleVariant)TempPath),TRUE);//加载EXCEL模板

         objSheets.AttachDispatch(objBook.get_Sheets(),TRUE);//加载Sheet页面

         //添加新的Sheet页面

         //objSheets.Add(vtMissing,vtMissing,_variant_t((long)1),vtMissing);  

         //删除第二个Sheet页面

         //objSheet.AttachDispatch(objSheets.get_Item(_variant_t((long)2)),TRUE);

         //objSheet.Delete();

 

         //把第一个Sheet页面的名字改变为TestSheet

         objSheet.AttachDispatch(objSheets.get_Item(COleVariant((long)1)),TRUE);

         objSheet.put_Name("TestSheet");

 

         ///////合并第一行单元格A1至D1//////

         //加载要合并的单元格

         objRange.AttachDispatch(objSheet.get_Range(COleVariant("A1"),COleVariant("D1")),TRUE);

         objRange.Merge(COleVariant((long)0));

 

         ////////设置表格内容////////

 

         objRange.AttachDispatch(objSheet.get_Cells(),TRUE);//加载所有单元格

//这里的_variant_t可以使用COleVariant代替

        objRange.put_Item(COleVariant((long)1),COleVariant((long)1),COleVariant("数学系研究生课程统计"));

        objRange.put_Item(_variant_t((long)2),_variant_t((long)1),_variant_t("课程名"));

        objRange.put_Item(_variant_t((long)2),_variant_t((long)2),_variant_t("课时"));

        objRange.put_Item(_variant_t((long)2),_variant_t((long)3),_variant_t("难度"));

        objRange.put_Item(_variant_t((long)2),_variant_t((long)4),_variant_t("教学方式"));

        objRange.put_Item(_variant_t((long)3),_variant_t((long)1),_variant_t("泛函分析"));

        objRange.put_Item(_variant_t((long)3),_variant_t((long)2),_variant_t("60"));

        objRange.put_Item(_variant_t((long)3),_variant_t((long)3),_variant_t("普通"));

        objRange.put_Item(_variant_t((long)3),_variant_t((long)4),_variant_t("老师讲课"));

        objRange.put_Item(_variant_t((long)4),_variant_t((long)1),_variant_t("微分流形"));

        objRange.put_Item(_variant_t((long)4),_variant_t((long)2),_variant_t("40"));

        objRange.put_Item(_variant_t((long)4),_variant_t((long)3),_variant_t("难"));

        objRange.put_Item(_variant_t((long)4),_variant_t((long)4),_variant_t("自学"));

        objRange.put_Item(_variant_t((long)5),_variant_t((long)1),_variant_t("二阶椭圆型方程与方程组"));

        objRange.put_Item(_variant_t((long)5),_variant_t((long)2),_variant_t("60"));

        objRange.put_Item(_variant_t((long)5),_variant_t((long)3),_variant_t("很难"));

        objRange.put_Item(_variant_t((long)5),_variant_t((long)4),_variant_t("讨论"));

         objRange.AttachDispatch(objSheet.get_UsedRange());//加载已使用的单元格

 

         objRange.put_WrapText(_variant_t((long)1));//设置单元格内的文本为自动换行

        

        objRange.put_HorizontalAlignment(_variant_t((long)-4108));

        objRange.put_VerticalAlignment(_variant_t((long)-4108));

         ///////设置整体的字体、字号及颜色//////

//要使用字体类，需要在初始Excel的时候导入这个类（下面几个类也是如此）

//为了使用这些类，可以初始化的时候将excel中的类全部导入，并将所有的头文件命改为excel.h

   // Font ft;

       //ft.AttachDispatch(objRange.get_Font());

       //ft.put_Name(_variant_t("宋体"));//字体

       //ft.SetColorIndex(_variant_t((long)11));//字的颜色

       //ft.SetSize(_variant_t((long)12));//字号

       /////////////设置标题字体及颜色//////////

       //m_ExlRge.AttachDispatch(m_ExlSheet.GetRange(_variant_t("A1"),_variant_t("D1")));

       //ft.AttachDispatch(m_ExlRge.GetFont());

       //ft.SetBold(_variant_t((long)1));//粗体

       //ft.SetSize(_variant_t((long)13));

       //ft.SetColorIndex(_variant_t((long)2));

       //CellFormat cf;

       //cf.AttachDispatch(m_ExlRge.GetCells());

 

//      //////////////设置底色/////////////////

 

        Interior it;

        it.AttachDispatch(m_ExlRge.GetInterior());

        it.SetColorIndex(_variant_t((long)11));//标题底色

        ////表格内容的底色////

        m_ExlRge.AttachDispatch(m_ExlSheet.GetRange(_variant_t("A2"),_variant_t("D5")));

        it.AttachDispatch(m_ExlRge.GetInterior());

        it.SetColorIndex(_variant_t((long)15));

//      //////////////为表格设置边框/////////////

//

       CRange UnitRge;

       CString CellName;  

       for(int i=1;i<=5;i++)

       {

                 for(int j=1;j<=4;j++)

                 {    

                     CellName.Format("%c%d",j+64,i);//单元格的名称

                     UnitRge.AttachDispatch(objRange.get_Range(_variant_t(CellName),_variant_t(CellName)));//加载单元格

 

                 //LineStyle=线型Weight=线宽ColorIndex=线的颜色(-4105为自动)

                UnitRge.BorderAround(_variant_t((long)1),_variant_t((long)2),_variant_t((long)-4105),vtMissing);//设置边框

                 }

       }

         //释放对象（相当重要！）

         objRange.ReleaseDispatch();

         objSheet.ReleaseDispatch();

         objSheets.ReleaseDispatch();

         objBook.ReleaseDispatch();

         objBooks.ReleaseDispatch();

         //m_ExlApp一定要释放，否则程序结束后还会有一个Excel进程驻留在内存中，而且程序重复运行的时候会出错

         objApp.ReleaseDispatch();

         //退出程序