Не могу вызвать процедуру С ПАРАМЕТРАМИ из другой книги

[Danver]

Не могу вызвать процедуру с параметрами из другой книги, которая открыта и активна... Без передачи параметров вызываю без проблем при помощи

Function CallShablonSubBeginOfAll(BookName As String) ' вызываем процедуру Начало в шаблоне, а также обрабатываем ошибку если ее нет
    On Error GoTo errНandle: ' запускаем обработчик ошибок
    Call Run(BookName & "!BeginOfAll") ' вызываем процедуру Начало
    Exit Function ' выходим из функции
errНandle: ' если процедуры нет в файле
    MsgBox "Процедура BeginOfAll в файле " & BookName & " отсутствует!" ' сообщаем об этом пользователю в окошке
End Function

но вот с параметрами уже работать не хочет

Function CallShablonSubBeginOfAll(BookName As String, TypeOtchet As Integer, MesNumb As String, MesName As String, Year As Integer) ' вызываем процедуру Начало в шаблоне, а также обрабатываем ошибку если ее нет
    On Error GoTo errНandle: ' запускаем обработчик ошибок
    Call Run(BookName & "!BeginOfAll(Module_New.mainbook_name, TypeOtchet, MesNumb, MesName, Year)") ' вызываем процедуру Начало
    Exit Function ' выходим из функции
errНandle: ' если процедуры нет в файле
    MsgBox "Процедура BeginOfAll в файле " & BookName & " отсутствует!" ' сообщаем об этом пользователю в окошке
End Function

Выскакивает ошибка, файл прикреплен.

Надеюсь на вашу помощь!

[IgorGO]

а Вы в этом Module_New.mainbook_name уверены?
в самом начале BeginOfAll поставьте какой-то MsgBox - будете уверены, что вошли в BeginOfAll (вызов состоялся, а ошибка внутри из-за парметров, или из-за вызова с дургой книги).

[Danver]

Module_New.mainbook_name

я выводил месседжбоксом... это просто переменная с именем главной книги. Я ее отправляю в процедуру другой книги чтобы потом она (процедура) могла обратиться к главной книге и взять нужные данные из листов.

в процедуре BeginOfAll я вставил месседжбоксы под каждый отправляемый параметр...

собственно говоря вот и сам пример!

[IgorGO]

в
Function CallShablonSubBeginOfAllSParam(Book Name As String, TypeOtchet As Integer, MesNumb As String, MesName As String, Year As Integer) ' вызываем процедуру Начало в шаблоне, а также обрабатываем ошибку если ее нет

строку вызова написал так:
Call Run(BookName & "!BeginOfAll", ActiveWorkbook.Name, TypeOtchet, MesNumb, MesName, Year) ' вызываем процедуру Начало
первый параметр, которого я так и не понял заменил на ActiveWorkbook.Name.

в результате принял сообщения от BeginOfAll из TestBook2.xls.

у вас в комментари указана причина ошибки
"а также обрабатываем ошибку если ее нет" - Вы вызывали макрос, с таким имененм, которого нет в TestBook2.xls
во-первых: надо было правильно имя функции указать BeginOfAll, а не BeginOfAllBEZParam - там нет такой функции.
во-вторых: для Run первый параметр имя выполняемого какроса, а дальше параметры, которые ему (вызываемому макросу) нужны для работы. Имя макроса и параметры нельзя было запихивать в одну строку. Для Run все это было именем макроса, понятно что макроса с таким именем
BookName & "!BeginOfAll, ActiveWorkbook.Name, TypeOtchet, MesNumb, MesName, Year)"
не было в TestBook2.xls.

[Danver]

извините, за корявый скрипт... я его вытащил из кода проекта, отредактировал, но случайно запаковал и разместил здесь не полностью откорректированную версию!

все отлично работает! СПАСИБО ОГРОМНОЕ!!!!!