É possível e como abrir um arquivo .Xls com um OpenDialog?

Delphi

05/08/2009

Oi pessoal ! tenho mais essa dúvida agora !!

Preciso abrir um arquivo usando um OpenDialog..sei que é uma dúvida boba mas como sou iniciante, estou me aventurando pelo Delphi ainda!
Eu consegui criar um procedimento para abrir txt, é possível abrir tb .xls?

Agradeço se puderem me ajudar !


Iza

Iza

Curtidas 0

Respostas

Osocram

Osocram

05/08/2009

E possivel sim...
pode ser usar o comando ShellExecute para usar o proprio windows p abrir isso p vc.

procedure TForm1.btnClick(Sender: TObject);
var
  vo_opendlg :TOpenDialog;
begin
  vo_opendlg := TOpenDialog.Create(self);
  try
    if vo_opendlg.Execute then begin
      ShellExecute(handle,´open´,pchar(vo_opendlg.FileName),´´,´´,SW_NORMAL);
    end;
  finally
    FreeAndNil(vo_opendlg);
  end;

end;


Não esqueça de adicionar o shellapi no uses.

Qualquer duvida estamos ae.


GOSTEI 0
Iza

Iza

05/08/2009

Muito obrigada !! me salvou de novo..rsrs deu certinho !! =)


GOSTEI 0
POSTAR