制御 ModuleやClass・UserFormをエクスポート(ファイル保存)する

※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。

※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。

Option Explicit

Sub ImportComponent(strPath As String)
'***********************************************
'制御 ModuleやClass・UserFormをインポートする
'***********************************************

    ThisWorkbook.VBProject.VBComponents.Import strPath

End Sub

Private Sub test()
ImportComponent ThisWorkbook.Path & "\Module2.bas"
End Sub

Export メソッド (VBA アドイン オブジェクト モデル)

  • コンポーネントを別のファイルとして保存します。

  • 構文

  • object.Export(filename)
  • Export メソッドの構文は、次の指定項目から構成されます。

  • 指定項目 内容

    • object 必ず指定します。
      • オブジェクトへの参照を表すオブジェクト式を指定します。
    • filename 必ず指定します。
      • コンポーネントをエクスポートするファイルの名前を表す文字列型 (String) の値を指定します。

  • 解説

  • Export メソッドを使って、コンポーネントを別のファイルとして保存するときは、既存のファイルの名前と重複しない名前を使用します(上書きされます)。
  • 既存のファイルと同じ名前を使用するとエラーになります。

  • Export メソッドの使用例

  • 次の例は、test.bas という名前のファイルを作成し、Export メソッドを使用して VBComponents(1) コード モジュールの内容をファイルにコピーします。
  • Application.VBE.ActiveVBProject.VBComponents(1).Export("test.bas")

 

2000年01月01日|[VBサンプルコード]:[制御]