Страницы: 1
RSS
По имени файла определить, какой макрос запустить.
 
Доброе утро.
Подскажите пожалуйста, как по имени файла определить, какой должен запуститься макрос. Все макросы находятся в Personal.xlsb.
Код
Private Sub ExportToOneC()
Dim nakl, mcrs, i&
Application.ScreenUpdating = False
Application.DisplayAlerts = False
nakl = Array("уфOДИ*", "УПД  RSP*", "t-*")' накладные приходящие от поставщиков (имена переменные)
mcrs = Array("Партком", "Шате_М", "AvtokorOpt")' имя макрос
With ActiveWorkbook
For i = 0 To UBound(nakl)
    If .Name Like nakl(i) Then
        Call mcrs
        Exit For
    End If
Next
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
Код
Application.Run mcrs(i)
?
 
Не получилось.
А может я неправильно имена макросов прописываю - Array("Партком", "Шате_М", "AvtokorOpt")??
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
Точно нужно с модулем прописывать - АвтоКорОпт.AvtokorOpt.
Спасибо, Апострофф. Всего Вам доброго.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
Странно, я хотел разместить этот код на панели быстрого доступа, но его в списке не видно.
Это часом не из-за Private Sub?

--------------------
Ну конечно, нужно было просто Sub писать.
Изменено: Владимир - 26.05.2016 10:57:39
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Страницы: 1
Наверх