excel - 如何将 VBScript 宏导入 Excel 工作簿？

Question

我有几个 Excel 工作簿。它们都共享相同的宏模块。我想要实现的是，在编辑一个工作簿中的一个模块时，不必在其他工作簿中编辑相同的模块。

当然，我的第一步是在 .bas 文件中保存模块时导出。但问题是我无法在加载时导入它们。

我试过这个:

Private Sub Workbook_Open()
    Set objwb = ThisWorkbook
    Set oVBC = objwb.VBProject.VBComponents
    Set CM = oVBC.Import("C:\Temp\TestModule.bas")
    TestFunc
End Sub

同一目录中有一个 TestModule.bas，其内容为:

Function TestFunc()
    MsgBox "TestFunc called"
End Function

打开工作簿时，出现编译错误:Sub 或 Function not Defined。如果我手动导入模块，一切都会正常。

感谢您的建议。

Answer 1

像您一样，我无法从 workbook_open 进行导入。您可以将导入代码放在单独的子模块中，然后从 workbook_open 中调用它，如下所示:

Private Sub Workbook_Open()
    Application.OnTime Now, "ImportCode"
End Sub

这似乎对我有用(直接调用没有......)