Este fórum está sendo desativado

[Jore]

Olá amigos,
Alguém tem um macro para abrir a pasta onde esta a planilha ativa.
Sei que existe macro para abrir a planilha dentro de uma pasta com o caminho fixo tipo:

Código: Selecionar todos

Sub Abrir_Arquivo()
    Workbooks.Open ("C:\Users\PC\Desktop\Controle\planilha janeiro.xls")
      'copia a linha acima e altera o mes que deseja
End Sub

Mas eu gostaria de um que reconhecesse o caminho. Nãos ei se é muito complicado...
Obrigado!

[osvaldomp]

... para abrir a pasta onde esta a planilha ativa.
Considerei que você quer abrir um arquivo Excel localizado na mesma pasta do arquivo que contém a macro.

Workbooks.Open Filename:=ThisWorkbook.Path & "\planilha janeiro.xls"

[Jore]

Mestre osvaldomp, você deduziu certo, realmente quero abrir outro arquivo que está na mesma pasta do arquivo aberto. Porém acho que estou fazendo algo de errado pois a tela pisca e nada acontece, a pasta não abre...
Coloquei o comando abaixo em um módulo.

Código: Selecionar todos

Sub Abrir_pasta()
'
' Abre a pasta onde este arquivo esta salvo
Workbooks.Open Filename:=ThisWorkbook.Path & "\testando.xlsm"
End Sub

Abaixo segue o arquivo.

testando.rar

Obrigado pela ajuda!

[osvaldomp]

Salve, @Jore .

Se você colocou o comando no arquivo "testando.xlsm", ao rodar a macro o comando tenta abrir o próprio arquivo "testando.xlsm", que contém a macro, por isso "só pisca", pois você deu comando para abrir um arquivo que já está aberto.

Para testar, você precisa colocar essa macro em um módulo de outro arquivo, por exemplo "Bozo.xlsm" e salvar o arquivo Bozo na mesma Pasta do Windows em que estiver gravado o arquivo testando.xlsm.

Em seguida mantenha fechado o arquivo testando, abra o Bozo e rode a macro com fé.

Se a sua fé foi suficiente, então o arquivo testando deverá estar aberto.

[Jore]

Mestre, @osvaldomp , Desculpe a minha falta de fé!

Segui suas recomendações, até criei a planilha Bozo, mas ao clicar no botão com o comando abaixo, a planilha "Testando" é que esta abrindo e não a pasta onde elas estão. Desculpe a minha ignorância

Código: Selecionar todos

Sub Abrir_pasta()
'
' Abre a pasta onde este arquivo esta salvo
Workbooks.Open Filename:=ThisWorkbook.Path & "\Testando.xlsm"
End Sub

[osvaldomp]

... a planilha "Testando" é que esta abrindo e não a pasta onde elas estão.

#
Caro @Jore , peço desculpas pela minha falha. Só agora percebi que você quer abrir a Pasta Windows e não o arquivo.

O primeiro código abaixo somente abre a Pasta e o segundo abre a Pasta e relaciona todos os arquivos que estão salvos nela.
No segundo ainda é possível acrescentar um filtro para exibir somente um ou mais tipos de arquivos de interesse.
Exemplos: poderá exibir somente arquivos .xlsx ou só .xlsm ou só .txt ou vários tipos.

Se além de abrir a Pasta você também pretende selecionar um ou mais arquivos para serem abertos, então retorne para complementarmos o código.

Código: Selecionar todos

Sub SóPasta()
 With Application.FileDialog(msoFileDialogFolderPicker)
  .InitialFileName = ThisWorkbook.Path
  .Show
 End With
End Sub

Sub PastaEArquivos()
 With Application.FileDialog(msoFileDialogFilePicker)
  .InitialFileName = ThisWorkbook.Path
  .Show
 End With
End Sub
 

[Jore]

Muito Obrigado @osvaldomp !! Você realmente é fenomenal!