Спасибо, Михаил  
Интересно, а какая идея этой модернизации, на мой взгляд поиск в win не удобный и не такой функциональный.

п.с. может Николай включит расширенный поиск в свою надстройку

спасибо
т.к. сам пользуюсь excel 2003, то знаю что во всех приложениях ms office 2003 есть возможность расширенного поиска файлов ms office ( по месту, по маске, по различным атрибутам документов)

у знакомого версия 2013 и в ней я не нашел данного расширенного поиска  

т.е. в версии 2013 убрали расширенный поиск?

Добрый день!

Подскажите где в Excel 2013 расположена команда расширенного поиска файлов?
# нужно найти из файлов расположенных в папке, те которые содержат ячейки с номерами по маске (*1235*)
в Excel 2003 аналогичная команда: меню файл- поиск файлов...

Спасибо

п.с. пользуюсь Excel 2003

k61 Спасибо! А что случилось с сайтом? Благодаря ему познакомился с макросами  

спасибо всем, получилось  

поместил весь код (процедуру и функцию) в Personal.xls
и заменил
.Formula = "ToArray('" & ThisWorkbook.Path & "\[ExternalWb.xls]Лист2'!A2:F4)"
на
.Formula = "=Personal.xls!ToArray('" & ActiveWorkbook.Path & "\[ExternalWb.xls]Лист2'!A2:F4)"

спасибо,

(пример с post_156533.zip )

при запуске из файла без макроса Книга1.xls
переменная arr при проверке не массив, соответственно вставки не происходит

... может дело в excel ( без лицензии office 2003 )

спасибо, но

на данную тему: Как считать данные из закрытой книги
пользователь ZVI выкладывал пример (приложен)

и если запустить макрос ImportExternalData, но не из файла с макросом MasterWb_01.xls, а из любого другого файла без макроса, то импорта не происходит?  
( вспомогательную функцию ToArray копировал в личную книгу макросов, без толку )

спасибо,  использовал метод  GetObject для своей ситуации
метод GetObject



п.с.
.но с ошибкой, пока не разобрался
(как сделать чтобы пользовательская функция была доступна во всех книгах excel?)

извиняюсь за сумбур

подробно
есть 3 файла:
файл №1 с макросом
файл №2  с таблицей для импорта (без макросов)
файл №3 с внешними данными

***
фрагмент кода
     With Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1)
                   .Formula = "=ToArray('" & strPath & strFName & "штатное расписание'" & "!D81:AI86")"
                   .Formula = Empty
       End With

               If IsArray(arr) Then                    
                   Sheets(Worksheets("$Итоги1$").Index).Range("D" & CStr((I - 1) * 5 + 2)).Resize(UBound(arr, 1),  UBound(arr, 2)).Value = arr
               Else                                        
                   MsgBox ("Ошибка копирования массива")
               End If
***
запускаю макрос из файла №2 и при проверке переменной arr  сообщение "Ошибка копирования массива" и
данные не импортируются

А если разместить сам макрос в файл №2, то импорт работает.

и если в новой книге excel без макросов ввести формулу
=ToArray('C:\3 Штатка тмп\[Район1.XLS]штатное расписание'!D81:AI86), то ошибка #ИМЯ?

а если туже формулу в файл с макросом
то результат 0 (т.е. функция работает)

Как настроить, чтобы в новой книге без макросов, при запуске кода из другой книги функция
ToArray работала?

Добрый день!

на форуме приводился пример копирования данных из закрытых книг
http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=8&TID=18165&MID=159094&tags=&q=ToArray&FORUM_ID%5B0%5D=0&DATE_CHANGE=0&order=relevance&s=%D0%9D%D0%B0%D0%B9%D1%82%D0%B8#message159094
т.е.:
1) книга с макросом, куда импортируются данные
2) книга с внешними данными

мне нужно настроить для ситуации:
1) книга с макросом
2) книга куда импортируются данные (без макросов)
2) книга с внешними данными

Вспомогательная функция ToArray в данной ситуации не работает,
пробовал размещать её в Personal.xls не помогло.

В чем ошибка?

Спасибо