从文件insertfile.txt文件中读取代码写入testInsert模块中

Dim mdl As Module
Set mdl = Modules![testInsert]
FileName = CurrentProject.Path & "\insertfile.txt"
mdl.AddFromFile (FileName)

addFromString可以从字符串中读取代码

 

这些代码可用于实时代码生成，这也算是解释型语言的独特优势吧。