Làm cách nào để tạo Mô-đun Mã trong VBA

Question

Tôi muốn tạo mô-đun mã với VBA. Khi tôi đã có một mô-đun mã, tôi biết rằng tôi có thể đặt nó bằng cách sử dụng:

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

Nhưng nếu mô-đun mã không tồn tại, làm cách nào để tạo?

Tôi đã thử một vài dòng thích:

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

Nhưng họ đã không làm việc. Tôi cũng đã google, nhưng điều này dường như không phải là một chủ đề phổ biến.

Answer 1

này đã làm việc cho tôi:

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 

Bạn cũng có thể AddFromFile nếu bạn có nộp .BAS bạn đã xuất khẩu và bạn muốn tải vào một bảng tính.