Создание новой книги в Excel и назначение там макросов - VB
Формулировка задачи:
Всем привет!
Помогите плиз, не могу справится с одной проблемой.
Есть VB код содержащийся в Excel-евском файле.
Он создает новую книгу с 2-мя листами.
На первом листе создается кнопка.
И вот ВНИМАНИЕ ВОПРОС.
КАК НАЗНАЧАИТЬ МАКРОС ЭТОЙ КНОПКЕ ИЗ VB, ЛИБО ПЕРЕНЕСТИ ЕГО КОД ИЗ ИСХОДНОГО EXCEL ФАЙЛА В СОЗДАННЫЙ? И ВООБЩЕ КАК ПОЛУЧИТЬ ДОСТУП К MODULE?
Буду очень признателен за любую помощь.
С уважением Vitorio.
Решение задачи: «Создание новой книги в Excel и назначение там макросов»
textual
Листинг программы
Sub AddNewWorkBook()
Dim SourceModule As Object
Set SourceModule = ThisWorkbook.VBProject.VBComponents.Item('SourceModule').CodeModule
With Application.Workbooks.Add
With .VBProject.VBComponents.Add(vbext_ct_StdModule)
.Name = 'MyModule'
.CodeModule.ReplaceLine 1, _
SourceModule.Lines(1, SourceModule.CountOfLines)
End With
End With
With ActiveSheet.Buttons.Add(37.5, 27, 101.25, 33)
.Caption = 'MyButton'
.OnAction = ActiveWorkbook.Name & '!Макрос2'
End With
End Sub