VBAでコードモジュールを作成する方法

Question

VBAを使用してコードモジュールを作成したいとします。私はすでに私が使用してそれを設定することができることを知っているコードモジュールを持っている場合：

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

しかし、コードモジュールが存在しない場合、私はそれをどのように作成することができます

？

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

しかし、彼らは働いていない：

私が試したいくつかの行が好きです。私もグーグルではありますが、これは人気のあるトピックのようには見えません。

Answer 1

これが私の仕事：

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 

あなたが.BASファイルを持っている場合は、あなたもAddFromFileを輸出してきたことができますし、ワークブックにロードします。