如何在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 

您也可以AddFromFile如果你有一個.BAS文件已經導出並要加載到一個工作簿。