Página 1 de 1

Selecionar caminho de um arquivo, gravar em um variável e abri-lo com Call Shell [Resolvido]

Enviado: Qui Mar 03, 2016 7:48 pm
por ROGER_HOLANDA
Boa noite a todos do Fórum,

Preciso gravar o caminho de um arquivo e usar esse caminho na função Call Shell.

Segue o código

Sub AbrirScript()
Dim endereco As String
Dim caminho As String
Range("N2").Select
If Range("n2") <> "" Then
Else
MsgBox "Insira o caminho do arquivo", vbExclamation, "ATENÇÃO"
endereco = Application.GetOpenFilename(filefilter:="Texto Filco, *txt")
caminho = endereco
End If
Call Shell("C:\WINDOWS\system32\notepad.exe caminho")
End Sub


Já tentei chamar pela variável "caminho" e "endereço" mas a função não entende como um caminho.
O que devo alterar nesse código?

Re: Selecionar caminho de um arquivo, gravar em um variável e abri-lo com Call Shell

Enviado: Sex Mar 04, 2016 8:52 am
por Reinaldo
Experimente:

Código: Selecionar todos

Sub AbrirScript()
Dim endereco As String
Dim caminho As String
Range("N2").Select
If Range("n2") <> "" Then
Else
MsgBox "Insira o caminho do arquivo", vbExclamation, "ATENÇÃO"
endereco = Application.GetOpenFilename(filefilter:="Texto Filco, *txt")
caminho = endereco
End If

Shell "notepad.exe " & caminho
End Sub

Re: Selecionar caminho de um arquivo, gravar em um variável e abri-lo com Call Shell

Enviado: Sex Mar 04, 2016 9:13 am
por ROGER_HOLANDA
Bom dia Professor Reinaldo,

Obrigado pela resposta.

Infelizmente não compilou, deu erro na linha

Shell "notepad.exe " & caminho

Re: Selecionar caminho de um arquivo, gravar em um variável e abri-lo com Call Shell

Enviado: Sex Mar 04, 2016 12:38 pm
por Reinaldo
Em meu equip funciona Ok, então experimente passando o path do arquivo note.

Código: Selecionar todos

Sub AbrirScript()
Dim endereco As String
'Dim caminho As String
Range("N2").Select
If Range("n2") <> "" Then
Else
MsgBox "Insira o caminho do arquivo", vbExclamation, "ATENÇÃO"
endereco = Application.GetOpenFilename(filefilter:="Texto Filco, *txt")
'caminho = endereco
End If
Shell "C:\WINDOWS\system32\notepad.exe " & endereco, vbNormalFocus
End Sub

Re: Selecionar caminho de um arquivo, gravar em um variável e abri-lo com Call Shell

Enviado: Sex Mar 04, 2016 1:25 pm
por ROGER_HOLANDA
Reinaldo, muito obrigado.
Funcionou perfeitamente.
Parabéns idealizador do Fórum e a todos que contribuem para mante-lo.

Re: Selecionar caminho de um arquivo, gravar em um variável e abri-lo com Call Shell [Resolvido]

Enviado: Qua Out 18, 2017 6:09 am
por SaraOliveira
Ola!

gostaria de saber se é possível executar este comando Shell no Office X64?
Quando executo ele na minha maquina do trabalho, funciona normalmente. Mas se tento executar em casa, cujo office e o sistema operacional são x64, nada ocorre.