Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
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 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Application.FileSearch | Excel Discussion (Misc queries) | |||
Application.FileSearch malfunction?????? | Excel Programming | |||
Application.FileSearch challenge | Excel Programming | |||
Application.FileSearch is not working?? | Excel Programming | |||
VBA Application.FileSearch | Excel Programming |