Sick boy
14-04-2004, 12:34:32
Hola,
Tengo unos procedimientos que pasan los contenidos de unos grids (dbgrid y stringgrid) a excel.
Hasta aqui todo perfecto, pero cuando abro el fichero creado, todos los numeros estan como texto, y la suma automatica no funciona (entre otras cosas)
Llevo toda la mañana buscando como añadir el formato numerico a las celdas de excel, pero lo que encuentro no se hacerlo funcionar.
En un hilo encontre esto:
Range['H2','G'+LineString].NumberFormat := '0.00%';
Range['G2','G'+LineString].NumberFormat := '$#,##0.00';
Range['I2','I'+LineString].NumberFormat := '$#,##0.00';
Range['J2','J'+LineString].NumberFormat := '$#,##0.00';
Range['A1','J'+LineString].AutoFormat(xlRangeAutoFormatlist1, true,
true,true,true,true,true);
Range['A1','J'+LineString].Columns.AutoFit;
Donde linestring es una variable que se incrementa fila a fila.
Probe a poner esto en mi codigo pero no funciona :(
Tambien he probado a poner selection.numberformat:='@' , pero tampoco funciona
Alguien puede ayudarme ????
Tengo unos procedimientos que pasan los contenidos de unos grids (dbgrid y stringgrid) a excel.
Hasta aqui todo perfecto, pero cuando abro el fichero creado, todos los numeros estan como texto, y la suma automatica no funciona (entre otras cosas)
Llevo toda la mañana buscando como añadir el formato numerico a las celdas de excel, pero lo que encuentro no se hacerlo funcionar.
En un hilo encontre esto:
Range['H2','G'+LineString].NumberFormat := '0.00%';
Range['G2','G'+LineString].NumberFormat := '$#,##0.00';
Range['I2','I'+LineString].NumberFormat := '$#,##0.00';
Range['J2','J'+LineString].NumberFormat := '$#,##0.00';
Range['A1','J'+LineString].AutoFormat(xlRangeAutoFormatlist1, true,
true,true,true,true,true);
Range['A1','J'+LineString].Columns.AutoFit;
Donde linestring es una variable que se incrementa fila a fila.
Probe a poner esto en mi codigo pero no funciona :(
Tambien he probado a poner selection.numberformat:='@' , pero tampoco funciona
Alguien puede ayudarme ????