vc excel有关问题
vc excel问题
我用vc写了一个com组件通过AddOLEObject方法在EXCEL里嵌入了一个ATL控件,请问各位大侠,我怎么才能获得控件的指针. 通过OLEFormat的GetObject();获取的指针是空的，我怎么才能获取正确的值呢？
输出一直为NULL
我该怎么办呢 ？麻烦各位大侠们赐教啊！
------解决方案--------------------
嘛情况 还没解决啊 纠结啊~
------解决方案--------------------
可以试用一下WorkSheet的OLEObject属性
Set wordObj = Worksheets("Sheet1").OLEObjects(1)
wordObj.Activate
With wordObj.Object.Application.WordBasic
.StartOfDocument
.Insert "This is the beginning"
.InsertPara
End With
------解决方案--------------------
我用vc写了一个com组件通过AddOLEObject方法在EXCEL里嵌入了一个ATL控件,请问各位大侠,我怎么才能获得控件的指针. 通过OLEFormat的GetObject();获取的指针是空的，我怎么才能获取正确的值呢？
OLEFormatPtr olefmt = g_spShape->GetOLEFormat();
olefmt->Activate();
IDispatch *pDisp = olefmt->GetObject();
CComQIPtr <ISeal> spSeal(pDisp);
if (spSeal)
{
::MessageBox(NULL, _T("NOT NULL"), _T(""), MB_OK);
}
else
{
::MessageBox(NULL, _T("NULL"), _T(""), MB_OK);
}
输出一直为NULL
我该怎么办呢 ？麻烦各位大侠们赐教啊！
------解决方案--------------------
嘛情况 还没解决啊 纠结啊~
------解决方案--------------------
可以试用一下WorkSheet的OLEObject属性
Set wordObj = Worksheets("Sheet1").OLEObjects(1)
wordObj.Activate
With wordObj.Object.Application.WordBasic
.StartOfDocument
.Insert "This is the beginning"
.InsertPara
End With
------解决方案--------------------
该回复于2011-05-16 10:06:34被版主删除