5

VBAでコードモジュールを作りたいです。コードモジュールが既にある場合、次を使用して設定できることがわかります。

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

しかし、コード モジュールが存在しない場合、どうすれば作成できますか?

私は次のようないくつかの行を試しました：

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

しかし、彼らは働いていません。私もグーグルで検索しましたが、これは人気のあるトピックのようには見えません.

4

1 に答える 1

6

これは私のために働いた：

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ます。

于 2013-08-29T00:30:19.610 に答える