Microsoft ExcelでVBAを使用してファイルからモジュールをインポート
この記事では、モジュールをアクティブなブックにインポートするためのマクロを作成します。
インポートするモジュールとしてFilename.basを使用します。
挿入ボタンをクリックして、モジュールをFilename.basからアクティブなブックにインポートします。
ワークブックには、モジュール「MainModule」が1つだけ含まれています。
マクロを実行した後、新しいモジュールがFilename.basからインポートされます
ロジックの説明
この記事では、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]までご連絡ください