有没有办法在打开时将整个 subs/functions 模块导入 excel 工作簿?这个想法是让旧工作簿在打开时导入新代码,而无需总是进入“开发”选项卡并粘贴新代码。
该代码当前位于 *.txt 文件中。
感谢Mathieu Guindon,我想通了:
Private Sub Auto_Open()
CreateModule "Module2", "your\file\path.txt"
End Sub
Public Sub CreateModule(ByRef ModuleName As String, ByRef CodeFileName As String)
Const vbext_ct_StdModule = 1
Dim vbComp As Object
Set vbComp = ModuleName
Application.VBE.ActiveVBProject.VBComponents.Add(vbext_ct_StdModule)
vbComp.Name = ModuleName
vbComp.CodeModule.AddFromFile (CodeFileName)
End Sub