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

但是他们没有工作。 我也用Google搜索，但这似乎不是一个受欢迎的话题。

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 。