Поиск файла

[parshin]

Как организовать поиск нужного файла в Excel 2007? Application.FileSearch не работат, выдет ошибку "Object doesn't support this action".

[DiemonStar]

Сообщение от parshin

Как организовать поиск нужного файла в Excel 2007? Application.FileSearch не работат, выдет ошибку "Object doesn't support this action".

А откуда у Application появился такой метод? может вы с FindFile спутали?

[parshin]

В Excel 2003 все это добро работает, пытаюсь переделать на 2007 Да вот пример из help 2007:
With Application.FileSearch
.NewSearch
.LookIn = "C:\My Documents"
.SearchSubFolders = True
.FileName = "run"
.TextOrProperty = "San*"
.MatchAllWordForms = True
.FileType = msoFileTypeAllFiles
If .Execute() > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With

[DiemonStar]

http://forum.developing.ru/showthrea...BA-Office-2007

вот тут почитайте, а вот тут описана альтернатива:

http://www.cyberforum.ru/vba/thread327224.html

[SAS888]

В Excel 2007 метод FileSearch заблокирован разработчиками Microsoft. Альтернативного встроенного варианта нет. Либо используйте цикл Do... While...Loop с возможностью ввода маски для поиска файолв, либо объект FileSystemObject. Но, так или иначе, поиск по наличию определенного текста не открывая файлов отсутствует.

[parshin]

большое спасибо.

[Скрипт]

Вот такой вариант с использованием программы "cmd".

Sub Procedure_2()
    
    'Две кавычки формируют одну кавычку.
    'Адрес нужно заключить в кавычки, т.к. если в имени папки или файла
        'будут пробелы, то результата не будет получено.
    Const mySearchFile As String = """C:\Users\User\Desktop\*.docx"""
    Const myTargetFile As String = """C:\Users\User\Desktop\Файл-Назначение.txt"""
    Dim myCommand As String
    
    'Нужно подключить библиотеку:
        'Tools - References... - Windows Script Host Object Model.
    'Без подключения библиотеки: "WScript.Shell".
    Dim myShell As New IWshRuntimeLibrary.WshShell
    'Без подключения библиотеки: "Scripting.FileSystemObject".
    Dim myFSO As New IWshRuntimeLibrary.FileSystemObject
    Dim myFile As IWshRuntimeLibrary.TextStream
    
    '"cmd.exe" - запуск программы "cmd".
    '"/u" - используется, чтобы текст переводился в Unicode-формат (это нужно, чтобы
        'чтобы текст на русском языке не искажался).
    '"/c" - используется, чтобы автоматически закрыть программу "cmd".
    '"dir" - используется, чтобы получить список файлов и папок
        'в указанном месте компьютера.
    '"/b" - используется, чтобы в текстовый файл вывелись только пути
        'и имена файлов без какой-то служебной информации.
    '"/s" - используется, чтобы поиск осуществлялся во всех вложенных папках.
    '">" - используется, чтобы поместить данные из программы "cmd" в файл.
    myCommand = "cmd.exe /u /c dir " & mySearchFile & " /b /s > " & myTargetFile
    'Вместо "cmd.exe" пишут вот так ещё "Environ("COMSPEC")".
    'myCommand = Environ("COMSPEC") & " /u /c dir " & mySearchFile & " /b /s > " & myTargetFile
    
    '"Command" - командная строка.
    '"WindowStyle" - вид окна запускаемой программы.
        '0 - значит - не отображать окно.
    '"WaitOnReturn" - ждём, когда программа сделает то, что нужно и закроется.
        'Это нужно для того, чтобы VBA-код продолжил своё выполнение
        'только тогда, когда будет получен список искомых файлов и папок.
    myShell.Run Command:=myCommand, WindowStyle:=0, WaitOnReturn:=True

    'Файл нужно открывать через "File System Object", 
        'иначе текст на русском языке будет искажён.
    Set myFile = _
        myFSO.OpenTextFile(Filename:=myTargetFile, IOMode:=ForReading, Create:=False, Format:=TristateUseDefault)
    
End Sub

Примечание

Дополнительные параметры команды "dir" можно так посмотреть:

1. Пуск - Выполнить - cmd - нажмите Enter. Откроется программа "cmd";
2. введите и нажмите клавишу Enter:
   dir /?

Правда в этой справке нет информации по параметру "/s". В справке есть параметр "/s", но этот параметр относится к атрибутам.

[EducatedFool]

Посмотрите ещё один удобный способ получения списка файлов в папке:
http://excelvba.ru/code/FilenamesCollection
(самый популярный макрос у меня на сайте, по количеству просмотров)