Запуск макроса из другой книги

[Olper]

Уважаемые мастера и знатоки Excel!
Подскажите плиз, возможно ли запустить макрос из другой книги. Т.е. имеется общая база (Base) с инвентарными номерами и ряд книг (1 и более), которые постоянно меняются, дополняются, удаляются в которых также имеются записи с инв.номерами. Вопрос, возможно ли не открывая общей базы, а открывая только эти небольшие книги определить есть ли в них инвентарные номера, которые есть в общей базе и выделить их. Или все таки необходим какой то промежуточный файл, в котором был бы этот макрос. Спасибо всем кто заинтересуется.

[nerv]

А какое отношение название темы имеет к заданному вопросу?

Или все таки необходим какой то промежуточный файл, в котором был бы этот макрос

Необходим

Private Const BasePathAndName As String = "C:\Тут Ваш полный путь к файлу\Base.XLS"

Sub io()
Dim v, x As New Collection
On Error Resume Next
With CreateObject("Excel.Application")
    With .Workbooks.Open(BasePathAndName)
        For Each v In .Sheets(1).UsedRange.Columns(3).Value
            If v <> "" Then If IsNumeric(v) Then x.Add v, CStr(v)
        Next
        .Close False
    End With
End With
On Error GoTo L1
L1: If Err Then Resume L2
With ActiveWorkbook.ActiveSheet
    For Each v In .UsedRange.Columns(1).Cells
        If x.Item(CStr(v)) <> "" Then v.Interior.ColorIndex = 6
L2: Next
End With
End Sub

[Olper]

Спасибо Nerv? Идея заключается в том, что бы не открывать файл Base, т.к. он очень большой (порядка 500 Мб + ссылки, связи...я его упростил до безобразия) и его открытие на слабых машинах занимает кучу ресурсов и времени, а сам макрос был бы в нем...хотя возможно Вы и правы, наверно я хочу многого и невозможного.

[kuklp]

Что значит "не открывать файл Base"? Вы можете прочитать закрытую книжку? Так и с файлом. При чтении из него данных, он в любом случае открывается тем или иным способом.

[nerv]

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

Спасибо Nerv? Идея заключается в том, что бы не открывать файл Base, т.к. он очень большой (порядка 500 Мб + ссылки, связи...я его упростил до безобразия) и его открытие на слабых машинах занимает кучу ресурсов и времени, а сам макрос был бы в нем...хотя возможно Вы и правы, наверно я хочу многого и невозможного.

Если там полно формул, можно сократить размер файла, заменив их значениями

[nilem]

А если как-то так, формула на листе "Кв198":

=ЕСЛИ(ЕОШИБКА(ВПР(A2;'D:\Загрузки\Поиск\[Base.XLS]Список'!$C$2:$C$24;1;0));"нет такого номера";"номер есть")

Вот так симпатичнее:

=--ЕОШИБКА(ВПР(A2;'D:\Загрузки\Поиск\[Base.XLS]Список'!$C$2:$C$24;1;0))

и УФ по нулям.

[Olper]

Кстати Nerv, прогнал Ваш макрос...и не совсем понял, а что он делает и в каком файле... у меня все пусто.
Nilem, спасибо, уже где то близко.

[nerv]

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

Кстати Nerv, прогнал Ваш макрос...и не совсем понял, а что он делает и в каком файле... у меня все пусто.
Nilem, спасибо, уже где то близко.

Для начала укажите в переменной полный путь к Вашему файлу (см. пример выше) Открываете Книгу1, затем один из Ваших файлов (не базу), и в нем нажимаете Alt+F8, потом Enter.

[Olper]

Спасибо Nerv, примерно то что надо

[Olper]

Еще раз спасибо Nerv, маненько доработал, работает по кнопке из книги1.