exportar/importar listview a excel

[weke]

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.

[roman]

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

[weke]

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.

[roman]

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

[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.

[weke]

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

Mucha gracias de todas formas.

Saludos.

[roman]

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


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

[weke]

Pues aqui os pongo el código de como lo he hecho.
EXPORTAR:

procedure TF_Export_Import.ExportarClick(Sender: TObject);
var
Excel : Variant;
fichero,temp : String;
i,j : integer;
creado:boolean;
Tarj : FRMXTarjeta;
l1 : TListItem;
begin
Confirmar.Enabled:=false;
i:=0;
j:=0;
creado:=false;
//***** Rellenamos el listview con los datos *****//
ListView1.Items.Clear;
Instalacion.coleccion_tarjetas.inicio;
While not Instalacion.coleccion_tarjetas.es_fin do begin
Tarj:=Instalacion.coleccion_tarjetas.get_element();
l1:=ListView1.Items.Add;
l1.Caption:=inttostr(ListView1.Items.Count);
l1.SubItems.Add(Tarj.get_codigo_tarjeta);
l1.SubItems.Add(Tarj.usuario_duenyo.get_nombre);
l1.SubItems.Add(Tarj.usuario_duenyo.get_apellidos);
Instalacion.coleccion_tarjetas.siguiente;
end;//fin mientras
//***** CREAMOS EL OBJETO EXCEL *****//
try
begin
Excel := CreateOLEObject('Excel.Application');
Excel.WorkBooks.Add;
creado:=true;
end;
except
begin
Excel.Quit;
showmessage('No se pudo crear el Objecto Excel o se produjo algún error.');
raise;
end;
end; //fin try
//***** RECORREMOS EL LISTVIEW E INSERTAMOS LOS DATOS EN EL OBJETO EXCEL *****//
Excel.Cells[1,1].Value:='"Codigo Tarjeta"';
Excel.Cells[1,2].Value:='"Nombre"';
Excel.Cells[1,3].Value:='"Apellidos"';
while (i < ListView1.Items.Count) do
begin
while (j < 3) do
begin
try
begin
//***** Acceso a las celdas *****//
Excel.Cells[i+2,j+1].Value:=ListView1.Items[i].SubItems.strings[j];
j:=j+1;
end;
except
begin
Excel.Quit;
creado:=false;
raise;
end;
end;
end;
i:=i+1;
j:=0;
end; //fin while
//***** GUARDAMOS EL OBJETO EXCEL *****//
if (creado = true) then
try
begin
Excel.Save;
end;
except
begin
Excel.Quit;
raise;
end;
end; //fin try
Excel.Quit;

Limpiar.Enabled:=true;
end;


IMPORTAR

procedure TF_Export_Import.ImportarClick(Sender: TObject);
var
Excel : Variant;
i : integer;
l1 : TListItem;
filename : string;
lineas : integer;
begin
i:=2;
open.FileName:='';
open.Execute;
filename:=open.FileName;
if filename <> '' then
begin
//***** Creamos el Objeto Ole *****//
try
Excel := CreateOleObject('Excel.Application');
except
Excel.Quit;
showmessage('No se pudo crear el Objecto Excel o se produjo algún error.');
raise;
end;
//***** Asignamos el archivo a abrir *****//
Excel.Workbooks.Open(filename);
//***** Limpiamos la lista *****//
listview1.Items.Clear;
//***** Obtenemos la ultima linea del archivo excel *****//
try
begin
Excel.Selection.End[xlDown].Select;
lineas := Excel.ActiveCell.Row;
Excel.Selection.End[xlUp].Select;
end;
except
begin
ShowMessage('No se ha podido localizar la última línea del archivo.');
raise;
end;
end;
//***** Llenamos el ListView con los datos del archivo excel *****//
while (i <= lineas) do //Excel.ActiveCell.Row te calcula la ultima línea del archivo
begin
//ShowMessage(inttostr(Excel.ActiveCell.Row));
//***** Acceso a los datos de las celdas *****//
L1:=ListView1.Items.Add;
L1.Caption:=inttostr(ListView1.Items.Count);
L1.SubItems.Add(Excel.Cells[i,1].Value);
L1.SubItems.Add(Excel.Cells[i,2].Value);
L1.SubItems.Add(Excel.Cells[i,3].Value);
i:=i+1;
end;
//***** Cerramos el Excel *****//
Excel.quit;
Confirmar.Enabled:=true;
Limpiar.Enabled:=true;
end;
end;


Espero que os pueda ayudar. Un saludo. :)

[Casimiro Notevi]

. 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.