View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
somethinglikeant somethinglikeant is offline
external usenet poster
 
Posts: 94
Default 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