Soa Pelaez
23-11-2018, 21:22:27
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/foros/showthread.php?t=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ó.
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);
// FStream := TFileStream.Create('J:\e.xls', fmCreate);
try
XlsBeginStream(FStream, 0);
for I := 1 to strtoint ( Edit2.Text ) do // Columnas
for J := 1 to strtoint ( Edit1.Text ) do // Filas
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.
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/foros/showthread.php?t=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ó.
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);
// FStream := TFileStream.Create('J:\e.xls', fmCreate);
try
XlsBeginStream(FStream, 0);
for I := 1 to strtoint ( Edit2.Text ) do // Columnas
for J := 1 to strtoint ( Edit1.Text ) do // Filas
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.