He estado leyendo el hilo que me comentaste. A la hora de acceder a las celdas y eso, me ha quedado claro, pero no demasiado a la hora de crear un nuevo archivo XLS, quizá es que no llevo demasiado tiempo con delphi, pero me lio un poco.
Me gustaría guardarlo en un archivo que no exista, mediante un "savedialog".
A continuación pongo el código que estoy utilizando, no se si estará correcto o que, ya me decis si hay algún error o como lo podría hacer.
********************************************************
********************************************************
procedure Texcel.ExportarClick(Sender: TObject);
var
XL : Variant;
fichero : String;
i,j : integer;
begin
i:=0;
j:=0;
savedialog1.Execute;
fichero:=savedialog1.FileName;
if fichero <> '' then
begin
try
XL := CreateOLEObject('Excel.Application');
except
XL.Quit;
showmessage('No se pudo crear el Objecto Excel o se produjo algún error.');
raise;
end;
XL.WorkBooks.Add;
while (i < ListView1.Items.Count) do
begin
while (j < 4) do
begin
try
begin
//***** Acceso a las celdas *****//
XL.Cells[i+1,j+1].Value:=ListView1.Items[i].SubItems.strings[j];
j:=j+1;
end;
except
XL.Quit;
showmessage('No se pudo crear el Objecto Excel o se produjo algún error.');
raise;
end;
end;
i:=i+1;
j:=0;
end;
try
begin
XL.Save;
end;
except
XL.Quit;
showmessage('No se pudo crear el Objecto Excel o se produjo algún error.');
raise;
end;
XL.Quit;
end;
end;
********************************************************
********************************************************
Gracias.
Última edición por weke fecha: 10-05-2004 a las 13:08:42.
|