VBEのモジュールを参照する（VBComponent オブジェクト）

2016/01/19 2016/01/25

VBComponent オブジェクト

VBComponent オブジェクトは、VBProject に含まれる各モジュール（標準モジュール、クラスモジュール、ドキュメントモジュール、ユーザーフォームなど）を表します。

【書式】

＜取得＞
object.VBComponents[.Item ] ( index )

引数・戻り値

object ・・・対象となる VBProject オブジェクトを指定します。
index ・・・ 1 からはじまる整数値または、モジュール名（文字列）を指定します。

VBProject プロパティを使用するには、事前に設定が必要です。詳細は、VBE をマクロで操作する時の設定（VBProject プロパティ、VBE プロパティ）を参照してください。

VBComponent の主なプロパティ

VBComponent.Name プロパティ

object で指定したモジュールの名前を取得および設定します。

【書式】

＜取得＞
result = object.Name

＜設定＞
object.Name = string

引数・戻り値

object ・・・対象となる VBComponent オブジェクトを指定します。
string ・・・変更するモジュール名（文字列）を指定します。
result ・・・取得したモジュール名。

VBComponent.Type プロパティ

object で指定したモジュールの種類を取得します。

【書式】

object.Type

引数・戻り値

object ・・・対象となる VBComponent オブジェクトを指定します。

戻り値・・・モジュールの種類を表す整数値。

値	モジュールの種類	例
1	標準モジュール	「Module1」「Module2」など
2	クラスモジュール	「Class1」「Class2」など
3	ユーザーフォーム	「UserForm1」「UserForm2」など
11	ActiveX デザイナ	通常は使いません
100	オブジェクトモジュール	「ThisWorkbook」「Sheet1」など

VBComponent.CodeModule プロパティ

モジュールに記述されているマクロのコードを表すオブジェクトを取得します。

【書式】

＜取得＞
object.CodeModule

引数・戻り値

object ・・・対象となる VBComponent オブジェクトを指定します。

CodeModule オブジェクト のプロパティ・メソッドの詳細は、モジュール内のコードを操作する（CodeModule プロパティ）、モジュール内のコードを操作する（CodeModule メソッド）を参照してください。

VBComponent の主なメソッド

VBComponent.Activate メソッド

object で指定したモジュールをアクティブにします。

【書式】

object.Activate

引数・戻り値

object ・・・対象となる VBComponent オブジェクトを指定します。

VBComponent.Export メソッド

object で指定したモジュールをエクスポートします。

【書式】

object.Export filename

引数・戻り値

object ・・・対象となる VBComponent オブジェクトを指定します。
filename ・・・ object で指定したモジュールをエクスポートする時のファイル名（パス含む）を指定します。
手動で、エクスポートする場合の拡張子は以下のとおりです。

モジュール 拡張子

標準モジュール .bas

クラスモジュール .cls

ユーザーフォーム .frm

ドキュメントモジュール .cls

VBComponent 使用例

サンプルVBAソース

　
Sub Sample_VBComponent()

    Dim FileName As String
    Dim w As Workbook
    Dim i As Integer
    Dim stdm1 As Object
    Dim stdm2 As Object
    Dim clsm1 As Object
    Dim str As String
    
    FileName = "C:\Documents\test.xlsm"
    
    'ブック（test.xlsm）をオープン
    Set w = Workbooks.Open(FileName)

    With w.VBProject.VBComponents

        '標準モジュール（Module1）を追加
        Set stdm1 = .Add(1)

        '標準モジュール（Module2）を追加
        Set stdm2 = .Add(1)
        
        'クラスモジュール（Class1）を追加
        Set clsm1 = .Add(2)
    
    
        '標準モジュール（Module1）をリネーム（NewMod)
        .Item("Module1").Name = "NewMod"

        'クラスモジュール（Class1）をリネーム（NewCls)
        .Item("Class1").Name = "NewCls"
            
        
        'リネームした標準モジュールをエクスポート
        .Item("NewMod").Export "C:\Documents\ext\NewMod.bas"
        
        'リネームしたクラスモジュールをエクスポート
        .Item("NewCls").Export "C:\Documents\ext\NewCls.cls"
        
    
        '別のクラスモジュール（Class1.cls）をインポート
        .Import ("c:\Documents\Class1.cls")
    
        'ユーザーフォーム（UserForm1.frm）をインポート
        .Import ("c:\Documents\UserForm1.frm")
    

        'すべてのモジュール名とその種類を取得
        For i = 1 To .Count
            str = str & .Item(i).Name & "(" & .Item(i).Type & ")" & vbCrLf
        Next i

    End With
    
    w.Saved = True
    w.Close
    Set w = Nothing
    
    'モジュール名と種類を表示
    MsgBox str

End Sub

Sub Sample_VBComponent()

Dim FileName As String

Dim w As Workbook

Dim i As Integer

Dim stdm1 As Object

Dim stdm2 As Object

Dim clsm1 As Object

Dim str As String

FileName = "C:\Documents\test.xlsm"

'ブック（test.xlsm）をオープン

Set w = Workbooks.Open(FileName)

With w.VBProject.VBComponents

'標準モジュール（Module1）を追加

Set stdm1 = .Add(1)

'標準モジュール（Module2）を追加

Set stdm2 = .Add(1)

'クラスモジュール（Class1）を追加

Set clsm1 = .Add(2)

'標準モジュール（Module1）をリネーム（NewMod)

.Item("Module1").Name = "NewMod"

'クラスモジュール（Class1）をリネーム（NewCls)

.Item("Class1").Name = "NewCls"

'リネームした標準モジュールをエクスポート

.Item("NewMod").Export "C:\Documents\ext\NewMod.bas"

'リネームしたクラスモジュールをエクスポート

.Item("NewCls").Export "C:\Documents\ext\NewCls.cls"

'別のクラスモジュール（Class1.cls）をインポート

.Import ("c:\Documents\Class1.cls")

'ユーザーフォーム（UserForm1.frm）をインポート

.Import ("c:\Documents\UserForm1.frm")

'すべてのモジュール名とその種類を取得

For i = 1 To .Count

str = str & .Item(i).Name & "(" & .Item(i).Type & ")" & vbCrLf

Next i

End With

w.Saved = True

w.Close

Set w = Nothing

'モジュール名と種類を表示

MsgBox str

End Sub

実行結果

エクスポートしたファイル（標準モジュールとクラスモジュール）

- VBE VBA基本, VBComponent.Activate メソッド, VBComponent.CodeModule プロパティ, VBComponent.Export メソッド, VBComponent.Name プロパティ, VBComponent.Type プロパティ, VBComponents.Item メソッド, VBE, VBProject プロパティ, VBProject.VBComponent プロパティ, Workbook オブジェクト, エクセルVBA

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

: VBEのモジュールを参照する（VBComponents コレクション）

VBComponents コレクション VBComponents コレクションを …

: ブックにマクロが含まれているか確認（HasVBProject プロパティ）

HasVBProject プロパティブックにマクロが含まれているかどうかを表す …

: モジュール内のコードを操作する（CodeModule のメソッド）

CodeModule オブジェクトモジュール内のコードの追加、削除、編集等を行 …

: モジュール内のコードを操作する（CodeModule のプロパティ）

CodeModule オブジェクトモジュール内のコードの追加、削除、編集等を行 …

: VBE をマクロで操作する時の設定（VBProject プロパティ、VBE プロパティ）

VBE をマクロで操作する時の設定について Excel 2002 以降のバージョ …

: VBEを操作する（VBProject プロパティ）

VBProject プロパティ指定されたブックの VisualBasic プロ …

PREV: VBEを操作する（VBProject プロパティ）
NEXT: VBEのモジュールを参照する（VBComponents コレクション）

VBEのモジュールを参照する（VBComponent オブジェクト）

VBComponent オブジェクト

引数・戻り値

VBComponent の主なプロパティ

VBComponent.Name プロパティ

引数・戻り値

VBComponent.Type プロパティ

引数・戻り値

VBComponent.CodeModule プロパティ

引数・戻り値

VBComponent の主なメソッド

VBComponent.Activate メソッド

引数・戻り値

VBComponent.Export メソッド

引数・戻り値

VBComponent 使用例

サンプルVBAソース

実行結果

Message コメントをキャンセル

関連記事

VBEのモジュールを参照する（VBComponents コレクション）

ブックにマクロが含まれているか確認（HasVBProject プロパティ）

モジュール内のコードを操作する（CodeModule のメソッド）

モジュール内のコードを操作する（CodeModule のプロパティ）

VBE をマクロで操作する時の設定（VBProject プロパティ、VBE プロパティ）

VBEを操作する（VBProject プロパティ）

SQL文を実行する(ADO)Execute メソッド

並べ替え（Sort オブジェクト, SortFields コレクション）

ブックのコピーを保存（SaveCopyAs メソッド）

テキストファイル（UTF-8）を読み込み、書き出し（ADODB.Stream）

データベース（Oracle）に接続する（OLE DB を使用）

フィルタ解除して全データを表示（ShowAllData メソッド）

四捨五入・切り上げ・切り捨て・丸め（Round 関数他）

クエリにパラメータを渡して結果を取得する（ADO）Command オブジェクト・Execute メソッド

データベース（Oracle）に接続する（ODBC を使用）

列名を取得、列番号を取得（Address プロパティ,Column プロパティ）

モジュール	拡張子
標準モジュール	.bas
クラスモジュール	.cls
ユーザーフォーム	.frm
ドキュメントモジュール	.cls