Wild Card Search Excel 2003
On Aug 2, 6:16 pm, Vergel Adriano
wrote:
try something like this:
Sub Prior_Turbine_A()
Dim i As Long
Dim strSearch As String
strSearch = InputBox("Enter search string")
With Application.FileSearch
.NewSearch
.SearchSubFolders = True
.FileType = msoFileTypeAllFiles
.Filename = "*" & strSearch & "*.pdf"
.LookIn = "I:\Prior_Turbine_A"
.Execute
For i = 1 To .FoundFiles.Count
ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & i), _
Address:=.FoundFiles(i), TextToDisplay:= _
Right(.FoundFiles(i), Len(.FoundFiles(i)) - _
InStrRev(.FoundFiles(i), "\"))
Next
End With
End Sub
--
Hope that helps.
Vergel Adriano
" wrote:
Hi All,
I am using the following function to search a folder and display all
of its PDF files as hyperlinks using the following module. I would now
like to change it where it could prompt a user for input say a name
segment of a file. If a file is say Bright Works they coud enter
*right and the module would search the folders & sub-folders and
display the PDF for Bright Works .
Thanks in advance for all your help,here is the module:
Sub Prior_Turbine_A()
Dim i As Long
With Application.FileSearch
.NewSearch
.SearchSubFolders = True
.Filename = "*.pdf"
.LookIn = "I:\Prior_Turbine_A"
.Execute
For i = 1 To .FoundFiles.Count
ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & i), _
Address:=.FoundFiles(i), TextToDisplay:= _
Right(.FoundFiles(i), Len(.FoundFiles(i)) - _
InStrRev(.FoundFiles(i), "\"))
Next
End With
End Sub- Hide quoted text -
- Show quoted text -
Thanks Vergel, it works great, have a great day and again thanks for
your help.
|