Связь имени модуля и имени листа

Пользователь

Сообщений: 2158 Регистрация: 01.01.1970

27.04.2010 17:24:34

Всем добрый день!

Столкнулся с такой проблемой: в книге автоматически создается новый лист и называется "Total". Для этого листа нужно добавить (тоже автоматически) обработку событий, но при этом в коллекции VBComponents он отображается, например, как "Лист42". Собственно вопрос - как используя имя листа "Total" можно обратиться к модулю этого листа через VBComponents?

Заранее спасибо.

webley Пользователь Сообщений: 2158 Регистрация: 01.01.1970	#2 27.04.2010 17:33:30 {quote}{login=The_Prist}{date=27.04.2010 05:30}{thema=}{post}Dim sShName as String sShName = Sheets("Total").CodeName{/post}{/quote} Спасибо огромное!!!

webley

Пользователь

Сообщений: 2158 Регистрация: 01.01.1970

27.04.2010 17:38:28

{quote}{login=The_Prist}{date=27.04.2010 05:34}{thema=}{post}Вот так будет выглядеть полный код:

Dim sShName As String
sShName = Sheets("Total").CodeName
ThisWorkbook.VBProject.VBComponents(sShName).CodeModule.InsertLines 1, "Sub f(): Dim h: h = 1: End Sub"{/post}{/quote}

Еще раз спасибо, проблема была только в имени модуля :)

слэн Пользователь Сообщений: 5192 Регистрация: 16.01.2013	#4 28.04.2010 12:27:00 если лист только что добавлен, то он в списке компонентов - последний Живи и дай жить..