Importar datos de un archivo de Excel

[alextmb]

Hola amigos de Club delphi, soy un estudiante que empieza en delphi y necesita de su ayuda, tengo que cagar los datos de una tabla de excel a mi programa para mostrarlo en un Grid, para lo cual me dijero que tenia que ocupar una dataset pero no se como, ojala puedan ayudarme. Gracias.

[[Bicho]]

Hola,

al final de esta misma página puedes encontrar varios hilos que comentan un tema al respecto.
Quizá puedan servirte alguno. Sino es así, siempre puedes valerte del buscador.

Saludos

[Neftali [Germán.Estévez]]

Busca Excel + ADO (tal como ha dicho Bicho); ADO te permite conectarte a una hoja/libro de excel como si fuera una tabla; A partir de ahí sólo debes leer de un sitio y grabar en el otro.

[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

[roman]

Aunque no esté usando una base de datos, puede usar ADO para leer los datos de la hoja de Excel.

// Saludos