Fórum abrir excel #181710
12/09/2003
0
Grato
Marete
Curtir tópico
+ 0Posts
12/09/2003
Marcela
if Perguntar(´Impressão´, ´Geração do arquivo concluída!´ + #13 +
´Deseja abrir este arquivo?´, SIM_NAO, PERGUNTA) = SIM then
begin
ExecuteFile(Nome_Arquivo,´´,´´,SW_SHOW);
end;
Gostei + 0
12/09/2003
Marcela
Vc tem que por este cara no uses
FmxUtils
Gostei + 0
12/09/2003
Marcela
procedure TForm1.Button1Click(Sender: TObject);
var
Nome_Arquivo : String;
begin
Nome_Arquivo := ´C:\Teste.xls´;
ExecuteFile(Nome_Arquivo,´´,´´,SW_SHOW);
end;
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)