Notifications
Clear all
2024 - VBA & Macros
3
Posts
2
Usuários
0
Reactions
1,029
Visualizações
Topic starter
Olá
Pesquisei na net e achei esse código. modifiquei para atender minha necessidade, mas não funcionou. 
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
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
Topic starter
Obrigado EdsonBR! 
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