Excel VBA abrir arquivo no mesmo diretório

[Crafteribanez]

Boa noite.

Procurei pela web, más não encontrei resposta para abrir outro arquivo Excel no mesmo diretório do arquivo atual que contém a macro.

 

Exemplo.

Tenho o arquivo Modelo.xlsm no seguinte diretório: C:\Users\Crafter\Desktop\Modelo\Modelo.xlsm"

 

Este arquivo acessa dados do arquivo Controle.xlsx, que fica no mesmo diretório.

 Workbooks.Open ("C:\Users\Crafter\Desktop\Modelo\Controle.xlsx")

Citação

Este comando funciona perfeitamente.

 

Quero mandar este arquivo para outras pessoas utilizarem, logon não posse deixar no script o endereço do meu note.

 

Não encontrei modo de abrir este arquivo utilizando outras maneiras como colocar ponto na frente do arquivo.

 

Exemplos que usei e deu erro quando rodo a macro.

Workbooks.Open (".\Controle.xlsx")

Workbooks.Open ("..\Controle.xlsx")

Workbooks.Open ("\Controle.xlsx")

Workbooks.Open ("Controle.xlsx")

Workbooks.Open ("/Controle.xlsx")

Workbooks.Open (".Controle.xlsx")

Workbooks.Open ("..Controle.xlsx")

 

Deve ter uma maneira simples de fazer isto, só que não estou conseguindo chegar nesta maneira.

Alguma dica ?

[Edson Luiz Branco]

Use a propriedade ThisWorkbook.Path

 

Workbooks.Open(ThisWorkbook.Path & "Controle.xlsx")

[Crafteribanez]

Perfeito !

Só que tive de colocar a barra antes do nome do arquivo.

Workbooks.Open (ThisWorkbook.Path & "\Controle.xlsx").

 

Nota 10 ! Valeu Edson