exportar/importar listview a excel
 

tengo un problemilla que no soy capaz de solucionar.
lo que quiero exactamente es generar un archivo excel existente/no existente introduciendole los datos que tengo en una listview y el caso contrario, importar los datos del archivo y mostrarlos en la listview.

es mi primera pregunta, si no esta muy clara indicarmelo por favor.
muchas gracias.

La pregunta está muy clara pero te recomiendo que hagas una búsqueda ya que se ha tratado el tema muchas veces. No específicamente de un ListView pero esto es lo de menos. El punto es que se accede a una hoja de Excel como si de un grid se tratase, celda por celda de manera qe simplemente tienes que asignar a estas celdas el valor correspondiente en el ListView y viceversa.

// Saludos

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.

Es imposible leer este código. Te recomiendo que leas el anuncio que aparece al principio de cada foro y que edites tu mensaje usando las etiquetas apropiadas y con la indentación correcta.

// Saludos

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.




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.

solucionado
 

Al final he conseguido sacarlo :D, no era tan difícil.

Mucha gracias de todas formas.

Saludos.

Pues te invito a que expongas aquí tu solución para que otros puedan beneficiarse de ella cuando se encuentren en una situación similar.

// Saludos

Solucion
 

Pues aqui os pongo el código de como lo he hecho.
EXPORTAR:
IMPORTAR
Espero que os pueda ayudar. Un saludo. :)

Este hilo es de hace 9 años, si tienes algún problema, crea un hilo nuevo y explica detalladamente tu caso, porque no has explicado nada.