ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

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 » Qui Mar 03, 2016 7:48 pm

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: 1414
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 » Sex Mar 04, 2016 8:52 am

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


Reinaldo
:oops: :D :mrgreen: :geek:

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 » Sex Mar 04, 2016 9:13 am

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: 1414
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 » Sex Mar 04, 2016 12:38 pm

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 92 vezes


Reinaldo
:oops: :D :mrgreen: :geek:

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 » Sex Mar 04, 2016 1:25 pm

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 » Qua Out 18, 2017 6:09 am

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