Application . filesearch doesn't work
Hi,
Has anybody else experienced problems using application.filesearch
My code looks something like this:-
Sub FileListSearch()
Call Clear
Dim searchtext As String, qfile As String: qsearchtext = [G5]
[C6].Select
Do Until IsEmpty(ActiveCell)
qfolder = ActiveCell.Value
qfile = ActiveCell.Offset(1, 0)
With Application.FileSearch
.NewSearch
.LookIn = qfolder
.MatchTextExactly = False
.Filename = qfile
.TextOrProperty = qsearchtext
.SearchSubFolders = False
.FileType = msoFileTypeExcelWorkbooks
If .Execute 0 Then
For i = 1 To .FoundFiles.Count
ActiveSheet.Hyperlinks.Add Anchor:=Cells(13 + i,
3), Address:= _
.FoundFiles(i), TextToDisplay:= _
Replace(.FoundFiles(i), qfolder & "\", "")
Next i
End If
End With
ActiveCell.Offset(1, 0).Select
Loop
End Sub
However whenever I search for a specific reference, In my case a cheque
number it appears in some but not all of the workbooks I expected it to
appear in.
Is there something I need to be careful about with the type of data
is qsearchtext to be defined as an integer, or string?
I can see the cheque number in one of the spreadsheets but it doesn't
come outusing vba code.
As well as this I tried a search using XP explorer and no results
either.
Am I missing a trick here?
Has anyone else overcome these problems using .filesearch.
Any help appreciated
thanks
somethinglikeant
|