обращение к разным книгам

[Bape}l{ka]

подскажите пожалуйста, как правильно, я о том и спрашиваю

и в каком коде оно прописано??

мне надо, чтобы макрос работал с разными книгами, соответственно, чтобы можно было задать, с какими именно из открытых ему работать.

как еще можно занести Workbook в переменную??

[Hugo121]

Непонятна задача в общем. Я именно с таким вопросом не сталкивался - обычно макрос работает с активной в определённый момент книгой, или с книгой с известным названием.
1 вариант

Dim wb As Workbook
Set wb = ActiveWorkbook

2 вариант (книга должна быть уже сохранена на диске)

Workbooks("Книга1.xls").Sheets(1).Cells(1, 1) = "test"

3 вариант - книга только что создана:

Set tmpWBk = Application.Workbooks.Add

4 вариант:

' получаем данные из книг
Set wb = GetObject(ThisWorkbook.Path & "\табл_1.xls")
x = wb.Sheets(1).Range("A2..D" & wb.Sheets(1).Cells(65000, 1).End(xlUp).Row).Value
wb.Close (False)
Set wb = GetObject(ThisWorkbook.Path & "\табл_2.xls")
y = wb.Sheets(1).Range("A2..B" & wb.Sheets(1).Cells(65000, 1).End(xlUp).Row).Value
wb.Close (False)
Set wb = Nothing

[Watcher_1]

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

Dim Кеу_ As Workbook, Table_ As Workbook

'далее заношу название книг в ячейки, откуда их потом и тащу
Key_ = Workbooks("KodKey.xls").Worksheets("KodKey").Cells(5, 7).Value

неправильно так писать.
у вас макрос должен вылететь на строке с Key_ =,
ибо вы переменной типа Workbook присваиваете текстовое значение.

И зачем заносить имя книги в ячейку, если это имя уже прописано в коде???

Да забыл сказать что эту строку надо убрать
Dim Кеу_ As Workbook, Table_ As Workbook

Иначе работать не будет

А вообще было бы лучше если бы вы саму задачу озвучили где вы хотите применить чать этого кода....

[Bape}l{ka]

ммм... спасибо за варианты
наверно у меня просто извращенная логика =ь
задача такова (я ее уже озвучивала ранее): есть 2 книги (каждый раз это разные 2 книги, поэтому я хочу сделать их переменными).
В одной лежит библиотека с ID-шниками. Другую книгу надо просмотреть на предмет слов из библиотеки и заменить их (слова) на ID

хотелось сделать по-простому, да видать не получается Т_Т
видимо придется как-то загонять эту библиотеку в массив (я не очень в этом понимаю, ну да когда-нибудь надо освоить)).
видимо тут больше всего подходит 4-й вариант Hugo121

может я неправильно рассуждаю и вы мне что-нибудь посоветуете?

вот пример:
Table-Key.zip

[Hugo121]

Ну если просто, и таблицы разные, то могу предложить вариант за деньги (но 15 раз бесплатно):
http://www.excelworld.ru/index/comparefiles_find/0-25
или
http://hugo.nxt.ru/CompareFiles.Find.rar

Настройки (пути поменяйте, или сотрите - тогда будет диалог выбора этих файлов)
Файл - приёмник: c:\Temp\Таблица.xls
Файл - источник: c:\Temp\Ключ (Библиотека).xls
Столбцы сравнения в приёмнике: a
Столбцы сравнения в источнике: b
Лист - приёмник (№): 1
Лист - источник (№): 1
Столбцы - приёмники данных копирования: a
Столбцы - источники данных копирования: a

Для второго столбца:
Столбцы сравнения в приёмнике: b
Столбцы сравнения в источнике: b
Лист - приёмник (№): 1
Лист - источник (№): 2
Столбцы - приёмники данных копирования: b
Столбцы - источники данных копирования: b

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

[gluk_fm]

А почему не создать простую форму с полями путей файлов? А на задачу выборки можно по моему и ВПР() справится....

[Bape}l{ka]

хочу разобраться, как это делать)
код под эту задачу уже есть, пока так обойдусь, буду думать про форму с полями)

[Igor67]

Судя по описанию Вы уже "открыли" первую книгу с которой запускаете макрос. поэтому присвоить переменной эту книгу очень просто
'присваиваем переменной BazaWb ссылку на общий файл
Set BazaWb = ActiveWorkbook
'присваиваем переменной BazaSht ссылку на активный лист в общем файле
Set BazaSht = BazaWb.ActiveSheet
Теперь Вам нужно открыть другой файл. Вы можете сразу при открытии
присвоить ее переменной точно также через ActiveWorkbook. Ведь после открытия эта книга становится активной, а можете зная этот факт сразу обрабатывать данные.
Вариант кода с описанием в файле.

[Bape}l{ka]

Igor67, просто низкий поклон вам за труды О_о, я и не надеялась на такое =ь
особенно радуют подробные объяснения))
будем разбираться