Создание новой книги в 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

Оцени полезность:

12   голосов , оценка 4 из 5
Похожие ответы