Guru do Excel e Power BI

Enviado: **18 Jan 2019 às 14:29**

Olá boa tarde pessoal!
Sou novato com Macros e VBA e gostaria de uma ajuda.
No meu trabalho preciso atualizar um relatório diariamente, para abri-lo automaticamente escrevi um código VBA. Porém todo dia ou virada de mês preciso abrir o código e mudar a referência da pasta onde o arquivo é buscado.

Ex: ChDir _
"S:\Producao Nacional\Planejamento e Controle\PLANEJAMENTO LP WFM\11 - DPA\2018\11 - NOVEMBRO\12"
Workbooks.Open Filename:= _
"S:\Producao Nacional\Planejamento e Controle\PLANEJAMENTO LP WFM\11 - DPA\2018\11 - NOVEMBRO\12\PercAplicDpa_GNA.csv"

Gostaria de uma forma mais pratica, onde eu não precise abrir o código para editar essa informação. Talvez inserir isso na planilha excel ou até mesmo em um input box.

No endereço do diretório essas informações não mudam: S:\Producao Nacional\Planejamento e Controle\PLANEJAMENTO LP WFM\11 - DPA

Apenas o ano, mês e dia quando necessário: 2018\11 - NOVEMBRO\12

Podem me ajudar?

Obrigado!

Enviado: **18 Jan 2019 às 15:23**

EdmilsonPDias escreveu: No endereço do diretório essas informações não mudam: S:\Producao Nacional\Planejamento e Controle\PLANEJAMENTO LP WFM\11 - DPA\
Experimente manter o texto acima (acrescentei uma barra no final) no código e ...

Apenas o ano, mês e dia quando necessário: 2018\11 - NOVEMBRO\12
coloque o texto acima em uma célula, ex. em A1

"S:\Producao Nacional\Planejamento e Controle\PLANEJAMENTO LP WFM\11 - DPA\" & [A1]

Enviado: **18 Jan 2019 às 15:46**

Osvaldo obrigado pelo retorno.

Mas não funcionou, ele não encontra o caminho.

Enviado: **18 Jan 2019 às 15:53**

segue arquivo em anexo

Enviado: **18 Jan 2019 às 19:08**

Eu salvei uma cópia do seu arquivo em C, pasta Testes.
Em seguida abri o arquivo com o comando abaixo.

Código: Selecionar todos

Sub AbreArqXL()
 Workbooks.Open "C:\Testes\AGRUPAR_DPA.xlsm"
End Sub

Aí coloquei o nome e a extensão do arquivo em A1 da planilha ativa e abri o arquivo com o comando abaixo.
A1 = AGRUPAR_DPA.xlsm

Código: Selecionar todos

Sub AbreArqXL()
 Workbooks.Open "C:\Testes\" & [A1]
End Sub

Mais do que isso eu não consigo te ajudar

Enviado: **21 Jan 2019 às 12:23**

Osvaldo, agora deu certo muito obrigado

Guru do Excel e Power BI

Código VBA para buscar arquivo no diretório

Código VBA para buscar arquivo no diretório

Re: Código VBA para buscar arquivo no diretório

Re: Código VBA para buscar arquivo no diretório

Re: Código VBA para buscar arquivo no diretório

Re: Código VBA para buscar arquivo no diretório

Re: Código VBA para buscar arquivo no diretório