Автоматический запуск макроса при открытии любой книги, которая соответствует конкретным условиям - VBA

Формулировка задачи:

Добрый день! Нужна ваша помощь Ситуация следующая. Мне на почту каждый день приходит екселевский файл, который необходимо обработать. Название файла имеет формат "treasury outstandings" + дата (например "treasury outstandings 23 Nov" или "treasury outstandings 24 Nov" Возможно ли сделать так, чтобы макрос автоматически запускался при открытии любой книги, название которой содержит "treasury outstandings"?

Решение задачи: «Автоматический запуск макроса при открытии любой книги, которая соответствует конкретным условиям»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
 
Dim WithEvents xlApp As Excel.Application
 
Private Sub xlApp_WorkbookOpen(ByVal Wb As Workbook)
    If Wb.Name Like "treasury outstandings*.xls*" Then
        Call MyMacro(Wb)
    End If
End Sub
 
Private Sub MyMacro(wbk As Workbook)
    MsgBox wbk.Name
End Sub

Оцени полезность:

9 голосов , оценка 3.889 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы