Fóruns
Microsoft Excel - 2...
VBA & Macros
Abrir Pasta Especif...
 
Notifications
Clear all

Abrir Pasta Especifica

 
VBA & Macros
4 Posts
3 Usuários
0 Likes
1,198 Visualizações
RSS
 mgonzaga
(@mgonzaga)
Posts: 10
Eminent Member
Topic starter
 

Boa noite.

Estou com problemas em um código.

Em um determinado momento do código, tenho que abrir um arquivo em Excel em uma determinada pasta, porém esse arquivo
fica dentro de várias pastas, assim a cada vez que vou rodar a macro, tenho que percorrer todo o caminho para selecionar o arquivo.

Gostaria que no momento que for para selecionar o arquivo, fosse diretamente na pasta que desejo.

Desde já agradeço a atenção.

Obrigado

 
Postado : 14/08/2017 8:23 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

mgonzaga,

Bom dia!

Confesso que não entendi bem a sua explicação...
você diz

tenho que abrir um arquivo em Excel em uma determinada pasta

. Logo depois você diz

esse arquivo
fica dentro de várias pastas

Afinal? O arquivo fica em uma determinada pasta ou em várias pastas? Como é isso?

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 14/08/2017 9:11 pm
 mgonzaga
(@mgonzaga)
Posts: 10
Eminent Member
Topic starter
 

Bom dia, Wagner.

Desculpe-me.

É um arquivo que fica dentro de uma pasta, porém o caminho é muito longo.
em vários momentos ao decorrer da macro, necessito ir nessa pasta e abrir algum arquivo.

Exemplo: C:CustosGERENCIALArquivos ApoioResumidoGerencia20177-2017

Ex: Gostaria que fosse direto na pasta 07-2017 toda vez que necessitasse.

 
Postado : 15/08/2017 4:15 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43753
Illustrious Member
 

Bom dia!!

talvez isso ajude.

Sub Abrir_ArquivoXLSX()
Dim wkb As Workbook

Application.ScreenUpdating = False
'Essa linha abre o arquivo de nome planilha-orçamento.[b]xlsx[/b], dentro do caminho C:UsersalexandreVBADownloads
Set wkb = Workbooks.Open(Filename:="C:UsersalexandreVBADownloadsplanilha-orçamento.xlsx")

'Seu Código aqui

'wkb.Close False
Application.ScreenUpdating = True

End Sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 15/08/2017 5:47 am
Forum Jump:
  Tópico Anterior
Próximo Tópico