Views

Histats

Vitrine

VBA Excel - Criando um novo módulo usando o VBA - Create a new module using VBA

Esta opção envolve mais aqueles que já têm alguma experiência com o desenvolvimento VBA. Esta funcionalidade permite desenvolver o funcionalidade inexistentes a partir da necessidade da aplicação. Isso implica na criação de códito em tempo real.
  • De que modo posso criar um novo módulo usando o próprio VBA?

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

' Cria um novo modulo a partir do ModuleTypeIndex 

' (1=standard module, 2=userform, 3=class module) in wb

' Renomeie o module para NewModuleName (se possivel)

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


Como usar:

CreateNewModule ActiveWorkbook, 1, "mdl_TESTE"

Tags: Bernardes, MS, Microsoft, Office, Excel, copy, module, code, activeWorkbook, workbook, create, realtime, 


André Luiz Bernardes
A&A® - Work smart, not hard in any place.
Skype: inanyplace 

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...