Si,perdon. Pense que seria alguna propiedad del opendialog que me olvide de poner,por eso crei que no seria necesario el codigo. El Opendialog tiene el filter para que solo abra archivos de excel.
Código Delphi
[-]procedure TfrmMain.btnAbrirClick(Sender: TObject);
begin
If Fnuevabusqueda = true then
begin
if MessageDlg ('Realizar una nueva busqueda?', mtConfirmation, [mbYes, mbNo], 0) = mrYes
then begin
ProgressBar1.Free;
LimpiarGrillas;
Opendialog1.Execute;
self.Refresh;
FArchivoexcel := Opendialog1.FileName;
Grillaexcel.LoadFromXLS(Farchivoexcel);
Barraestado.SimpleText := Opendialog1.Filename;
end
else
end;
if Fnuevabusqueda = false
then begin
Opendialog1.Execute;
self.Refresh;
FArchivoexcel := Opendialog1.FileName;
Grillaexcel.LoadFromXLS(Farchivoexcel);
Barraestado.SimpleText := Opendialog1.Filename;
end;
end;
//Que bueno que leiste el Stick, acabo de editar tu mensaje para aplicar las etiquetas y puedas ver como se usan ![Wink](http://www.clubdelphi.com/foros/images/smilies/wink.gif)