[Resolvido]Abrir pasta especifica via VBA

Olá,

estou tendo problemas na execução de um módulo via macro.
O código funciona perfeitamente quando rodado em VBA mas eu queria que um botão executasse esse módulo. Já tentei de todas as formas que eu conheço (que não são muitas) e sempre dá erro.

A parte do módulo que eu quero executar no botão é:

Sub testShellEXE()
Dim lngx As Long
lngx = fShellExe("C:\Users\Projetos", WIN_NORMAL)
End Sub

Já tentei trocar o Sub por Public Function e outras peripércias mas até agora nada.

Quando eu uso a opção AbrirMódulo na macro, utilizando o procedimento que eu quero testShellEXE() eu recebo uma mensagem de erro dizendo que o nome do procedimento é inválido ou eu não abri o banco de dados.

Alguém pode me dar um help?!

Ola Lídia, seja bem vinda ao fórum.

Algumas perguntas;

1º Nesse modulo existe alguma API para poder executar este fShellExe ?

2º O que pretende fazer na realidade ?

Nas macros, existe a opção de RunCode e não AbrirMódulo, para funfar tem de estar em Function.

Se a intenção for abrir uma Pasta é mais simples ainda e não necessita de API;

Public Function testShellEXE()
    Shell "C:\WINDOWS\explorer.exe """ & "Users\Projetos" & "", vbNormalFocus
End Function

Qualquer coisa dê um grito.

Oi JPaulo,
obrigada por responder!
O que eu estou fazendo é tentar abrir uma pasta a partir de um botão.
Esse código que você me passou só abre o endereço "meus documentos".
Eu quero abrir uma pasta mais específica. Já tentei mudar o caminho mas não funcionou.
O que eu faço?

Então JPaulo,

O código que vc me passou mostra a última pasta do caminho. Até aí eu consegui fazer e deu certo.
Mas o que eu queria mesmo era abrir a última pasta do caminho.
Como faz?

E qual é a ultima pasta do seu caminho será a pasta Projetos ?

Public Function testShellEXE()
    Shell "C:\WINDOWS\explorer.exe """ & "C:\Users\Projetos\" & "", vbNormalFocus
End Function

Só uma sugestão aos moderadores para mudar o título do tópico para facilitar a Busca, sugiro "Abrir pasta especifica via VBA"

Caro topbr, a duvida deste tópico, prende-se em fazer correr uma função num modulo via Macro, abrir pasta especifica é o detalhe da duvida.

De qualquer, obrigado pela intervenção.

É que a dúvida era como fazer a macro executar o código que eu tinha para abrir uma pasta específica.
O código funcionava sozinho mas eu não conseguia implementá-lo em uma macro.

Agora com o código que o JPaule me passou está funcionando perfeitamente, inclusive na macro e no botão de comando que usa a macro.

Obrigada pela ajuda!

Valew pelo retorno, o forum agradece.

Precisando de novo estamos ae.

Bom dia , sei que esse tópico ja esta fechado mas gostaria de saber se tem como usar a função like para o vba abrir um diretório que comece com um determinado caractere, tipo tenho o diretório c:\ 05013_2019 -arquivos digitalizados


só que eu quero que ele abra a essa pasta que inicia com 05013_2019 independente do reste ante do nome da pasta o critério seria tipo Shell "C:\WINDOWS\explorer.exe """ & "c:\05013_2019*"
tem como fazer isso?

Grato

Olá;

Sim existe essa possibilidade;

Num modulo cole e altere para os nomes corretos do caminho das pastas;

Código:

Public Function AbrePastaPelaParteDoNome(strPasta As String)
Dim strCaminho$
'para chamar a função é assim:
'Call AbrePastaPelaParteDoNome("05013_2019")
'pode usar no procedimento ao pressionar de um botão no formulario, por exemplo
strCaminho = "C:\" & Dir("C:\" & strPasta & "*", vbDirectory)
    Shell "C:\WINDOWS\explorer.exe """ & strCaminho & "", vbNormalFocus
End Function

Muito obrigado mestre, vou testa re te aviso.