Como importar datos desde Excel?

[axlrafael]

Muchisimas gracias Caro, me sirvio de mucho tu código, te debo una

[axlrafael]

Hola Caro, quiero preguntarte ¿porque es que despues de utilizar el archivo de excel en mi aplicación ya no me deja abrirlo de nueva cuenta?, he notado que cuando jalo cualquier archivo Excel en la aplicación no me deja abrirlo, me lo abre de tipo solo lectura y por logica no me deja guardarlo si lo quiero modificar.

Tambien note que en el administrador de tareas me abre tantas veces intente abrir yo el mismo archivo que utilice en la aplicación un proceso que es el de Excel ("EXCEL.EXE")

Espero que me puedas ayudar de nuevacuenta.

Saludos y suerte

[*Caro*]

Hola axlrafael, lo que pasa es que en el codigo que te pase, no estamos cerrando la hoja de excel, aumenta lo siguiente:

Código Delphi [-]
  FileName := 'C:\Archivo.xls';
  try
   Excel := CreateOleObject('Excel.Application');
   Excel.Workbooks.Open(FileName);
   ...........
   ..........
   for i:=1 to CantRow do
    begin
     for j:=1 to CantCol do
      begin
       Showmessage(RangoMatriz[i,j]);
      end;
    end;//for
  finally
   Excel.Quit; //Aquí cerramos la hoja de Excel
  end;

Saluditos

[axlrafael]

Gracias Caro, ya quedo resuelto mi problema.

Suerte

[faustino36]

Que tal, he probado el codigo y funciona muy bien. Alguien sabe como listar las hojas que contiene el documento de excel; en el ejemplo se muestra utilizando la hoja, pero quisiera hacer dinamica esta parte y permitir que el usuario escoja la hoja que desee, alguien sabe como hacer esto?

[roman]

Por ejemplo:

Código Delphi [-]
var
  Excel, Workbook, Worksheet: OleVariant;
  I: Integer;

begin
  Excel := ComObj.CreateOleObject('Excel.Application');

  Workbook := Excel.Workbooks.Open('C:\ruta\al\documento.xls');
  for I := 1 to Workbook.Worksheets.Count do
    Memo1.Lines.Add(Workbook.Worksheets[i].Name);

  Excel.Visible := true;
end;

Posteriormente puedes hacer referencia a una hoja ya sea con el índice numérico o con el nombre:

Código Delphi [-]
Workbook.Worksheets[2]
Workbook.Worksheets['Hoja2']

// Saludos

[faustino36]

Muchas gracias, era exactamente lo que buscaba, ya lo pude implementar, gracias de nuevo