AnsiString Temp;
Tablas->TCCAM->First();//se ubica en el primer registro
while(!Tablas->TCCAM->Eof)//hasta que llegue al final
{
for(i=0;i<Tablas->TCCAM->FieldCount;i++)//Recorrer las columnas...
{
Temp=Tablas->TCCAM->Fields->Fields[i]->AsString;
Mihoja.OlePropertyGet("Cells").OlePropertyGet("Item",j,i+1).OlePropertySet("Value",Temp.c_str());
}
Tablas->TCCAM->Next();//Siguiente registro
j++;
}