0

VBA エディター (拡張機能) でプログラミングを行っており、プログラムで新しいモジュールを作成しています。新しいモジュールは問題なく作成されます。ただし、新しいモジュールが作成されると、コード ペインで空白のモジュールとして開かれます。ただし、新しいモジュールが作成された後、アクティブなモジュール (新しいモジュールを作成したコードを実行しているモジュール) をコード ペインに戻す必要があります。それを行うためのコマンドが何であるかはわかりません。これは私がこれまでに試したことです。

Sub addNewStandardModule()

On Error Resume Next'   Adds Extensibility Reference for programming in the VBE
ThisWorkbook.VBProject.References.AddFromGuid GUID:="{0002E157-0000-0000-C000-000000000046}", Major:=5, Minor:=3
On Error GoTo 0

Dim VBProj As VBIDE.VBProject
Dim VBComp As VBIDE.VBComponent
Dim CodeMod As VBIDE.CodeModule


        Set VBProj = ActiveWorkbook.VBProject
        Set VBComp = VBProj.VBComponents.Add(vbext_ct_StdModule)
        VBComp.name = "Module6"

        '  This is my attempt to return the active module to the active codepane, but it doesn't work
        With Application.VBE
             If Not .ActiveCodePane Is Nothing Then
                    Set .ActiveVBProject = .ActiveCodePane.CodeModule.Parent.Collection.Parent
             End If
        End With

End Sub
4

1 に答える 1

0

自分で発見しました。将来、他の人に役立つことを願っています。

Sub createNewCodeModuleAndReturnToThisOne()
Dim VBEProj As VBIDE.VBProject
Dim vbComp As VBIDE.VBComponent
Dim VBProj As VBIDE.VBProject


    Set VBEProj = ActiveWorkbook.VBProject
    Set vbComp = Application.VBE.ActiveVBProject.VBComponents.Add(vbext_ct_StdModule)
    vbComp.name = "Module6"
    VBEProj.VBComponents("Module5").Activate
End Sub
于 2017-05-15T18:39:59.443 に答える