Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Verificar se existe...
 
Notifications
Clear all

Verificar se existe arquivo em um diretório.

 
2024 - VBA & Macros
Post Recente por Fabiano 8 anos atrás
3 Posts
2 Usuários
0 Reactions
994 Visualizações
RSS
 Fabiano
(@alanisfcsm)
Posts: 0
Trusted Member
Topic starter
 

Olá

Pesquisei na net e achei esse código. modifiquei para atender minha necessidade, mas não funcionou. :oops:

Eu gostaria que ele verificasse a existência de arquivo em um diretório, buscando por parte do nome.

ex:
tamarino ppr - 000259 - 04-10-2016.pdf

gostaria de buscar por "000259"


 Sub Find_Document()
'Public Sub Find_Document()
     
     
    Dim Temp_File_Name As String
    Dim File_Name As String
    Dim FileNum As Long
     
    FileNum = "259"   'Range("A2").Value
    Temp_File_Name = "D:PVPDF" & "*" & FileNum & ".pdf"
     
    File_Name = Dir(Temp_File_Name, vbNormal)
     
    While File_Name <> ""
         
        MsgBox "ACHOU"
         
        'MsgBox File_Name
        'File_Name = Dir
         
    Wend
     
End Sub
 
Postado : 04/10/2016 11:03 am
EdsonBR
 EdsonBR
(@edsonbr)
Posts: 1057
Noble Member
 

Beleza, Alanis?

Com uma alteração e meia vc já resolve... rsrsr

1) Asterisco antes do ponto-e-extensão: Temp_File_Name = "D:PVPDF" & "*" & FileNum & "*.pdf"
2) Remover o comentário de: 'File_Name = Dir

 
Postado : 04/10/2016 11:34 am
 Fabiano
(@alanisfcsm)
Posts: 0
Trusted Member
Topic starter
 

Obrigado EdsonBR! :mrgreen:

fiz também outra modificação e agora funcionou certinho!


 Sub Find_Document()
'Public Sub Find_Document()
     
     
    Dim Temp_File_Name As String
    Dim File_Name As String
    Dim FileNum As Long
     
    FileNum = (Worksheets("SET").Range("B332").Value - 1)   
    Temp_File_Name = "D:PVPDF" & "*" & FileNum & "*.pdf"
     
    File_Name = Dir(Temp_File_Name, vbNormal)
     
    If File_Name <> "" Then
         
        MsgBox "ACHOU"
         
        'MsgBox File_Name
        File_Name = Dir
        
        Else
        
        MsgBox "NÃO ACHOU"
         
    End If
     
End Sub
 
Postado : 04/10/2016 11:48 am
Forum Jump:
  Tópico Anterior
Próximo Tópico