请问VBA高手,在我编写的应用程序中,提供一个文本输入框,如何执行用户在该框中自己输入的VBA代码?

Question

请问VBA高手,在我编写的应用程序中,提供一个文本输入框,如何执行用户在该框中自己输入的VBA代码?

Answer 1

如下宏能运行INPUTBOX中输入的代码
Sub ff()
Dim mdl As VBComponent
Set mdl = Application.VBE.ActiveVBProject.VBComponents.Add(ComponentType:=vbext_ct_StdModule)
mdl.CodeModule.InsertLines 1, "sub gg()"
mdl.CodeModule.InsertLines 2, InputBox("OK")
mdl.CodeModule.InsertLines 3, "end sub"
Application.Run "gg"
End Sub需要引用MVB。。for A...Extensibility