将模块用于文件夹中的所有Excel文件

Question

我为excel文件创建了一个模块，该模块保存在系统的某个文件夹中。我希望能够将该模块用于将来存储在该特定文件夹中的所有excel文件。诀窍是该模块不应该应用于在该系统上创建的任何excel文件，它应该只应用于该特定文件夹中的所有excel文件。 我知道我可以将模块拖放到打开的工作簿中，但我想知道是否有更自动化的方法来执行此操作。 可以这样做吗？

Answer 1

您可以以编程方式导入/导出模块，因此您可以编写一个小宏来获取Excel文件并将模块复制到其中。复制模块的代码如下：

Set myExportVBP = ThisWorkbook.VBProject
Set myImportVBP = Workbooks(ActiveWorkbook.Name).VBProject
With myImportVBP.VBComponents("Sheet1").CodeModule
    .DeleteLines 1, .CountOfLines
    .InsertLines 1, myExportVBP.VBComponents("Sheet1").CodeModule.Lines(1, myExportVBP.VBComponents("Sheet1").CodeModule.CountOfLines)
End With