Application.FileSearch не работает в Оффисе 2007.

[abracadabra]

Application.FileSearch не работает в Оффисе 2007.
Как перебрать все файлы в одной папке в Оф. 2007.
Спасибо.

[abracadabra]

что, чайники, да?

[Pavel55]

В C:\Temp\ должны быть файлы Excel

Код: Выделить всё

Sub Dont_be_rude()
    Dim MyPath As String
    Dim iFileName As String
    Dim i As Long
    Dim sSheet As String
    MyPath = "C:\Temp\"
    iFileName = Dir(MyPath)
    i = 1
    Do While iFileName <> ""
        Workbooks.Open (MyPath + iFileName)
        sSheet = ActiveSheet.Name
        Workbooks(iFileName).Sheets(sSheet).Range("A1").Formula = "Не хами!"
        Workbooks(iFileName).Close SaveChanges:=True
        iFileName = Dir
    Loop
End Sub

[GSerg]

abracadabra получает строгое замечание за топик-ап через 2 часа, а особливо за форму и содержание этого топик-апа.

[ANDLL]

что, чайники, да?

Так их нубов, так! Ух, папку перебрать не могут, черти полосатые....

[Krasnaja Shapka]

Код: Выделить всё

.Range("A1").Formula = "Не хами!"

супер...

[KL]

Насколько мне известно...

1) У свойства/объекта FileSearch в Excel 97 - 2003 была дурная слава, т.к. в ряде ситуаций он давал непредказуемые результаты.

2) В MSO2007 Микрософт отключил FileSearch (теперь это скрытый объект)

[AGGRESSOR]

что значит скрытый (hidden)?
и чем он отличается от removed?

[KL]

что значит скрытый (hidden)?
и чем он отличается от removed?

тем, что скрытый объект можно увидеть в Object Browser, выбрав опцию Show Hidden Members в контекстном меню.

[AGGRESSOR]

KL
а работать с ним можно? Или можно только посмотреть в обжект браузере?

[KL]

KL
а работать с ним можно? Или можно только посмотреть в обжект браузере?

зависит:

с FileSearch - нельзя он похоже деактивирован
с Picture - можно

тот факт, что объект скрыт не влияет на возможность его использования, а лишь означает, что он не рекомендован для использования.

думаю, и это только догадка, что действие FileSearch приостановлено до исправления бага.

[Andrey Fedorov]

думаю, и это только догадка, что действие FileSearch приостановлено до исправления бага.

Да, недавно делал заказик и столкнулся в 2007-м с FileDialog - на

.Filters.Clear
.Filters.Add

Ругается что нет таких методов... Пришлось диалог делать через API.

Хотя ничего не отключено и в Help-е все присутствует...

[KL]

.Filters.Clear
.Filters.Add

Ругается что нет таких методов... Пришлось диалог делать через API.

Хотя ничего не отключено и в Help-е все присутствует...

У меня оба метода работают (Vista Ultimate + MSO 2007 Ultimate).

[Andrey Fedorov]

У меня оба метода работают (Vista Ultimate + MSO 2007 Ultimate).

Возможно дело в том, что MDB-шка у меня была от 2003-го офиса (такую дал заказчик)... Играться с форматом я не стал ибо все одно отсылать обратно.