VBA Excel - Criando um novo módulo automaticamente - Create a new module

Inline image 1

Inserir um novo módulo de maneira automática numa planilha talvez seja um processo que possa automatizar na estação de trabalho onde começa a desenvolver as suas novas aplicações com o MS Excel. Essa característica, sem dúvida, o ajudaria a tornar o seu ponto de partida mais ágil.

Como?

Bem, use o código abaixo e divirta-se!

CreateNewModule ActiveWorkbook, 1, "TestModule"

Sub CreateNewModule (ByVal wb As Workbook, _
                                      ByVal ModuleTypeIndex As Integer, _
                                      ByVal NewModuleName As String)

' creates a new module of ModuleTypeIndex 
' (1=standard module, 2=userform, 3=class module) in wb
' renames the new module to NewModuleName (if possible)

Dim VBC As VBComponent, mti As Integer
    Set VBC = Nothing
    Let mti = 0

    Select Case ModuleTypeIndex
        Case 1: mti = vbext_ct_StdModule ' standard module
        Case 2: mti = vbext_ct_MSForm ' userform
        Case 3: mti = vbext_ct_ClassModule ' class module
    End Select

    If mti <> 0 Then
        On Error Resume Next

        Set VBC = wb.VBProject.VBComponents.Add(mti)

        If Not VBC Is Nothing Then
            If NewModuleName <> "" Then
                Let VBC.Name = NewModuleName
            End If
        End If

        On Error GoTo 0

        Set VBC = Nothing
    End If
End Sub




Reference:
Tags:  VBA, Excel, content, module, módulo, Class Modules in VBA, create


Nenhum comentário:

Postar um comentário

diHITT - Notícias