vc automation 写excel文件

最新推荐文章于 2017-03-26 19:55:31 发布

Augusdi

最新推荐文章于 2017-03-26 19:55:31 发布

阅读量2.1k

点赞数

分类专栏： Office编程文章标签： excel application 工作 library null class

Office编程专栏收录该内容

136 篇文章 7 订阅

订阅专栏

1.类向导（ctrl+w），add class ---from a type library -----导入excel.exe(excel 2003)

2.包含头文件#include "excel.h"

3.编写代码，例：

CoInitialize(NULL);//启动excel进程 COleVariant vOpt(DISP_E_PARAMNOTFOUND, VT_ERROR); COleVariant covTrue((short)TRUE), covFalse((short)FALSE); LPDISPATCH lpDisp; //经常用的变量 //启动EXCEL _Application oApp; oApp.CreateDispatch("Excel.Application",NULL); if (!oApp) { AfxMessageBox("不能启动EXCEL"); return; } //向工作簿中添加新工作表 Workbooks oBooks = oApp.GetWorkbooks(); _Workbook oBook = oBooks.Add(vOpt); //excel文件名COleVariant(".xls")网上有人这么用 Worksheets oSheets = oBook.GetWorksheets(); //获取第一张工作表 _Worksheet oSheet = oSheets.GetItem(COleVariant((short)1)); //写表头 Range oRange; Interior cellinterior; //颜色索引值 //以下是sheet1的单元格的标题和内容 oRange=oSheet.GetRange(COleVariant("A1"),vOpt);//得到第一行第一列的那个单元格 oRange.SetValue2(COleVariant("设备名")); //设置宽度 oRange.SetColumnWidth(COleVariant((short)15)); //设置单元格的背景颜色 lpDisp=oRange.GetInterior(); cellinterior.AttachDispatch(lpDisp); cellinterior.SetColorIndex(COleVariant((short)6));//颜色索引 str.Format("G%d",j);//是否告警（需要设置颜色） oRange = oSheet.GetRange(COleVariant(str),COleVariant(str)); CString strWarn = dev.at(i)->warnContent; Hyperlinks link = oRange.GetHyperlinks(); link.Add(oRange,"#Sheet2!A1",vOpt,vOpt,COleVariant(strWarn)); oRange.BorderAround(COleVariant((short)1),(long)2,(long)1,vOpt); oRange.SetHorizontalAlignment(COleVariant((long)-4152));//设置靠右对齐 lpDisp=oRange.GetInterior(); cellinterior.AttachDispatch(lpDisp); cellinterior.SetColorIndex(COleVariant((short)3));//颜色索引 ...... //Make Excel visible and give the user control oApp.SetVisible(FALSE);//设置可见不可见 oApp.SetUserControl(TRUE); oBook.SaveAs(COleVariant(sReportPath),vOpt,vOpt, vOpt,vOpt,vOpt,0,vOpt,vOpt,vOpt,vOpt,vOpt); oBook.Close(covFalse, vOpt, vOpt); oBooks.Close(); oApp.Quit(); oRange.ReleaseDispatch(); oSheet.ReleaseDispatch(); oSheets.ReleaseDispatch(); oBook.ReleaseDispatch(); oBooks.ReleaseDispatch(); oApp.ReleaseDispatch(); CoUninitialize();//释放excel进程

4.一定要注意释放excel内存的时候，

oApp.Quit(); oApp.ReleaseDispatch();

否则释放不掉！