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

@Maksymromaniuk · Регистрация: 24.11.2012

Author24 — интернет-сервис помощи студентам

Добрый день, уважаемые форумчане! Нужна ваша помощь

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

@mc-black · 26.11.2012, 13:56

Создайте новую книгу, вставьте код, приведенный ниже, в модуль книи и сохраните книгу как .xla / .xlam (зависит от версии Office):

Visual Basic

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

Полученную надстройку положить в каталок с надстройками и включите надстройку

@Maksymromaniuk · 27.11.2012, 12:06 **[ТС]**

Спасибо!
Работает.

Правда добавил после

Visual Basic

1	Dim WithEvents App As Application

Visual Basic

1
2
3

      Private Sub Workbook_Open()
       Set App = Application
       End Sub

Но не суть, раньше не работал с надстройками. Клевая вещь

Спасибо еще раз)

@mc-black · 27.11.2012, 13:21

Всё верно. Один из плюсов - макрос в надстроке выполнится всегда, даже когда отключишь макросы в Excel.

@ekial · 23.06.2016, 11:37

У меня ситуация такая же, только мне надо открывать файл с любым именем, когда я вставил ваш код в Vba, то у меня красным выделила строку dim xl_app.... Как мне решить эту проблему?

@Веди · 29.11.2016, 18:51

сделал файл надстройки .xla, подключил его, всё он нормально подключается и в книге написал код:

Visual Basic

Private Sub Workbook_Open()
    MsgBox "Привет!"
 
    Cells.Select                 '
    Selection.ColumnWidth = 10   'макрос
    Selection.RowHeight = 15     '
End Sub

подтверждаю сообщение ОК, а дальше ошибка, ругается на "method cells of object _global failed"
. для примера мне надо изменить размеры ячеек листа. как правильно составить макрос?

@Maksymromaniuk 0 / 0 / 0 Регистрация: 24.11.2012 Сообщений: 16
		1
	Автоматический запуск макроса при открытии любой книги, которая соответствует конкретным условиям 26.11.2012, 13:46. Показов 10087. Ответов 5 Метки нет (Все метки) Добрый день, уважаемые форумчане! Нужна ваша помощь Ситуация следующая. Мне на почту каждый день приходит екселевский файл, который необходимо обработать. Название файла имеет формат "treasury outstandings" + дата (например "treasury outstandings 23 Nov" или "treasury outstandings 24 Nov" Возможно ли сделать так, чтобы макрос автоматически запускался при открытии любой книги, название которой содержит "treasury outstandings"? 0

@mc-black 2785 / 717 / 106 Регистрация: 04.02.2011 Сообщений: 1,443
	27.11.2012, 13:21	4
	Всё верно. Один из плюсов - макрос в надстроке выполнится всегда, даже когда отключишь макросы в Excel. 0

@ekial 0 / 0 / 0 Регистрация: 18.05.2016 Сообщений: 118
	23.06.2016, 11:37	5
	У меня ситуация такая же, только мне надо открывать файл с любым именем, когда я вставил ваш код в Vba, то у меня красным выделила строку dim xl_app.... Как мне решить эту проблему? 0

	29.11.2016, 18:51

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

Решение