поиск ячейки в другом файле

[maksim_serg]

помогите!
есть книга1.xls и книга2.xls. нужно открыть книгу1 и запустить макрос, который:
1. найдет в (книга2, лист1) нужную мне ячейку (содержит слово "абв")
2. вставить ее значение в (книга1, лист1, ячейка $A$1)
И все это не открывая книга2

не смейтесь, если что не так выразил

[Dophin]

а чего сразу не открывая то?

[maksim_serg]

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

[Dophin]

открыть файл, найти нужное, скопировать, закрыть файл - максимум секунду займет у макроса.
Но не хотите как хотите

[SAS888]

Не открывая книгу, можно получить данные из известного листа и известной ячейки (диапазона). Если диапазон, в котором требуется найти искомое значение не большой, то можно создать временный лист, получить в нем значения из закрытой книги (посредством создания и удаления ссылок), и затем выполнять поиск. Если же диапазон большой, то это может оказаться еще дольше, нежели открывать каждый файл.

[maksim_serg]

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

открыть файл, найти нужное, скопировать, закрыть файл - максимум секунду займет у макроса.
Но не хотите как хотите

а поподробнее, если можно?

[Dophin]

куда уж подробнее то?)
выкладывайте пример

[maksim_serg]

архив с двумя файлами

[Dophin]

Sub pp()
Application.ScreenUpdating = False
Dim n As String
Dim m As String
Dim s
m = "ячейка 1"
n = "Книга1.xls"
Workbooks.Open ThisWorkbook.Path & "/" & n
s = Workbooks(n).Sheets(1).UsedRange.Find(what:=m, LookIn:=xlValues, lookat:=xlWhole).Address
ThisWorkbook.Sheets(1).[a2] = Workbooks(n).Sheets(1).Range(s)
Workbooks(n).Close False
Application.ScreenUpdating = True
End Sub

файлы лежат в одной папке.
насчет Sheets(1).UsedRange.Find - можно (даже нужно) задать ту область где надо искать.

[SAS888]

Посмотрите пример без открытия файла (об ограничениях я уже говорил).