OLE操作Excel编译错误处理 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)编辑收藏引用

OLE操作Excel编译错误处理

推荐阅读

中国各系菜式菜品数不胜数,那么中国独有的食材都有什么？

mongodb查询指定字段值 mongodb查询指定时间字段

火龙果怎么长的火龙果的生长过程

mysql分表个数怎么定你若安好便是晴天980影院

ae工程师全称 ae是什么职位

寒食以为什么内容的七绝寒食以什么为主要内容

Win10专业版怎么查看电脑硬件配置详细信息？

松下复印机老卡纸的解决方法

呕血|男子喉咙不适，突然呕血后抢救无效死亡，这次尸体解剖，所有人都傻眼了！

虾米音乐怎么用虾米音乐添加在线音乐到个人收藏的具体使用方法

什么是表现性目标表现性目标的解释

五个更加注重内容是什么

mysql创建数据库连接myeplise mysql客户端新建连接

for循环空间复杂度分析,嵌套循环的空间复杂度

手掌参的储存方法「人参花怎么保存方法」

华为|华为虽好但别乱选，这三款才是公认的高配低价，用三五年不过时

博世燃气壁挂炉品牌有什么样的介绍？博世燃气炉代码11

西门子冰箱保鲜层不制冷是哪里坏了？3种方法解决这故障

黄芪当归泡水喝会上火吗

悒悒的意思是什么悒悒的意思介绍