Доброе утро.
Подскажите пожалуйста, как по имени файла определить, какой должен запуститься макрос. Все макросы находятся в Personal.xlsb.
Подскажите пожалуйста, как по имени файла определить, какой должен запуститься макрос. Все макросы находятся в 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 |
"..Сладку ягоду рвали вместе, горьку ягоду я одна."