0

有没有办法在打开时将整个 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
4

0 回答 0