Come posso creare un modulo di codice in VBA

Question

Voglio creare un modulo di codice con VBA. Quando ho già un modulo di codice so che posso impostare utilizzando:

Set cdmdl = wbk.VBProject.VBComponents(codeModuleName).CodeModule 

Ma se il modulo di codice non esiste, come posso crearlo?

Ho provato un paio di linee come:

Set cdmdl = new.wbk.VBProject.VBComponents(codeModuleName).CodeModule 
Set cdmdl = create.wbk.VBProject.VBComponents(codeModuleName).CodeModule 

Ma non hanno funzionato. Ho anche cercato su Google, ma questo non sembra un argomento popolare.

Answer 1

Questo ha funzionato per me:

Public Function CreateModule(xlwb As Workbook) As VBComponent 
    Dim module As VBComponent 
    Set module = xlwb.VBProject.VBComponents.Add(vbext_ct_StdModule) 
    module.Name = "MyModule" 
    module.CodeModule.AddFromString "public sub test()" & vbNewLine & _ 
            " 'dosomething" & vbNewLine & _ 
            "end sub" 
    Set CreateModule = module 
End Function 

Potete anche AddFromFile se si dispone di un file BAS hai esportato e si desidera caricare in una cartella di lavoro.