在本文中,我们将创建一个宏以将模块导入到活动工作簿中。

我们将使用Filename.bas作为要导入的模块。

单击插入按钮,将模块从Filename.bas导入到活动工作簿。

ArrowMain

工作簿仅包含一个模块“ MainModule”。

ArrowMainModule

运行宏后,将从Filename.bas

ArrowOutput

导入新模块。

逻辑解释

在本文中,我们创建了两个宏,InsertVBComponent和Calling_Procedure

InsertVBComponent

它以工作簿名称和文件名作为输入,并将模块导入到工作簿中。

Calling_Procedure

它用于使用活动工作簿和Filename.bas作为输入来调用InsertVBComponent宏。

代码说明

如果Dir(CompFileName)<>“”然后上述代码用于检查目录中是否存在文件名。

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]