【VBA】 将VBA代码插入Excel中

将VBA代码插入到非宏Excel的Sheet表代码中，常用于达到单元格SelectionChange的效果，其他意义不大。

使用目的：

（1）用户能够对SelectionChange事件的有效无效进行控制。
（2）可用于根据输入内容，进行数据库查询，将结果通过下拉框选择，方便用户填写。
（3）代码可以生效，也可以全身而退。不影响原Excel的格式，及用户的源文件，仍是xlsx格式，没问题。插入的代码只是匆匆过客。

使用方法：

（1）准备要插入的代码，可写好放在当前我们给用户准备的写好功能代码的带宏的Excel（如xlsm，以下简称程序）中，也可以将代码保存在本地txt等文件中，用于读取；
（2）将以下代码，放在程序中，然后，添加一段自动添加菜单的按钮。菜单中两个按钮对应以下两个过程名。（用户一般不会打开VBE界面运行代码，所以，需要在程序中给用户提供按钮，告诉他点击按钮，会生成菜单，菜单里一个是用于功能生效，一个是用于功能失效的。）
（3）用户打开程序，点击生成菜单按钮，菜单栏中出现两个按钮，用户点击Addit对应的菜单，代码生效；点击Endit对应的菜单，代码失效。

'Addit 插入代码
'Endit 删除代码

Sub Addit()
    ActiveWorkbook.VBProject.VBComponents.Item(ActiveSheet.CodeName).CodeModule.AddFromString _
    '从此工作簿中的模块中导入代码 指定行(1-1000)
    ThisWorkbook.VBProject.VBComponents.Item("ModuleName").CodeModule.Lines(1, 1000)

	'从文件载入用此段代码
    'ActiveWorkbook.VBProject.VBComponents.Item(ActiveSheet.CodeName).CodeModule.AddFromFile "FileName"

End Sub

Sub Endit()
    With ActiveWorkbook.VBProject.VBComponents.Item(ActiveSheet.CodeName).CodeModule
        .DeleteLines 1, .CountOfLines
	'删除第1行到最后1行代码，即全部删除。
    End With
End Sub