ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Error on fetching object in OLEObject (https://www.excelbanter.com/excel-programming/324405-error-fetching-object-oleobject.html)

syrhus

Error on fetching object in OLEObject
 
I had a Ax in a OLEObject which is stored in the xls file and when I tried to
get the Object of the OLEObject, Excel crashes.
Someone could help me?


CComPtr<IDispatch pDisp;
hr = pSheets-get_Item(CComVariant(wksndx), &pDisp);
if ( FAILED(hr) || pDisp == NULL )
continue;
CComQIPtr<XLS::_Worksheet pWorksheet = pDisp;
if ( pWorksheet == NULL )
continue;

CComPtr<XLS::OLEObjects pOLEObjects;
hr = pWorksheet-raw_OLEObjects(vtMissing, NULL, (IDispatch**)&pOLEObjects);
if ( FAILED(hr) || pOLEObjects == NULL )
continue;

CComPtr<XLS::_OLEObject pOLEObject;
long lOLEObjects = -1;
hr = pOLEObjects-get_Count(&lOLEObjects);

if ( FAILED(hr) || lOLEObjects < 1 )
continue;

for ( long nOO = 1; nOO <= lOLEObjects ; ++nOO )
{
CComPtr<IDispatch pDisp;
pOLEObject = NULL;
hr = pOLEObjects-raw_Item(CComVariant(nOO), (IDispatch**)&pOLEObject);
if ( FAILED(hr) || pOLEObject == NULL )
continue;

hr = pOLEObject-get_Object(&pDisp); //BUGING HERE !!!!!!!!
if ( FAILED(hr) || pDisp == NULL )
continue;


All times are GMT +1. The time now is 07:47 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com