Foros Club Delphi - Importar datos de un archivo de Excel

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)

- - Importar datos de un archivo de Excel (https://www.clubdelphi.com/foros/showthread.php?t=44468)

Importar datos de un archivo de Excel

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.

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

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.

Importar datos de Excel

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.

Código:

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

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

// Saludos