automating excel 2007

[valeraLat]

Hi, i have automated excell using VC6++ and my program works. now i need to find the address of the last sell in Column A in excell sheet. please if anyone can help

Val

[cburn11]

How are your creating the Worksheets object?

[valeraLat]

hi, this is a line

objSheets = objBook.GetWorksheets(); // get worksheets

[cburn11]

The issue is with your second parameter to the add method. The add method expects a variant with an IDispatch * to the sheet you want to insert the new sheet after, not in the numerical index of the sheet in the worksheets collection.

[valeraLat]

thanks for the reply,

function GetItem

objSheet = objSheets.GetItem(COleVariant((short)3)); // select worksheet 3

returns LPDISPATCH

but Add, according to definition, is looking for VARIANT

LPDISPATCH Worksheets::Add(const VARIANT& Before, const VARIANT& After, const VARIANT& Count, const VARIANT& Type)

so how can I attach or convert LPDISPATCH to VARIANT

[cburn11]

VARIANT 	varAfter;
IDispatch 	* pdispSheet;

pdispSheet = objSheets.GetItem(COleVariant((short)3));

varAfter.vt = VT_DISPATCH;
varAfter.pdispVal = pdispSheet;

objSheets.Add(VOptional, varAfter, COleVariant((short)1),VOptional); 

[valeraLat]

all works!! THANK you so much.

[valeraLat]

Hi cburn11, thanks again for the help. this also works:

objSheet = objSheets.GetItem(COleVariant((short)3));

varAfter.vt = VT_DISPATCH;
varAfter.pdispVal = objSheet;

objSheet =objSheets.Add(VOptional, varAfter, COleVariant((short)1),VOptional);