Importar datos de un archivo de Excel

[lgarcia]

Hola:

Segun lo que describes en tu hilo no parece que estas trabajando con Bases de Datos, que solo quieres mostrar el contenido de una tabla Excel es un StringGrid, si es asi el siguiente codigo te puede ayudar.

procedure TFormPrincipal.Button1Click(Sender: TObject);
var
  j,i: Integer;
  Excel, Libro: Variant;
begin
    try
      Excel := CreateOleObject('Excel.Application');
    except
      Excel.Quit;
      showmessage('No se pudo crear el Objecto Excel.');
      raise;
    end;
    if OpenDialogXls.Execute then Archivo:= OpenDialogXls.FileName
    else exit;
    Excel.Workbooks.Open(Archivo);
    i:= 1;
    j:= 2;
    try
      repeat
        with StringGrid do
        begin
          Cells [i,1] := Excel.Cells[j,2].Value;
          Cells [i,2] := Excel.Cells[j,3].Value;
        end;        
      inc(i); 
      inc(j);
      until Excel.Cells[j,2].Value = '';
      Excel.quit;
      ShowMessage(' El fichero de productos ha sido importado exitosamente');
        
    except
      ShowMessage(' !!!!! ATENCION !!!!! ' + chr(13) +
                      ' El fichero no pudo ser importado' + chr(13) +
                      ' Revise bien su estructura');
    end;
  end
  else ShowMessage('Ud no pertenece a los miembros de ese grupo' + chr(13) +
                   'Consulte con el Administrador del Sistema');
end;

Si eso es lo que estas pidiendo esto te puede servir.

Saludos
Luis Garcia