Buen día compañer@s
Tengo el siguiente código que me exporta correctamente un archivo a xls, lo que ya requiero es que me exporte o me guarde el archivo en xlsx. Obtenido del foro en el siguiente enlace
http://clubdelpra.cluster003.ovh.net...32736&langid=5 en el proyecto "Grabar a Excel B.zip " subido por "rrf" en este proyecto en el "Crear informe realista" se crea por medio de un TFileStream un archivo de excel con extensión .xls, me funciona perfectamente, pero requiero guardar otro archivo con la extensión .xlsx, intente modificar solo el final del nombre con la nueva extensión pero no me funcionó.
Código Delphi
[-]
procedure TMenu1.Button1Click(Sender: TObject);
var
aa : string ;
FStream: TFileStream;
I, J: Integer;
begin
aa := ExtractFilePath( Application.ExeName ) + trim ( Edit3.Text ) + '.xlsx' ;
FStream := TFileStream.Create( aa, fmCreate);
try
XlsBeginStream(FStream, 0);
for I := 1 to strtoint ( Edit2.Text ) do for J := 1 to strtoint ( Edit1.Text ) do begin
case RadioGroup1.ItemIndex of
0: XlsWriteCellNumber(FStream, I, J, 34.34);
1: XlsWriteCellRk(FStream, I, J, 3434);
2: XlsWriteCellLabel(FStream, I, J, Format('Cell: %d,%d', [I, J]));
end;
end;
XlsEndStream(FStream);
finally
FStream.Free;
end;
ShellExecute(Handle,nil, PChar( aa ), '', '',SW_SHOWNORMAL) ;
end;
Alguien puede ayudarme, se lo agradecería.