OLE操作Excel编译错误处理
OLE操作Excel编译错误处理
Excel在公司用的很多,而这个东西我用的不是很好,就想用程序来处理,遇到很多错误。这几天研究了下OLE操作Excel。
环境:VS2008 SP1+Excel 2007
加入OLE Type Library
随便建立一个MFC程序,选添加类,Typelib中的MFC类,出来一个对话,可用类型库选“Microsoft Excel 12.0 Object Library”
一般来说,添加下边这些类就够了,当然也可以全部添加
CApplication
CWorkbook
CWorkbooks
CWorksheet
CRange
CWorksheets
CPicture
CPictures
CBorder
CBorders
CFont0
Cnterior
包含头文件的时候,把CApplication.h放到最前面
一个操作的例子
文章图片
#define VT(x) _variant_t(x)
void
CExcelTest2Dlg::OnBnClickedButton1()
文章图片
文章图片
文章图片
{
文章图片
CApplication m_appExcel;
// Excel应用程序
文章图片
CWorkbooks m_books;
文章图片
CWorkbook m_book;
文章图片
CWorksheets sheets;
文章图片
CWorksheet sheet;
文章图片
CRange range;
//选择范围
文章图片
Cnterior interior;
文章图片
CFont0 font;
// 字体
文章图片
CBorders borders;
// 边框
文章图片
CBorder border;
文章图片
CRange column;
文章图片
CRange row;
文章图片
// 初始化Com
文章图片
if (::CoInitialize( NULL ) == E_INVALIDARG)
文章图片
文章图片
文章图片
{
文章图片
MessageBox("初始化Com失败!");
文章图片
}
文章图片
文章图片
// 启动Excel
文章图片
if ( !m_appExcel.CreateDispatch(_T("Excel.Application"), NULL))
文章图片
文章图片
文章图片
{
文章图片
MessageBox(_T("创建Excel失败!"));
文章图片
::CoUninitialize();
文章图片
}
文章图片
COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
文章图片
m_appExcel.put_Visible(TRUE);
文章图片
m_books.AttachDispatch(m_appExcel.get_Workbooks());
文章图片
m_book.AttachDispatch(m_books.Add(covOptional));
文章图片
sheets.AttachDispatch(m_book.get_Worksheets());
//得到Worksheets
文章图片
sheet.AttachDispatch(sheets.get_Item(_variant_t("sheet1")));
//得到sheet1
文章图片
sheet.put_Name("1234");
//sheet1改名
文章图片
文章图片
文章图片
//所有单元格颜色设为白色
文章图片
range.AttachDispatch(sheet.get_Cells());
文章图片
interior.AttachDispatch(range.get_Interior());
文章图片
interior.put_Color(VT(RGB(255, 255, 255)));
文章图片
interior.ReleaseDispatch();
文章图片
文章图片
range.ClearContents();
文章图片
range.ReleaseDispatch();
文章图片
文章图片
range.AttachDispatch(sheet.get_Range(VT("A1"), VT("C1001")));
文章图片
range.ClearFormats();
文章图片
//插入数据
文章图片
range.put_Item(VT(1), VT(1), VT("函数"));
文章图片
range.put_Item(VT(1), VT(2), VT("大项目"));
文章图片
range.put_Item(VT(1), VT(3), VT("小项目"));
文章图片
for (int i = 2;
i < 1000;
i++)
文章图片
文章图片
文章图片
{
文章图片
range.put_Item(VT(i), VT(2), VT(i - 1));
文章图片
range.put_Item(VT(i), VT(3), VT("37122368~37097735~"));
文章图片
}
文章图片
文章图片
// 为四周和内部加上边框
文章图片
borders.AttachDispatch(range.get_Borders());
文章图片
for (long i = xlEdgeLeft;
i <= xlInsideHorizontal;
i++)
文章图片
文章图片
文章图片
{
文章图片
border = borders.get_Item(i);
文章图片
border.put_LineStyle(VT(xlContinuous));
文章图片
border.ReleaseDispatch();
文章图片
}
文章图片
borders.ReleaseDispatch();
文章图片
文章图片
//调整列宽
文章图片
column = range.get_EntireColumn();
文章图片
column.put_ColumnWidth(VT(18.63));
文章图片
column.ReleaseDispatch();
文章图片
range.ReleaseDispatch();
文章图片
文章图片
range.AttachDispatch(sheet.get_Range(VT("A10"), VT("A20")));
//选中
文章图片
range.Merge(VT(0));
//合并单元格
文章图片
range.ReleaseDispatch();
文章图片
文章图片
range.AttachDispatch(sheet.get_Range(VT("A1"), VT("C1")));
文章图片
interior.AttachDispatch(range.get_Interior());
文章图片
interior.put_ColorIndex(VT(7));
文章图片
interior.put_Pattern(VT(xlPatternSolid));
文章图片
interior.ReleaseDispatch();
文章图片
文章图片
font.AttachDispatch(range.get_Font());
文章图片
font.put_ColorIndex(VT(6));
文章图片
font.get_Bold();
文章图片
font.ReleaseDispatch();
文章图片
range.ReleaseDispatch();
文章图片
文章图片
range.AttachDispatch(sheet.get_Range(VT("A2"), VT("C1001")));
//设置range对象的范围
文章图片
interior.AttachDispatch(range.get_Interior());
//选择表格内部
文章图片
interior.put_ColorIndex(VT(13));
//颜色
文章图片
interior.put_Pattern(VT(xlPatternSolid));
//加粗
文章图片
interior.ReleaseDispatch();
文章图片
文章图片
font.AttachDispatch(range.get_Font());
//选择字
文章图片
font.put_ColorIndex(VT(3));
//设置字颜色
文章图片
font.ReleaseDispatch();
文章图片
文章图片
row.AttachDispatch(range.get_EntireRow());
//选择range里的全部行
文章图片
row.put_RowHeight(VT(24));
//行高
文章图片
row.ReleaseDispatch();
文章图片
range.ReleaseDispatch();
文章图片
文章图片
sheet.ReleaseDispatch();
文章图片
sheets.ReleaseDispatch();
文章图片
m_book.ReleaseDispatch();
文章图片
m_books.ReleaseDispatch();
文章图片
m_appExcel.ReleaseDispatch();
文章图片
文章图片
文章图片
}
接下来开始编译,哇,一大堆错误...
e:\myprograms3\exceltest2\exceltest2\debug\excel.tlh(1461) : error C2371: “FontPtr”: 重定义;不同的基类型等等
把CApplication.h里的#import "C:\\Program Files\\Microsoft Office\\Office12\\EXCEL.EXE" no_namespace
改为#import "C:\Program Files\Microsoft Office\OFFICE12\excel.exe" exclude("IFont", "IPicture") rename("RGB", "ignorethis"), rename("DialogBox", "ignorethis"), rename("VBE", "GREATWSVBE")
rebuild all
e:\myprograms3\exceltest2\exceltest2\debug\excel.tlh(2036) : error C2504: “_IMsoDispObj”: 未定义基类
应该是接口没定义,mso.dll这个接口,在CApplication.h最上面加入#import "C:\Program Files\Common Files\Microsoft Shared\OFFICE12\mso.dll"
rebuild all错误少多了
还有VBE之类的错误,改法:
加入
#import "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB" raw_interfaces_only, rename("Reference", "ignorethis"), rename("VBE", "GREATWSVBE")
注意自己机器的路径!
剩下还有一些rename 的警告,可以在相关import后面几上rename("XXX","XXXXX")
本人也是初学OLE操作excel,希望能和大家一起讨论。
posted on 2008-09-21 23:01 greatws 阅读(9255) 评论(4)编辑收藏 引用
推荐阅读
- 2.6|2.6 Photoshop操作步骤的撤消和重做 [Ps教程]
- MongoDB,Wondows下免安装版|MongoDB,Wondows下免安装版 (简化版操作)
- 在线版的迅捷思维导图怎么操作()
- 操作系统|[译]从内部了解现代浏览器(1)
- 数据库总结语句
- JS常见数组操作补充
- 7、前端--jQuery简介、基本选择器、基本筛选器、属性选择器、表单选择器、筛选器方法、节点操作、绑定事件
- ExcelPackage读取写入
- Excel|Excel 2013 新增功能之瞬间填充整列数据!
- 炒股知识(超级短线操作的秘籍|炒股知识:超级短线操作的秘籍 玩转股市)