Stringgrid a Excel

[LuisAlf::]

Hola a todos!

Estoy de regreso por aquí por un problema con este truco que encontre en el club DELPHI (Exportar un stringGrid a Excel)

http://www.clubdelphi.com/trucos/index.php?id=77&scroll=0&scrollb=88

Primero: Tuve que crear la unit "Excel_TLB", porque la ponia en la sección de "uses" y no la reconocia: menú Project> Import Type Library...

Segundo: Al compilar de nuevo mi proyecto me saltarón errores en estas partes del procedimiento del truco:


try
if pos('/', cells[i, linea - 1]) <> 0 then begin
AuxFecha := strtodatetime(cells[i, linea - 1]));//<<<<<<<<<<<<<----------------------
ws.Cells.Item[ExLin, ExCol] := AuxFecha;
end
else AuxFecha := strtodatetime('GENERA EXCEPCION');
except


Según mi deducción fue porque habia un parentesis demás y lo borre.

Después pude correr mi aplicación pero al accionar el botón de exportación salta un error en el try... Diciendo que:

raised exception class EConvertError with message "GENERA EXCEPCION' is not a valid date and time'.

Y allí ya no se que hacer para que me funcione la exportación a excel :(

Si alguien me pudiera orientar para hacer funcionar el código se lo agradeceria grandemente...

[ecfisa]

Hola LuisAlf.

Mirando el enlace pareciera que se trata de determinar el tipo de dato almacenado en cada celda (comprendida en un rango) del TStringGrid para pasarlo al tipo correspondiente a la planilla de Excel.

No utilizo Excel por lo que no tengo forma de probarlo, pero yo haría las comprobaciones de este modo:

var
DTimeAux: TDateTime;
IntAux: Integer;
FloatAux: Extended;
...
begin
...
if TryStrToDateTime(StringGrid1.Cells[i, linea-1], DTimeAux) then
ws.Cells.Item[ExLin, ExCol]:= DTimeAux
else if TryStrToInt(StringGrid1.Cells[i, linea-1], IntAux) then
ws.Cells.Item[ExLin, ExCol] := IntAux
else if TryStrToFloat(StringGrid1.Cells[i, linea-1],FloatAux) then
ws.Cells.Item[ExLin, ExCol]:= FloatAux
else
ws.Cells.Item[ExLin, ExCol]:= Cells[i,ARow];
...

Me parece un modo más natural que el tratamiento mediante try/except.



Una forma mas reducida (no sé si funcione, tendrías que probar) , sería:

...
if not TryStrToDateTime(StringGrid1.Cells[i, linea-1], ws.Cells.Item[ExLin, ExCol]) then
else if not TryStrToInt(StringGrid1.Cells[i, linea-1], ws.Cells.Item[ExLin, ExCol]) then
else if not TryStrToFloat(StringGrid1.Cells[i, linea-1], ws.Cells.Item[ExLin, ExCol]) then
else
ws.Cells.Item[ExLin, ExCol]:= Cells[i,ARow];
...


Saludos.

[LuisAlf::]

Hola Ecfisa!

Antes que nada gracias por tu ayuda.

Sabes que estuve probando tu recomendación y me parece mucho mejor que todos esos try anidados...

El problema es que no pude solucionar nada! haaha :p


procedure Tform2.ExportaExcel(pStringGrid : TstringGrid; c0,r0,c1,r1 : Integer);
var ExLin, ExCol, i, Linea, AuxInteger : Integer;
AuxFloat : Extended;
AuxFecha : tDatetime;
c : TCursor;
Excel, ExcelDoc, WS : Variant;
begin
c := Screen.Cursor;
Screen.Cursor := crHourGlass;
with pStringGrid do begin
try
coinitialize(nil);
Excel := CreateOleObject('Excel.Application');
ExcelDoc := Excel.Workbooks.Add;
WS := ExcelDoc.ActiveSheet;
Excel.Visible := true;
ExCol := 0;
for i := c0 to c1 do begin
inc(ExCol);
ws.Cells.Item[1, ExCol]:= cells[i, 0];
end;

for linea := r0 to r1 do begin
inc(ExLin);
ExCol := 0;
for i := c0 to c1 do begin
inc(ExCol);

if TryStrToInt(StringGrid1.Cells[i, linea-1], AuxInteger) then
ws.Cells.Item[ExLin, ExCol] := AuxInteger
else if TryStrToFloat(StringGrid1.Cells[i, linea-1],AuxFloat) then
ws.Cells.Item[ExLin, ExCol]:= AuxFloat
else
ws.Cells.Item[ExLin, ExCol]:= StringGrid1.Cells[i,linea-1];
//showmessage(ws.Cells.Item[ExLin, ExCol]);
end;
end;
ws.cells.entirecolumn.autofit;
finally
screen.Cursor := c;
end;

end;//del with
end;



Ya no salta error pero no me exporta correctamente... decidí darme a la busqueda de otras soluciones y encontre una, por medio de la ayuda de OLE... Como lo explica muy claramente roman en este hilo:

http://www.clubdelphi.com/foros/showthread.php?t=22649

Bueno muchas gracias de cualquier forma! :D ;)