Exemplo 1:
Dim wAplicativo as String
Dim wArquivo as String
wAplicativo= "C:\Arquivos de Programas\Microsoft Office\Office\Winword.exe"
wArquivo="c:\temp\carta.doc"
Call Shell(wAplicativo & " " & Chr(34) & wArquivo & Chr(34), 1)
Exemplo 2:
Application.FollowHyperlink "c:\temp\carta.doc" |
domingo, 25 de junho de 2017
