Abrir explorer

[Zé Luiz]

Olá pessoal, sou novo no forum e também novo em VBA, e tenho a seguinte dúvida:

Estou criando uma macro em excel e em um trecho preciso da seguinte situação - Em um eform criei uma imagem, agora preciso que quando esta imagem for clicada, abra o windows explorer com o caminho que eu especificar,e que por sequência eu consiga abrir um arquivo de qualquer extensão e subpastas deste caminho. Vou postar o mais próximo que cheguei. Com este código abaixo consigo abrir o windows explorer no caminho que eu determinei, mas possibilita apenas a abertura de arquivos com extensão *.xls.

Sub AbrirDir()

Application.Dialogs(xlDialogOpen).Show "C:\Pasta1\"

End Sub

Se alguém puder ajudar fico grato!

abraços

[Zé Luiz]

Olá pessoal, sou novo no forum e também novo em VBA, e tenho a seguinte dúvida:

Estou criando uma macro em excel e em um trecho preciso da seguinte situação - Em um eform criei uma imagem, agora preciso que quando esta imagem for clicada, abra o windows explorer com o caminho que eu especificar,e que por sequência eu consiga abrir um arquivo de qualquer extensão e subpastas deste caminho. Vou postar o mais próximo que cheguei. Com este código abaixo consigo abrir o windows explorer no caminho que eu determinei, mas possibilita apenas a abertura de arquivos com extensão *.xls.

Sub AbrirDir()

Application.Dialogs(xlDialogOpen).Show "C:\Pasta1\"

End Sub

Se alguém puder ajudar fico grato!

abraços

Pessoal fuçando aqui consegui descobrir a função, e aí vai para quem interessar:

Shell "explorer.exe C:\Pasta1",...

em todo caso valeu a todos