1、-_Excel2003VBA帮助文档第 2 页目录一些对象的应用方法 .4Add 方法 .5Add 方法(Dictionary) .6Add 方法(Folders) .6Assert 方法 .7BuildPath 方法 .8Clear 方法 .8Close 方法 .9Copy 方法 .10CopyFile 方法 .10CopyFolder 方法 .11CreateFolder 方法 .12CreateTextFile 方法 .13Delete 方法 .14DeleteFile 方法 .14DeleteFolder 方法 .15DriveExists 方法 .15Exists 方法 .16Fil
2、eExists 方法 .16FolderExists 方法 .17GetAbsolutePathName 方法 .17GetBaseName 方法 .18GetExtensionName 方法 .18GetFile 方法 .19GetFileName 方法 .19GetFolder 方法 .20GetParentFolderName 方法 .20GetSpecialFolder 方法 .21GetTempName 方法 .22Hide 方法 .22Item 方法 .23Items 方法 .24Keys 方法 .24Move 方法 .25Move 方法（UseForm） .251、应用于 .25
3、2、请参阅 .25MoveFile 方法 .25MoveFolder 方法 .26OpenAsTextStream 方法 .27OpenTextFile 方法 .28Print 方法 .30第 3 页PrintForm 方法 .31Raise 方法 .31Read 方法 .33ReadAll 方法 .33ReadLine 方法 .34Remove 方法 .34Remove 方法（FileSystemObject 对象） .35RemoveAll 方法 .35Show 方法 .36Skip 方法 .37SkipLine 方法 .37WhatsThisMode 方法 .38Write 方法 .38
4、WriteBlankLines 方法 .39WriteLine 方法 .39第 4 页一些对象的应用方法1、Collection 对象ADD 方法、Item 方法、Remove 方法2、Debug 对象Assert 方法、Print 方法3、Dictionary 对象Add 方法(Dictionary)、Exists 方法、Items 方法、Keys 方法、Remove 方法、 Remove 方法（FileSystemObject 对象） 、RemoveAll 方法、4、Err 对象Clear 方法、Raise 方法5、File 对象、Folder 对象Copy 方法、 Delete 方法、C
5、reateTextFile 方法（Folder 对象） 、Move 方法、 OpenAsTextStream 方法（File 对象）6、Folders 集合Add 方法(Folders)7、FileSystemObject 对象BuildPath 方法、CopyFile 方法、CopyFolder 方法、CreateFolder 方法、 CreateTextFile 方法、DeleteFile 方法、DeleteFolder 方法、 DriveExists 方法、FileExists 方法、GetAbsolutePathName 方法、GetBaseName 方法、GetExtensionNa
6、me 方法、GetFile 方法、 GetFileName 方法、GetFolder 方法、GetParentFolderName 方法、GetSpecialFolder 方法、GetTempName 方法、MoveFile 方法、 MoveFolder 方法、 (21)OpenTextFile 方法8、UserForm 对象，UserForms 集合对象Hide 方法、PrintForm 方法、Show 方法、WhatsThisMode 方法9、TextStream 对象Close 方法、 Read 方法、ReadAll 方法、ReadLine 方法、Skip 方法、SkipLine 方法、
7、 Write 方法、WriteBlankLines 方法、WriteLine 方法第 5 页Add 方法添加一个成员到 Collection 对象。语法object.Add item, key, before, after Add 方法的语法具有下列对象限定符和命名参数：部分 描述object 必需的。对象表达式，其值为“应用于”列表中的对象。item 必需的。任意类型的表达式，指定要添加到集合中的成员。key 可选的。唯一字符串表达式，指定可以使用的键字符串，代替位置索引来访问集合中的成员。before 可选的。表达式，指定集合中的相对位置。在集合中将添加的成员放置在 before 参数识别
8、的成员之前。如果为一数值表达式，则 before 必须是介于 1 和集合 Count 属性值之间的值。如果为一字符串表达式，则当添加一个被引用的成员到集合时， before 必须对应于指定的 key 值。可以指定 before 位置或 after 位置，但不能同时指定这两个位置。after 可选。表达式，指定集合中的相对位置。在集合中将添加的成员放置在 After 参数识别的成员之后。如果为一数值表达式，则 after 必须是介于 1 和集合 Count 属性值之间的值；如果为一字符串表达式，则当添加一个被引用的成员到集合时， after 必须对应于指定的 key 值。可以指定 before
9、位置或 after 位置，但不能同时指定这两个位置。说明before 或 after 参数是字符串表达式或数值表达式，均须引用集合中现有成员，否则将导致错误发生。如果指定的 key 和集合中现有成员的 key 发生重复，则也会导致错误发生。1、应用于 Collection 对象2、请参阅 Item方法、Remove 方法Add 方法示例本示例使用 Add 方法将 Inst 对象（类 Class1 之示例，其中包含 Public 变量 InstanceName ）加到 MyClasses 集合对象中。若要观察程序的运作，插入一个类模块，并在 Class1 的模块级中声明公用变量 Instance
10、Name（键入 Public InstanceName）来保存每个示例的名称。类名就用缺省的 Class1。将下列代码复制与粘贴到某个窗体模块的 Form_Load 事件过程中。Dim MyClasses As New Collection 建立集合对象。Dim Num As Integer 定义计数变量。Dim Msg第 6 页Dim TheName 用来保存用户指定的名称的变量。DoDim Inst As New Class1 建立 Class1 的新示例。Num = Num + 1 将计数变量加一，并让用户输入名称。Msg = “Please enter a name for this
11、object.“ & Chr(13) _& “Press Cancel to see names in collection.“TheName = InputBox(Msg, “Name the Collection Items“)Inst.InstanceName = TheName 将输入的名称存到对象的示例中。 如果名称不是空字符串，则将该示例加到集合对象中。If Inst.InstanceName 0, 0, 1)Command1.Caption = intNumberEnd SubPrivate Sub Command2_Click()Debug.Assert blnAssertEn
12、d SubPrivate Sub Form_Load()Command1.Caption = intNumberCommand2.Caption = “Assert Tester“End SubBuildPath 方法描述追加一个名字到一个已经存在的路径。语法object.BuildPath(path, name) BuildPath 方法语法有如下几部分：部分 描述object 必需的。始终是 FileSystemObject 的名字。path 必需的。要对其追加名字的已存在路径。路径可以是绝对的也可以是相对的，不必指定一个已存在的文件夹。name 必需的。要追加到已存在路径上的名字。说明只
13、有在需要时，BuildPath 方法才在已存在路径和名字之间插入一个附加的路径分隔符。1、应用于 FileSystemObject 对象。Clear 方法清除 Err 对象的所有属性设置。语法object.Clear objec 总是 Err 对象。说明在处理错误之后使用 Clear 来清除 Err 对象，例如，在对 On Error Resume Next 使用拖延错误处理时就可使用 Clear。每当执行下列语句时就会自动调用 Clear 方法： 任意类型的 Resume 语句。第 9 页 Exit Sub, Exit Function, Exit Property 任何 On Error
14、语句。 注意 当处理因访问其他对象产生的错误时，与其使用 On Error GoTo，不如使用 On Error Resume Next。每一次与对象打交道之后都检查 Err，则可消除代码访问对象时的含混之处。可以确认是哪个对象将错误引入 Err.Number 中，也可以确认最初是哪个对象产生了这个错误（Err.Source 中指定的对象）。1、应用于 Err 对象2、请参阅 Description 属性、Err 对象、HelpContext 属性、HelpFile 属性、LastDLLError 属性、Number 属性、On Error 语句、Raise 方法、Source 属性。Clea
15、r 方法示例本示例使用 Err 对象的 Clear 方法将 Err 对象之数值属性重新设置为零，并将其字符串属性设置为零长度字符串。如果在代码中省略 Clear 方法，则每完成一次循环便会显示一次错误信息（发生错误之后），不论程序中的计算结果是否真的有错误。Dim Result(10) As Integer 声明数组变量其元素容易溢出Dim indxOn Error Resume Next 将错误处理的方式改为“继续下一行”。Do Until indx = 10 下面计算若有错误发生，便显示错误信息。Result(indx) = Rnd * indx * 20000If Err.Number
16、0 ThenMsgBox Err, , “Error Generated: “, Err.HelpFile, Err.HelpContextErr.Clear 清除 Err 对象的属性。Elseindx = indx + 1End IfLoopClose 方法描述关闭一个打开的 TextStream 文件。语法object.Close object始终是一个 TextStream 对象的名字。1、应用于 TextStream 对象2、请参阅 Read方法、ReadAll 方法、ReadLine 方法、Skip 方法、SkipLine 方法、Write 方法、WriteBlankLines 方法
17、、WriteLine 方法。第 10 页Copy 方法描述把一个指定的文件或文件夹从一个地方复制到另一个地方。语法object.Copy destination, overwriteCopy 方法语法有如下几部分：部分 描述object 必需的。始终是一个 File 或 Folder 对象的名字。destination 必需的。文件或文件夹要复制到的接受端。不允许有通配符。overwrite 可选的。Boolean 值，如果该值为 True （缺省），则已存在的文件或文件夹将被覆盖。如果为 False，则它们不被覆盖。说明对一个 File 或 Folder，Copy 方法的结果和执行 File
18、SystemObject.CopyFile 或 FileSystemObject.CopyFolder 操作的结果是一样的，在后者中， object所引用的文件或文件夹是作为参数传递的。应当注意，后面的方法能够复制多个文件或文件夹。1、应用于 File 对象、Folder 对象2、请参阅 CopyFile 方法、CopyFolder 方法、Delete 方法、Move 方法、OpenAsTextStream 方法CopyFile 方法描述把一个或多个文件从一个地方复制到另一个地方。语法object.CopyFile source, destination, overwriteCopyFile 方法语法有如下几部分：部分 描述object 必需的。 object始终是一个 FileSystemObject 的名字。source 必需的。指明一个或多个要被复制文件的字符串文件说明，它可以包括通配符。destination 必需的。指明 source 中的一个或多个文件要被复制到的接受端的字符串，不允许有通配符。overwrite 选项的。Boolean 值，它表示存在的文件是否被覆盖。如果是 True，文件将被覆盖；如果是 False，它们不被覆盖。缺省值是 True。注意如果 destination 具有只读属性设置，不论 overwrite 值如何，CopyFile 都将失败。
