Архив форумов ЦИТФорума

[Ujen_x]

Запускаю "Excel", открываю "книгу", активизирую "лист", записываю данные в любой диапазон ячеек, но не получается считать данные, содержащиеся в какой-либо ячейке. Подскажите, пожалуйста, код?

[Jazz]

//...
app = CreateOleObject("Excel.Application");
books = app.OlePropertyGet("Workbooks");
books.Exec(Procedure("Open")<<"d:\\work\\finder\\files\\22222.xls");
book = books.OlePropertyGet("item",1);
sheet= book.OlePropertyGet("WorkSheets",1);
app.OlePropertySet("Visible", 1);
//...

Variant __fastcall getValue(int row,int col)
{
return sheet.OlePropertyGet("Range", toText(row,col) );
}

char* __fastcall toText(int row,int col)
{
static char cellText[256] ;

cellText[0] = 'A' + col ;
sprintf(&cellText[1],"%d",row+1);
return cellText;
}

void __fastcall setValue(int row,int col,AnsiString as)
{
Variant r = sheet.OlePropertyGet("Range", toText(row,col) );
r.OlePropertySet("Value", String(as));
}