EXCELVBA帮助手册Word文档格式.docx

1、任意类型的表达式，指定要添加到集合中的成员。key可选的。唯一字符串表达式，指定可以使用的键字符串，代替位置索引来访问集合中的成员。before表达式，指定集合中的相对位置。在集合中将添加的成员放置在 before 参数识别的成员之前。如果为一数值表达式，则 before 必须是介于 1 和集合 Count 属性值之间的值。如果为一字符串表达式，则当添加一个被引用的成员到集合时，before 必须对应于指定的 key 值。可以指定 before 位置或 after 位置，但不能同时指定这两个位置。after可选。在集合中将添加的成员放置在 After 参数识别的成员之后。如果为一数值表达式，则

2、 after 必须是介于 1 和集合 Count 属性值之间的值；如果为一字符串表达式，则当添加一个被引用的成员到集合时，after 必须对应于指定的 key 值。说明before 或 after 参数是字符串表达式或数值表达式，均须引用集合中现有成员，否则将导致错误发生。如果指定的 key 和集合中现有成员的 key 发生重复，则也会导致错误发生。1、应用于Collection 对象2、请参阅Item方法、Remove方法Add 方法示例本示例使用 Add 方法将 Inst 对象（类 Class1 之示例，其中包含 Public 变量 InstanceName ）加到 MyClasses 集

3、合对象中。若要观察程序的运作，插入一个类模块，并在 Class1 的模块级中声明公用变量 InstanceName（键入 Public InstanceName）来保存每个示例的名称。类名就用缺省的 Class1。将下列代码复制与粘贴到某个窗体模块的 Form_Load 事件过程中。Dim MyClasses As New Collection 建立集合对象。Dim Num As Integer 定义计数变量。Dim MsgDim TheName 用来保存用户指定的名称的变量。Do Dim Inst As New Class1 建立 Class1 的新示例。 Num = Num + 1 将计数

4、变量加一，并让用户输入名称。 Msg = Please enter a name for this object. & Chr（13） _ Press Cancel to see names in collection. TheName = InputBox（Msg, Name the Collection Items） Inst.InstanceName = TheName 将输入的名称存到对象的示例中。 如果名称不是空字符串，则将该示例加到集合对象中。 If Inst.InstanceName Then 将该示例加到集合对象中。 MyClasses.Add item := Inst, ke

5、y := CStr（Num） End If 清除对当前示例的引用，以准备下一个。 Set Inst = NothingLoop Until TheName = For Each x In MyClasses MsgBox x.instancename, , Instance NameNextAdd方法（Dictionary）添加一对相对应的关键字和条目到 Dictionary 对象。object.Add key, itemAdd方法的语法有如下几部分：Object一个 Dictionary 对象的名字。Key与所添加的条目相关联的关键字。Item与所添加的关键字相关联的条目。如果该关键字已经存

6、在，则产生一个错误。1、应用于Dictionary 对象2、请参阅ADD方法（Folder）、Exist方法、Items方法、Keys方法、Remove方法、RemoveAll方法Add 方法（Folders）添加一个新的 Folder 到 Folders 集合。object.Add folderName一个Folders集合的名称。FolderName新添加的Folder的名称。如果 folderName 已经存在，则产生一个错误。1、应用于Folders 集合2、请参阅Add方法（Dictionary）Assert 方法有条件地在该方法出现的行上挂起执行。object.Assert boo

7、leanexpressionAssert 方法的语法有如下的对象限定符和参数：总是 Debug 对象。booleanexpression一个值为 True 或者 False 的表达式。Assert 调用只在开发环境中工作。当模块被编译成为一个可执行的文件时，调用 Debug 对象的方法就会被忽略。全部 booleanexpression 常常被计算。例如，即使一个 And 表达式的第一部分被计算为 False，整个表达式还要被计算。1、应用于Debug 对象2、请参阅Print 方法Assert 方法示例下面的示例说明如何使用 Assert 方法。示例需要一个带有两个按纽控件的窗体。缺省的按纽

8、名称是 Command1 和 Command2 。当示例运行时，单击 Command1 按纽使得按纽上的文本在 0 和 1 之间进行切换。单击 Command2 按纽可能不做任何事，也可能引起一个确认，应该执行哪一个操作取决于 Command1 按纽上所显示的值。该确认将在最后一个语句执行之后使整个执行停止，并且 Debug.Assert 行被突出显式。Option ExplicitPrivate blnAssert As BooleanPrivate intNumber As IntegerPrivate Sub Command1_Click（） blnAssert = Not blnAss

9、ert intNumber = IIf（intNumber 0, 0, 1） Command1.Caption = intNumberEnd SubPrivate Sub Command2_Click（） Debug.Assert blnAssertPrivate Sub Form_Load（） Command2.Caption = Assert TesterBuildPath 方法追加一个名字到一个已经存在的路径。object.BuildPath（path, name） BuildPath 方法语法有如下几部分：始终是 FileSystemObject 的名字。path要对其追加名字的已存在

10、路径。路径可以是绝对的也可以是相对的，不必指定一个已存在的文件夹。name要追加到已存在路径上的名字。只有在需要时，BuildPath 方法才在已存在路径和名字之间插入一个附加的路径分隔符。1、应用于FileSystemObject 对象。Clear 方法清除 Err 对象的所有属性设置。object.Clear objec 总是 Err 对象。在处理错误之后使用 Clear 来清除 Err 对象，例如，在对 On Error Resume Next 使用拖延错误处理时就可使用 Clear。每当执行下列语句时就会自动调用 Clear 方法： 任意类型的 Resume 语句。 Exit Sub,

11、 Exit Function, Exit Property 任何 On Error 语句。注意 当处理因访问其他对象产生的错误时，与其使用 On Error GoTo，不如使用 On Error Resume Next。每一次与对象打交道之后都检查 Err，则可消除代码访问对象时的含混之处。可以确认是哪个对象将错误引入 Err.Number 中，也可以确认最初是哪个对象产生了这个错误（Err.Source 中指定的对象）。1、应用于Err 对象2、请参阅Description 属性、Err 对象、HelpContext 属性、HelpFile 属性、LastDLLError 属性、Number

12、 属性、On Error 语句、Raise 方法、Source 属性。Clear 方法示例本示例使用 Err 对象的 Clear 方法将 Err 对象之数值属性重新设置为零，并将其字符串属性设置为零长度字符串。如果在代码中省略 Clear 方法，则每完成一次循环便会显示一次错误信息（发生错误之后），不论程序中的计算结果是否真的有错误。Dim Result（10） As Integer 声明数组变量其元素容易溢出Dim indxOn Error Resume Next 将错误处理的方式改为“继续下一行”。Do Until indx = 10 下面计算若有错误发生，便显示错误信息。 Result（

13、indx） = Rnd * indx * 20000 If Err.Number 0 Then MsgBox Err, , Error Generated:, Err.HelpFile, Err.HelpContext Err.Clear 清除 Err 对象的属性。 Else indx = indx + 1LoopClose 方法关闭一个打开的 TextStream 文件。object.Close object始终是一个 TextStream 对象的名字。1、应用于TextStream 对象2、请参阅Read方法、ReadAll方法、ReadLine方法、Skip方法、SkipLine方法、W

14、rite方法、WriteBlankLines方法、WriteLine方法。Copy 方法把一个指定的文件或文件夹从一个地方复制到另一个地方。object.Copy destination, overwriteCopy 方法语法有如下几部分：始终是一个 File 或 Folder 对象的名字。destination文件或文件夹要复制到的接受端。不允许有通配符。overwriteBoolean 值，如果该值为 True （缺省），则已存在的文件或文件夹将被覆盖。如果为 False，则它们不被覆盖。对一个 File 或 Folder，Copy 方法的结果和执行 FileSystemObject.Co

15、pyFile 或FileSystemObject.CopyFolder 操作的结果是一样的，在后者中， object所引用的文件或文件夹是作为参数传递的。应当注意，后面的方法能够复制多个文件或文件夹。1、应用于File 对象、Folder 对象2、请参阅CopyFile 方法、CopyFolder 方法、Delete 方法、Move 方法、OpenAsTextStream 方法CopyFile 方法把一个或多个文件从一个地方复制到另一个地方。object.CopyFile source, destination, overwriteCopyFile 方法语法有如下几部分：object始终是一个

16、 FileSystemObject 的名字。source指明一个或多个要被复制文件的字符串文件说明，它可以包括通配符。指明 source 中的一个或多个文件要被复制到的接受端的字符串，不允许有通配符。选项的。Boolean 值，它表示存在的文件是否被覆盖。如果是 True，文件将被覆盖；如果是 False，它们不被覆盖。缺省值是 True。注意如果 destination 具有只读属性设置，不论 overwrite 值如何，CopyFile 都将失败。通配符只能用在 source 参数的最后一个路径部件。例如，你可以在下面请况使用通配符：FileSystemObject.CopyFile c:

17、mydocumentsletters*.doc, tempfolder但下面情况不能使用：mydocuments*R1?97.xlstempfolder如果 source 包含通配符或 destination 以路径分隔符（）为结尾，则认为 destination 是一个已存在文件夹，在其中复制相匹配的文件。否则认为 destination 是一个要创建文件的名字。不论是那种情况，当复制一个文件时，可能发生三种事件。 如果 destination 不存在，source 得到复制。这是通常的情况。 如果 destination 是一个已存在的文件，则当 overwrite 值为 False 时发

18、生一个错误，否则，source的复制文件将试图覆盖已存在文件。 如果 destination 是一个目录，发生一个错误。如果使用通配符的 source 不能和任何文件匹配，同样产生一个错误。CopyFile 方法停止在它遇到的第一个错误上。不要试图回卷或撤消错误发生前所做的任何改变。1、应用于FileSystemObject 对象2、请参阅Copy 方法、CopyFolder 方法、CreateFolder 方法、DeleteFolder 方法、MoveFolder 方法CopyFolder 方法从一个地方递归地复制一个文件夹到另一个地方。object.CopyFolder source, d

19、estination, overwriteCopyFolder 方法语法有如下几部分：始终为一个 FileSystemObject 的名字。指明一个或多个被复制文件夹的字符串文件夹说明，可以包括通配符。指明 source 中被复制文件夹和子文件夹的接受端的字符串，不允许有通配符。Boolean 值，它表示已存在的文件夹是否被覆盖。如果为 True，文件被覆盖。如果为 False，文件不被覆盖。缺省值为 True。通配符仅可用于 source 参数的最后一个路径部件。例如你可以在下面情况使用它：FileSystemObject.CopyFolder mydocumentsletters*但不能在

20、下面情况使用它：mydocuments*如果 source 包含通配符或 destination 以路径分隔符（）为结尾，则认为 destination 是一个已存在的文件夹，在其中复制相匹配的文件夹和子文件夹。否则认为 destination 是一个要创建的文件夹的名字。不论何种情况，当复制一个文件夹时，可能发生四种事件。 如果 destination 不存在，source 文件夹和它所有的内容得到复制。 如果 destination 是一个已存在的文件，则发生一个错误。 如果 destination 是一个目录，它将尝试复制文件夹和它所有的内容。如果一个包含在 source 的文件已在 d

21、estination 中存在，当 overwrite 为 False 时发生一个错误，否则它将尝试覆盖这个文件。 如果 destination 是一个只读目录，当尝试去复制一个已存在的只读文件到此目录并且 overwrite为 False 时，则发生一个错误。如果 source 使用的通配符不能和任何文件夹匹配，也发生一个错误。CopyFolder 方法停止在它遇到的第一个错误上。不要尝试回卷错误发生前所做的任何改变。2、请参阅Copy 方法、CopyFile 方法、CreateFolder 方法、DeleteFolder 方法、MoveFolder 方法CreateFolder 方法创建一个

22、文件夹。object.CreateFolder（foldername） CreateFolder 方法有如下几部分：始终是一个 FileSystemObject 的名字。foldername字符串表达式，它标识创建的文件夹。如果指定的文件夹已经存在，则发生一个错误。2、请参阅CopyFolder 方法、CreateTextFile 方法、DeleteFolder 方法、MoveFolder 方法。CreateTextFile 方法创建一个指定的文件名并且返回一个用于该文件读写的 TextStream 对象。object.CreateTextFile（filename, overwrite, u

23、nicode） CreateTextFile 方法有如下几部分：始终是一个 FileSystemObject 或 Folder 对象的名字。filename字符串表达式，它标识创建的文件。Boolean 值，表示一个已存在文件是否可被覆盖。如果可被覆盖其值为 True，其值为 False 时不能覆盖。如果它被省略，则已存在文件不能覆盖。unicodeBoolean 值，表示文件是作为一个 Unicode 文件创建的还是作为一个ASCII 文件创建的。如果作为一个 Unicode 文件创建，其值为 True，作为一个 ASCII 文件创建，其值为 False。如果省略的话，则认为是一个 ASCI

24、I 文件。下面的代码举例说明如何使用 CreateTextFile 方法创建和打开文本文件。Sub CreateAfile Set fs = CreateObject（Scripting.FileSystemObject Set a = fs.CreateTextFile（testfile.txt, True） a.WriteLine（This is a test. a.Close对于一个已经存在的 filename，如果 overwrite 参数是 False 或者没有提供，则发生一个错误。1、应用于FileSystemObject 对象、Folder 对象2、请参阅CopyFile 方法、DeleteFile 方法、OpenAsTextStream 方法、OpenTextFile 方法Delete 方法删除一个指定的文件或文件夹。object.Delete forceDelete 方法语法有如下几部分：forceBoolean 值，如果要删除具有只读属性设置的文件或文件夹，其值为True。当其值为 False 时（缺省），不能删除具有只读属性设置的文件或文件夹。如果指定的文件或文件夹不存在，则发生一个错误。对于一个 File 或 Folder，Delete 方法的结