この記事では、モジュールをアクティブなブックにインポートするためのマクロを作成します。

インポートするモジュールとしてFilename.basを使用します。

挿入ボタンをクリックして、モジュールをFilename.basからアクティブなブックにインポートします。

ArrowMain

ワークブックには、モジュール「MainModule」が1つだけ含まれています。

ArrowMainModule

マクロを実行した後、新しいモジュールがFilename.basからインポートされます

ArrowOutput

ロジックの説明

この記事では、InsertVBComponentとCalling_Procedureの2つのマクロを作成しました

InsertVBComponent

ワークブック名​​とファイル名を入力として受け取り、モジュールをワークブックにインポートします。

Calling_Procedure

これは、アクティブなブックとFilename.basを入力としてInsertVBComponentマクロを呼び出すために使用されます。

コードの説明

If Dir(CompFileName)<> “” Then上記のコードを使用して、ファイル名がディレクトリに存在するかどうかを確認します。

wb.VBProject.VBComponents.Import CompFileName上記のコードは、モジュールをアクティブなブックにインポートするために使用されます。

コードについては以下に従ってください

Option Explicit

Sub InsertVBComponent(ByVal wb As Workbook, ByVal CompFileName As String)

' Inserts the content of CompFileName as a new component in workbook

' CompFileName must be a valid VBA component suited for

' import (an exported VBA component)

'Checking whether CompFileName file exists

If Dir(CompFileName) <> "" Then



'Ignore errors

On Error Resume Next



'Inserts component from file

wb.VBProject.VBComponents.Import CompFileName



On Error GoTo 0

End If

Set wb = Nothing

End Sub

Sub Calling_Procedure()



'Calling InsertVBComponent procedure

InsertVBComponent ActiveWorkbook, "C:\Users\Ramandeep\Desktop\Filename.bas"



End Sub

このブログが気に入ったら、FacebookやFacebookで友達と共有してください。

皆様からのご意見をお待ちしております。私たちの仕事を改善し、あなたのために改善する方法をお知らせください。 [email protected]までご連絡ください