Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Selecionar caminho de um arquivo, gravar em um variável e abri-lo com Call Shell [Resolvido]
-
- 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]
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?
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.
- Reinaldo
- 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
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
-
- 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
Bom dia Professor Reinaldo,
Obrigado pela resposta.
Infelizmente não compilou, deu erro na linha
Shell "notepad.exe " & caminho
Obrigado pela resposta.
Infelizmente não compilou, deu erro na linha
Shell "notepad.exe " & caminho
- Reinaldo
- 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
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
-
- 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
Reinaldo, muito obrigado.
Funcionou perfeitamente.
Parabéns idealizador do Fórum e a todos que contribuem para mante-lo.
Funcionou perfeitamente.
Parabéns idealizador do Fórum e a todos que contribuem para mante-lo.
-
- 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]
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.
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.