Выгрузка листа в отдельный файл с сохранением макросов.

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выгрузка листа в отдельный файл с сохранением макросов. (Макросы/Sub)

Amon

Дата: Четверг, 28.06.2018, 10:50 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 65

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

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

Excel 2010

Добрый день уважаемые форумчане. Скажите пожалуйста , как правильно сделать выгрузку одного листа из книги, чтобы.

1) Не создавалась связь с основным документом. ( Пробовал запись макроса и при выгрузке перед закрытием выполнять его все равно связь остается)

2) чтобы сохранились макросы для сортировки столбцов и строк. ( У меня данные макросы были в модуле, при выгрузке листа в отдельную книгу я так понял модуль не выгружается, а с экспортом импортом с моими кривыми руками не выйдет, перенес макросы в модуль листа, но макросы зацеплены на фигурах , и из-за того того что каждый раз лист создается новый макросы не работают из-за того что адрес листа меняется )

( Или может как-то сделать так чтобы создавалась копия книги с другим именем и потом удалять листы кроме того у которого имя из ячейки тогда модуль будет сохранятся и по идее должно работать же?)

Файлы прилагаю.

и еще вопрос, насколько плохо то что во втором документе при копировании листа с макросами получится огромная куча макросов в книге ( из который выгрузка )?

К сообщению приложен файл: MFO_Scenariy.xlsm (54.6 Kb) · Resultati_testo.xlsm (46.2 Kb)

Сообщение отредактировал Amon - Четверг, 28.06.2018, 10:55

Ответить

Hugo

Дата: Четверг, 28.06.2018, 11:21 | Сообщение № 2

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

Ранг: Участник клуба

Сообщений: 3252

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

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

2019

Добрый день.
Как вариант - в модуль листа добавить такой код:
[vba]

Код

Private Sub Worksheet_Activate()
Me.Shapes("buttn1").OnAction = Me.CodeName & ".jo1"
Me.Shapes("buttn2").OnAction = Me.CodeName & ".jo2"
End Sub

[/vba]

excel@nxt.ru
webmoney: E265281470651 Z422237915069

Ответить

Amon

Дата: Четверг, 28.06.2018, 13:45 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 65

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

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

Excel 2010

Цитата Hugo, 28.06.2018 в 11:21, в сообщении № 2 ()

Как вариант

Спасибо вам. Вы мне очень помогли. Вроде работает все на ура, и из-за того что перенес в модуль листа связь вроде как вставляется.
Единственный вопрос насколько плохо то что в книге с которой все выгружается все эти листы с макросами и их будет много.

Получается при каждом новом копировании листа будут добавляться копии макросов.

Ответить

Hugo

Дата: Четверг, 28.06.2018, 13:53 | Сообщение № 4

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

Ранг: Участник клуба

Сообщений: 3252

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

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

2019

Добавлять будет только макросы листа, вместе с листом.
Плохо? Ну ведь они нужны. А если не нужны - сохраняйте как xlsx, убивайте лишние кнопки.

excel@nxt.ru
webmoney: E265281470651 Z422237915069

Ответить

Страница 1 из 1
1