全部显示

AddFromString 方法将字符串添加到 Module 对象中。Module 对象可以代表标准模块或类模块。

expression.AddFromString(String)

expression     必需。返回“应用于”列表中的一个对象的表达式。

String     必需 String 型。

说明

如果模块中包含其他过程，AddFromString 方法会将字符串内容放在模块中“声明”节之后和第一个现有过程之前。

如果要将字符串添加到窗体或报表模块中，窗体或报表必须在窗体“设计”视图或报表“设计”视图中打开。如果要将字符串添加到标准模块或类模块中，模块也必须打开。

示例

下面的示例新建了一个窗体，将一串字符串和 Functions.txt 文件的内容添加到它的模块中。从标准模块中可以执行下列过程：

Sub AddTextToFormModule()

    Dim frm As Form, mdl As Module

    Set frm = CreateForm

    Set mdl = frm.Module

    mdl.AddFromString "Public intY As Integer"

    mdl.AddFromFile "C:\My Documents\Functions.txt"

End Sub