Notifications
Clear all

Abrir arquivo através do ThisWorkbook.Path

5 Posts
3 Usuários
0 Reactions
1,315 Visualizações
 lino
(@lino)
Posts: 8
Active Member
Topic starter
 

Olá, Boa Tarde.

Seguinte pessoal, estou com uma dúvida já faz alguns dias, e até agora nao consegui resolvê-la.

Bom, estou desenvolvendo uma planilha e pretendo abrir um determinado arquivo com vba. Porém, essa planilha não rodará apenas em um computador, e sim em vários, e eu não terei contato com eles.

Por exemplo, a pasta da minha planilha chama PROJETO, e dentro dela tenho dois arquivos: PlanilhaPrincipal.xlsm e Arquivo2.xlsm. Eu preciso de um código vba que abra o Arquivo2.xlsm ao clicar em um botão, porém sem ter que usar um caminho completo, como algo do tipo: C:C:UserstesteDownloads , pois como usarei a planilha em outro computadores os caminhos não serão os mesmos, e gerará um erro.

Pensei em localizar o arquivo sem ser pelo caminho completo, como se o vba identificasse a partir da pasta e não o caminho partindo do disco local ( C:pasta ), e que ao localizar os arquivos que ali dentro estão,abrisse.

Porém não sei como.

Como posso fazer isso ?

Sei que para identificar o diretório raiz dos arquivos utilizo ThisWorkbook.Path , mas nao sei como selecionar a planilha ai dentro.

Como faço para especificar uma arquivo dentro do ThisWorkbook.Path ?

Obrigado.

 
Postado : 13/05/2014 11:21 am
(@gtsalikis)
Posts: 2373
Noble Member
 

Seria isso?

Workbooks.Open Filename:= ThisWorkbook.Path & "seuarquivo.xlsm"

 
Postado : 13/05/2014 11:29 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

A respota do deve resolver, mas também você pode tentar assim.

Workbooks.Open ThisWorkbook.Path & "SeuArquivo.xls", UpdateLinks:=xlUpdateLinksAlways

Att

 
Postado : 13/05/2014 11:43 am
 lino
(@lino)
Posts: 8
Active Member
Topic starter
 

gtsalikis e alexandrevba , ambos deram certo.
Era isso mesmo que eu precisava.

Obrigado pelas respostas. :)

 
Postado : 13/05/2014 12:18 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Obrigado pelo retorno, eu fico feliz que resolveu seu problema! :D

Att

 
Postado : 13/05/2014 12:33 pm