ABRIR ARQUIVO COM SEU RESPECTIVO PROGRAMA COM O VB

USUARIO.EXCLUIDOS 04/07/2007 15:56:09
#224650 Resposta escolhida

Tenta isso

Public Const SW_SHOW As Long = 5
Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" ( ByVal hwnd As Long, ByVal _
lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory _
As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
  dim i&
  i& = ShellExecute(0,"open",CaminhoArquivoWord,"","",SW_SHOW)
End Sub

Boa sorte

GAROTA 04/07/2007 15:56:20
#224651

Você pode usar o código abaixo para aplicativos, onde vc informa o que deseja abrir:

RetVal = Shell("c:\WINDOWS\system32\calc.EXE", 1)
No caso de word e excel você utiliza ( mas será necessário associar os componentes e referencias do word e excel, ok? ) :

Dim word As New word.Application

With word
.Documents.Open "C:\meudocumento.doc"
.Visible = True
.WindowState = wdWindowStateMaximize

End With

USUARIO.EXCLUIDOS 04/07/2007 16:14:26
#224657

SINKERTEC eu testei o codigo e na parte do Public Const SW_SHOW As Long = 5 da erro, poderia me ajudar com isso?

USUARIO.EXCLUIDOS 04/07/2007 16:16:55
#224660

Claro meu caro

Crie a parte da função num módulo...e shablim....ta resolvido

Boa sorte e sucesso!

USUARIO.EXCLUIDOS 04/07/2007 16:27:09
#224665

Muito Obrigado...... Agora funciono....VLW pela ajuda.