Consejo sobre excel

[CFPA86]

Hola amigos foristas, tengo un programa al cual le deseo IMPORTAR datos de un archivo de excel, el cual tiene dos hojas, recurro a ustedes para que me orienten como debo de hacerlo.
Chao

[[newtron]]

Hola.

Aquí llevas un ejemplo.

Código Delphi [-]
procedure TFormImportaExcel.NTButton1Click(Sender: TObject);
var
  appExcel : Variant;
  N, Hoja : SmallInt;
  contenido : String;
begin
  appExcel := CreateOleObject('Excel.Application');
  appExcel.WorkBooks.Open('C:\ARCHIVO.XLS');
  Hoja:=1;
  N:=0;
  while true do begin
    Inc(N);
    Contenido := appExcel.WorkBooks[1].Worksheets[Hoja].Cells[N,1];
    if Contenido='' then break
  end;
  appExcel.Quit;
  appExcel := Unassigned;
end;

Espero que te sirva.
Saludos

[CFPA86]

Gracias Newtron por el codigo, pero en el formulario o en el programa que debo de hacer para aplicar este codigo, que se es de mucha ayuda.
Chao

[[newtron]]

A ver.

Si le echas un vistazo al código verás que se abre el archivo excel y lo va recorriendo linea por linea poniendo en la variable "contenido" el valor de la primera celda de la hoja número 1 hasta que se encuentra un valor vacío que se interpreta como el final de la hoja. Lo que debes de hacer es abrir tu tabla e ir añadiendo registros y asignando los campos de la hoja excel a los campos del registro que quieras insertar.

Saludos

[CFPA86]

Que pena con todos ustedes, pero nuevamente les dijo no se como aplicar este codigo, entiendo lo que dice pero no se como o por medio de que componente(s) usarlo en el formulario, en esto de la importacion y exportacion de datos soy nuevo, nunca lo he realizado en mis aplicaciones. Es por esto que les pido nuevamente ayuda.
Gracias

[[newtron]]

A ver.... empezamos desde el principio. Dices que tienes un programa, imagino que en tu programa abrirás la base de datos, insertarás registros, etc, ¿no?. ¿Qué base de datos usas? ¿de escritorio? ¿cliente/servidor? ¿qué componentes?.