Vídeo recomendado
https://youtu.be/diWPPPhW-9E

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

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
ROGER_HOLANDA
Acabou de chegar
Acabou de chegar
Mensagens: 7
Registrado em: Qui Mar 03, 2016 5:39 pm

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

Mensagem 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?
Editado pela última vez por ROGER_HOLANDA em Sex Mar 04, 2016 1:42 pm, em um total de 1 vez.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

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

Mensagem 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


ROGER_HOLANDA
Acabou de chegar
Acabou de chegar
Mensagens: 7
Registrado em: Qui Mar 03, 2016 5:39 pm

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

Mensagem por ROGER_HOLANDA »

Bom dia Professor Reinaldo,

Obrigado pela resposta.

Infelizmente não compilou, deu erro na linha

Shell "notepad.exe " & caminho


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

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

Mensagem 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
Anexos
abrir_bloco_notas.zip
Para testar
(14.84 KiB) Baixado 245 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


ROGER_HOLANDA
Acabou de chegar
Acabou de chegar
Mensagens: 7
Registrado em: Qui Mar 03, 2016 5:39 pm

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

Mensagem por ROGER_HOLANDA »

Reinaldo, muito obrigado.
Funcionou perfeitamente.
Parabéns idealizador do Fórum e a todos que contribuem para mante-lo.


SaraOliveira
Colaborador
Colaborador
Mensagens: 17
Registrado em: Sex Set 15, 2017 8:29 am

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

Mensagem 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.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder