在程序中如何正确的添加一个EXCEL的SHEET？

[daily]

我从EXCEL8.OLB中导出了一个类Worksheets，发现了其中有一个Add函数：
LPDISPATCH Add(const VARIANT& Before, const VARIANT& After, const VARIANT& Count, const VARIANT& Type);，
使用它可以添加上一个SHEET，但添加完之后却总出现非法操作。
我想请问一下这个函数的几个参数都是什么意思？它们的用法是什么？希望大家指点！

[AlphaOne]

可以查查VBA的帮助

[daily]

再问一个弱智问题：VBA的帮助在哪里能查到？我因为刚开始接触这方面的东西，所以还不是很懂。

[daily]

虚心向大家学习，请大家关注我提的问题

[AlphaOne]

启动word,工具->宏->visual basic 编辑器
按F2查看所有的对象，
选中某对象后 右键菜单->帮助

[ExitWindows]

up

[daily]

看了看其中的帮助，但还是不太明白，能提供一下相关的程序代码吗？

[wangfeng]

你开心，我开心~~~~
大家今天都有好运气~~~~

[lbqsv]

_Application excelApp;
excelApp.CreateDispatch("Excel.Application.8");
if(excelApp.m_lpDispatch==NULL)
{
MessageBox("Error create excel application");
return;
}
Workbooks wbs;
wbs.AttachDispatch(excelApp.GetWorkbooks());
_Workbook tempWb,DayWb;
CMyVariant Template;
Template.vt=VT_I2;
Template.iVal=-4167;
DayWb.AttachDispatch(wbs.Add(Template));
Worksheets wss;
wss.AttachDispatch(DayWb.GetWorksheets());
CMyVariant before,after,count,type;
after.vt=VT_DISPATCH;
COleVariant index(1L);
after.pdispVal=wss.GetItem(index);
count.vt=VT_I2;
count.iVal=1;
LPDISPATCH pws1,pws2;
pws1=wss.Add(before,after,count,type);
after.pdispVal->Release();
index.lVal=2L;
after.pdispVal=wss.GetItem(index);
pws2=wss.Add(before,after,count,type);
after.pdispVal->Release();

LPDISPATCH Add(const VARIANT& Before, const VARIANT& After, const VARIANT& Count, const VARIANT& Type);，
before,after 指要插入的worksheet的前面。后面的worksheet,这个位置关系可以在
excel中的下面的tab页上看出来，count指要插入的个数，type可不设。
它们都是Variant变体类型，相当于vb中的变体（实际上vb可能就是这样实现的）
老出错的原因可能是没有这一行
after.pdispVal->Release();
是因为wss.Add(before,after,count,type);内部对after.pdispVal->AddRef()了。


写出来与大家分享，有不对之处欢迎指正。

[daily]

TO：lbqsv(vc_lover)
请问你的代码当中的CMyVariant是COleVariant的派生类吗？另外这些代码在运行时出现的是类ADD方法无效？很奇怪。还有什么值得注意的地方吗？有什么例子程序吗？
非常感谢你的提示！

[daily]

能再给一些提示吗？

[daily]

大家都来关注一下我提的问题可以吗？

[lbqsv]

CMyVariant是COleVariant的派生类

[lbqsv]

解决了没有？

[wyongyong]

在开始加
#include"comdef"
然后用
sheets.add(vtMissing,vtMissing,vtMissing,vtMissing)