通过Excel9访问Excel2000

[uglyFairy]

你好
我是通过Excel9访问Excel2000的,现在需要实现拷贝和插入功能,望赐教.
部分代码如下:

strRow = "2";
int nTmpVar;
nTmpVar = atoi(strRow) - 1;
strRow.Format("%d", nTmpVar);

Range upMyallrange;
upMyallrange = workSheet.GetRange(COleVariant(NumberAdd("B", strRow)),
COleVariant(NumberAdd("CQ", strRow)));

nTmpVar = atoi(strRow) + 1;
strRow.Format("%d", nTmpVar);

Range myallrange;
myallrange = workSheet.GetRange(COleVariant(NumberAdd("B", strRow)),
COleVariant(NumberAdd("CQ", strRow)));

upMyallrange.Select();
upMyallrange.Copy(vtMissing);
myallrange.Select();
myallrange.PasteSpecial(vtMissing,vtMissing,vtMissing,vtMissing);
return;

这段代码在运行时,出错,麻烦你帮我看一下.

[bug008]

LPDISPATCH pCells;
pCells = upMyallrange.GetCells();
oRange.AttachDispatch(pCells, TRUE);
oRange.Select();
oRange.Copy(vtMissing);

oRange.DetachDispatch();
pCells = myallrange.GetCells();
oRange.AttachDispatch(pCells, TRUE);
oRange.PasteSpecial((long)-4122, (long)2, vtMissing, vtMissing);

oRange.ReleaseDispatch();