Notifications
Clear all

Abrir Pasta Especifica

4 Posts
3 Usuários
0 Reactions
1,420 Visualizações
(@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-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)
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
(@fernandofernandes)
Posts: 43750
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