Club Builder

[rockman]

Hola,

Necesito un grid que me de la posibilidad de copiar la información, para luego pegarlo en un fichero EXCEL.

He estado viendo componentes, pero todos son shareware y dado que se trata de una aplicación sin animo de lucro, no puedo permitirmelo.

¿Conoceis de algún componente que me permita realizar esta operacion?
O en su defecto, ¿sabeis la forma de desarrollar esta operación?

Muchas gracias

[Touchsoftwares]

con la ayuda de este foro modificamos un ejemplo y quedo asi

[RexL7]

Hola he probado la función tratando de que que se adecuara a mis propositos, en Builder 5 con office XP y Win Xp trabaja correctamente, pero con Builder 6 en windows XP y Office 2003 manda lo siguiente:

al ejecutar la función salta el mensage de error:

[jotny]

El error indicaba que el parametro que indica la columna de la hoja no puede ser ANSISTRING, por lo que hay que hacer una conversion de tipos solamente y pasarle los parametros... aqui pongo un ejemplo para exportar desde grid a una excel.... logicamente modificando el codigo para un dataSet,....... hay que hacerle unos pequeños ajustes solamente para que no repita la primera fila del grid... pero es lo menos...

void __fastcall TForm1::grid_a_excel(TStringGrid * qry){

Variant vExcel, vHoja, vRango;
vExcel=CreateOleObject("Excel.Application");
vExcel.OlePropertySet("Visible",true);
vExcel.OlePropertyGet("Workbooks").OleProcedure("Add");
vHoja=vExcel.OlePropertyGet("ActiveSheet");
int row = 1;
String COLUMNA = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";//para los nombres de columna


//cabeceras
for (int i = 0; i < qry->ColCount; i++){

AnsiString fd = qry->Cells[i][0];
AnsiString columna="";

if(i<=25){
columna=COLUMNA.SubString(i+1,1)+IntToStr(row);
vExcel.OlePropertyGet("Range",columna.c_str()).OleProcedure("Select");
}
if(i>25 && i <=51){
columna="A"+COLUMNA.SubString(i+1-26,1)+IntToStr(row);
vExcel.OlePropertyGet("Range",columna).OleProcedure("Select");
}
if(i>51 && i <=77){
columna="B"+COLUMNA.SubString(i+1-26,1)+IntToStr(row);
vExcel.OlePropertyGet("Range",columna.c_str()).OleProcedure("Select");
}

if(i>77 && i <=103){
columna="C"+COLUMNA.SubString(i+1-78,1)+IntToStr(row);
vExcel.OlePropertyGet("Range",columna.c_str()).OleProcedure("Select");
}
vExcel.OlePropertyGet("ActiveCell").OlePropertySet("Value",fd.c_str());
}


row++;
row++;
int FILA=0;
AnsiString columna="";

while(FILA<qry->RowCount){
for(int col=0;col<qry->ColCount;col++){
if(col<=25){
columna=COLUMNA.SubString(col+1,1)+IntToStr(row);
vExcel.OlePropertyGet("Range",columna.c_str()).OleProcedure("Select");
}
if(col>25 && col <=51){//if(col>26 <=52){
columna="A"+COLUMNA.SubString(col+1-26,1)+IntToStr(row);
vExcel.OlePropertyGet("Range",columna.c_str()).OleProcedure("Select");
}
if(col>51 && col <=77){
columna="B"+COLUMNA.SubString(col+1-52,1)+IntToStr(row);
vExcel.OlePropertyGet("Range",columna.c_str()).OleProcedure("Select");
}
if(col>77 && col <=103){
columna="C"+COLUMNA.SubString(col+1-78,1)+IntToStr(row);
vExcel.OlePropertyGet("Range",columna.c_str()).OleProcedure("Select");
}
vExcel.OlePropertyGet("ActiveCell").
OlePropertySet("Value",qry->Cells[col][FILA].c_str());
}
FILA++;
row++;
}
}

[rayder]

Hola gente, precisamente este post es lo que necesitaba, pero ninguno de los códigos que habeis puesto me funciona.

Me explico, en el código de Jotny, me da lo siguiente:

[jotny]

si te das cuenta... esta funcion tiene como parametro una qry pero tipo TStringGrid, yo la modifique para que me sirviera para un stringgdrid o dbgrid,

lo mas seguro es que estes pegando el codigo solamente y no la funcion completamente.... por lo que ademas tienes que poner la funcion como publica en la clase que tienes de tu form en tu .h

Por ello es que te dice que Cells no es miembro de TQuery... porque es del TStringGrid..

[Invitado]

Ruego diculpen mi ignorancía.

En efecto era lo que me comentas, jotny, el problema ahora es que persiste el error en la librería sysvari.h

[rayder]

Mil perdones, se me olvidó que estaba como invitado, el autor del post de arriba soy yo.


Muchas gracias por la ayuda prestada.
Un saludo