Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Abrir arquivo somen...
 
Notifications
Clear all

Abrir arquivo somente com as iniciais da Planilha

 
2024 - VBA & Macros
Post Recente por DJVSWD 11 anos atrás
4 Posts
2 Usuários
0 Reactions
983 Visualizações
RSS
 DJVSWD
(@djvswd)
Posts: 10
Active Member
Topic starter
 

Bom Dia

Pessoal,

Gostaria de saber se existe algum comando para abrir um arquivo mas somente declarando como ele começa, por exemplo:

Workbooks.Open "c:Usersdouglas.vieiraDesktopdouglasjonatas123456.xls"

Workbooks.Open "c:Usersdouglas.vieiraDesktopdouglas" & "*" & "".xls"

Quero abrir somente com o começo "douglas" pois sempre o final do arquivo que vou abrir irá mudar.
Tem como me ajudar?

Muito Obrigado!

Douglas

 
Postado : 16/05/2014 6:03 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Experimente algo assim:

Sub ttope()
Path = "c:Usersdouglas.vieiraDesktop"
sDir = Dir(Path & "*.xls?")
Do While sDir <> ""
    If sDir Like "douglas*" Then
        Workbooks.Open Filename:=Path & sDir, UpdateLinks:=0
        Exit Sub
    End If
sDir = Dir
Loop
End Sub

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

 
Postado : 16/05/2014 6:20 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Não testado!!!

Sub AleVBA_11684()
    fname = Dir("C:Usersdouglas.vieiraDesktopdouglas*")
    If fname <> "" Then
        Workbooks.Open (fname)
    End If
End Sub

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

 
Postado : 16/05/2014 6:23 am
 DJVSWD
(@djvswd)
Posts: 10
Active Member
Topic starter
 

Reinaldo e Alexandre

Muito obrigado das duas maneiras funcionou!!

Valeu mesmo!!!

:D

Douglas

 
Postado : 16/05/2014 7:03 am
Forum Jump:
  Tópico Anterior
Próximo Tópico