Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
MACRO ABRIR ARQUIVO...
 
Notifications
Clear all

MACRO ABRIR ARQUIVO EM SUBPASTAS

 
2024 - VBA & Macros
Post Recente por Basole 8 anos atrás
4 Posts
4 Usuários
0 Reactions
842 Visualizações
RSS
 luishmx1
(@luishmx1)
Posts: 1
New Member
Topic starter
 

Senhores bom dia, se fizer o tópico errado aqui me desculpem.

abaixo tenho um exemplo de uma macro que utilizo porém gostaria que a macro abrisse o arquivo dentro de uma subpasta, sem ter que buscar no caminho completo.

Exemplo 1 de como é hoje e exemplo 2 de como poderia ser, alguém sabe se da pra fazer isso?

Exemplo 1
Workbooks.Open Filename:= _
"E:jupGOPOPBECDDCOORDGeSUPLY.xlsx", ReadOnly:=True

Exemplo 2
Workbooks.Open Filename:= _
"CDDCOORDGeSUPLY.xlsx", ReadOnly:=True

Obrigado!
Att,
Luis Henrique

 
Postado : 06/12/2016 6:36 am
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Nao entendi essa questao de sem o caminho completo?

O que vc pretende?

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 06/12/2016 7:11 am
fcarlosc
 fcarlosc
(@fcarlosc)
Posts: 453
Honorable Member
 

Bom-dia,

Não seria o caso de usar a caixa de dialogo...!?

 
Postado : 06/12/2016 8:05 am
Basole
 Basole
(@basole)
Posts: 487
Reputable Member
 

Veja este exemplo se lhe atende:

Usando CHDIR, que permite alterar o diretório ou pasta atual.

Sub Exemplo_2()
Dim strFile As String

ChDir "E:jupGOPOPBE"

strFile = "CDDCOORDGeSUPLY.xlsx"

 If Len(Dir(strFile)) > 0 Then

   Workbooks.Open Filename:= _
   strFile, ReadOnly:=True

End If

End Sub

Click em se a resposta foi util!

 
Postado : 06/12/2016 8:13 am
Forum Jump:
  Tópico Anterior
Próximo Tópico