[weke]

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.

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.