Lo siento mucho, es que cuando puse el código me tenía que ir y no me fije si estaba tabulado o no. Mil disculpas. Ahora te lo pongo en condiciones para ver si hago alguna cosa mal, he estado dandole vueltas otro rato, pero no se que más hacer.
Código:
procedure Texcel.ExportarClick(Sender: TObject);
var
XL : Variant;
fichero : String;
i,j : integer;
creado:boolean;
begin
i:=0;
j:=0;
creado:=false;
savedialog1.Execute;
fichero:=savedialog1.FileName;
if fichero <> '' then
begin
try
begin
XL := CreateOLEObject('Excel.Application');
creado:=true;
end;
except
begin
XL.Quit;
showmessage('No se pudo crear el Objecto Excel o se produjo algún error.');
raise;
end;
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
begin
XL.Quit;
creado:=false;
showmessage('No se pudo crear el Objecto Excel o se produjo algún error.');
raise;
end;
end;
end;
i:=i+1;
j:=0;
end;
if (creado = true) then
try
begin
XL.Save;
end;
except
begin
XL.Quit;
showmessage('No se pudo guardar el Objecto Excel o se produjo algún error.');
raise;
end;
end;
XL.Quit;
end;
end;
Espero que ahora este lo suficiente claro, solo llevo una semana registrado y todavía no controlo mucho. Espero que esto sirva para que me puedan sacar de dudas.
Gracias y lo siento, otra vez.
Saludos.