Получить список имен макросов Excel #808868

Доброго дня. Подключаюсь к существующей книге через. Подскажите пожалуйста, как получить список имен макросов из книги, для последующего их запуска (Run(ИмяМакроса)). Гугл не помогает.

Private Sub ListUsersProc(Optional mdlname As String) Dim obj As Object Dim i As Long, Y As Long, x As Long Dim strTemp As String, strTemp1 As String, strTemp2 As String     On Error GoTo 999     'при первом вызове перебираем модули и если имя модуля nameusermdl+... то вновь вызываем процедуру     'с передачей найденного имени модуля     If Len(mdlname) = 0 Then         Me.ListBox2.Clear: Me.ListBox6.Clear         For i = 1 To Application.VBE.VBProjects(nameaddin).VBComponents.Count             strTemp = Application.VBE.VBProjects(nameaddin).VBComponents(i).Name     'читаем содержимое модуля  - составляем список процедур         If InStr(strTemp, 'Public Sub ') = 1 Or InStr(strTemp, 'Sub ') = 1 Then 999:     If Err Then MsgBox 'Ошибка в процедуре чтения кода модуля' & Chr & Chr & _

Уже находил этот код, не могу понять как его запустить , хотя бы в Exel

EXCEL - ALT+f11 (откроется редактор макросов) чтобы запустить эту процедуру Sub Макрос1 этот код (из интернета) приведен для формы пользователя (Ме - это объект формы) и еще подсказка : For i = 1 To ThisWorkbook.VBProject.VBComponents.Count

переменная nameaddin, что в нее передавать? это имя какого объекта?

Разобрался

создай книгу новую Разработчик - Запись макроса - Остановить макрос ALT+F11 вставь чтобы получилось вот так этот макрос читает программный код полностью построчно Запусти его и увидишь результат но ты же ПРОГРАММИСТ и дальше сможешь распознать и вычленить то что тебе нужно ???

Спасибо дружище! Подсказка в реально помогла! Осталось этот скрипт из 1С в экселе запустить!

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

Сообщить("Не удалось получить список макросов из файла, возможно отключен доступ к объектам VBA, подробнее в справке " + Символы.ПС + ОписаниеОшибки, СтатусСообщения.Важное);                  КонецПопытки;

Хотелка от заказчика, после вставки данных в Книгу Экселя запуск макрос.

Это старый сайт бак клуба, в котором тусил.