Настройка вложения в письма

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Настройка вложения в письма (Макросы/Sub)

Oh_Nick

Дата: Понедельник, 27.09.2021, 16:00 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 445

Репутация: 8 ±

Замечаний: 20% ±

Excel 2019

Всем доброго времени суток!

Алгоритм файла следующий: На листе SendMail Выбирается отдел - Нажимается кнопка Sending emails - Формируется письмо куда вложен файл xlsx. (Лист Template).

Как мне сделать так, чтобы к определенному отделу вкладывался свой Template? Для каждого отдела я могу указать свое название Template. Например EngTemplate,HRTemplate и тд.
И нормальное ли решение ориентироваться на листы ( как вложения ) , потому что у меня 22 отдела, соответственно будет 22 листа.

К сообщению приложен файл: Budget.xlsm (324.9 Kb)

Сообщение отредактировал Oh_Nick - Понедельник, 27.09.2021, 16:05

Ответить

doober

Дата: Понедельник, 27.09.2021, 18:43 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 970

Репутация: 332 ±

Замечаний: 0% ±

Excel 2010

Приветствую.
Сделайте имя шаблона=названию отдела.
Так проще будет искать нужный лист.

Ответить

Oh_Nick

Дата: Понедельник, 27.09.2021, 20:03 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 445

Репутация: 8 ±

Замечаний: 20% ±

Excel 2019

doober,

Хорошо. А далее что сделать?

Ответить

doober

Дата: Вторник, 28.09.2021, 00:49 | Сообщение № 4

Группа: Друзья

Ранг: Ветеран

Сообщений: 970

Репутация: 332 ±

Замечаний: 0% ±

Excel 2010

Делаем замену в коде[vba]

Код

Sheets("Template").Select
Sheets("Template").Copy before:=Workbooks(fileName).Sheets(1)
' на этот
Sheets(CompanyName).Select
Sheets(CompanyName).Copy before:=Workbooks(fileName).Sheets(1)

[/vba]
PS: Я бы избавился от всех этих Select