Для поиска по тексту в MS Office 2003, я применяю Application.FileSearch, но в поздних версиях его убрали. Прочитав многие статьи, не могу найти как же заменить Application.FileSearch, что поиск был именно по тексту, а не по имени файла, что бы не открывал каждый файл и искал во вложенных папках. Удобен для использования был следующий код:
| Код |
|---|
With Application.FileSearch
.NewSearch
.LookIn = "D:\Рекламации"
.SearchSubFolders = True
.TextOrProperty = "1360013010"
.MatchTextExactly = True
.Filename = "*.xls"
.Execute
For i = 1 To .FoundFiles.Count
Cells(i, 1) = .FoundFiles(i)
Next i
End With |
