EXCELVBA帮助手册

1、精品文档 Excel2003VBA 帮助文档 可编辑 目录 一些对象的应用方法 4 Add 方法 6 Add 方法 (Dictionary) 8 Add 方法 (Folders) 8 Assert 方法 9 BuildPath 方法 11 Clear 方法 11 Close 方法 13 Copy 方法 13 CopyFile 方法 14 CopyFolder 方法 15 CreateFolder 方法 17 CreateTextFile 方法 18 Delete 方法 19 DeleteFile 方法 19 DeleteFolder 方法 20 DriveExists 方法 21 Exists

2、 方法 21 FileExists 方法 22 FolderExists 方法 22 GetAbsolutePathName 方法 23 GetBaseName 方法 24 GetExtensionName 方法 24 GetFile 方法 25 GetFileName 方法 26 GetFolder 方法 26 GetParentFolderName 方法 27 GetSpecialFolder 方法 28 GetTempName 方法 29 Hide 方法 29 Item 方法 31 Items 方法 32 Keys 方法 33 Move 方法 34 Move 方法( UseForm )

3、34 1 、应用于 34 2 、请参阅 34 MoveFile 方法 35 MoveFolder 方法 35 OpenAsTextStream 方法 36 OpenTextFile 方法 38 Print 方法 40 PrintForm 方法 42 Raise 方法 43 Read 方法 45 ReadAll 方法 45 ReadLine 方法 46 Remove 方法 46 Remove 方法（ FileSystemObject 对象） . 47 RemoveAll 方法 48 Show 方法 49 Skip 方法 51 SkipLine 方法 51 WhatsThisMode方法 52 W

4、rite 方法 53 WriteBlankLines方法 53 WriteLine 方法 54 一些对象的应用方法 1 、 Collection 对象 ADD 方法、Item 方法、Remove 方法 2 、 Debug 对象 Assert方法、Print方法 3 、 Dictionary 对象 Add方法（Dictionary）、Exists 方法、Items 方法、Keys方法、 Remove 方法、 Remove 方法（FileSystemObject 对象）、 RemoveAII 方法、 4 、 Err 对象 Clear方法、Raise 方法 5 、 File 对象、 Folder 对

5、象 Copy 方法、Delete 方法、CreateTextFile 方法（Folder 对象）、 Move 方法、 OpenAsTextStream方法（File 对象） 6 、 Folders 集合 Add 方法（Folders） 7 、 FileSystemObject 对象 BuildPath方 法 、 CopyFile方 法 、 CopyFolder方 法 、 CreateFolder 方法、 CreateTextFile 方法、 DeleteFile 方法、 DeleteFolder方 法 、 DriveExists 方 法 、 FileExists方 法 、 GetAbsolut

6、ePathName 方法、（11） GetBaseName 方法、（12） GetExtensionName方法、（13） GetFile 方法、（14） GetFileName 方法、（15） GetFolder 方法、（16）GetParentFolderName方法、（17）GetSpecialFolder方 法、（18） GetTempName 方法、（19） MoveFile 方法、（20） MoveFolder 方法、 （21O） penTextFile 方法 8、 UserForm 对象， UserForms 集合对象 Hide 方法、PrintForm 方法、Show 方法、W

7、hatsThisMode 方 法 9 、 TextStream 对象 Close 方法、Read 方法、ReadAll方法、ReadLine 方法、Skip 方法、（6） SkipLine 方法、 Write 方法、 WriteBlankLines 方法、 Add方法 添加一个成员到 Collecti on 对象。 语法 object .Add item , key, before , after Add方法的语法具有下列对象限定符和命名参数: 部分 描述 object 必需的。对象表达式，其值为“应用于”列表中的对象。 item 必需的。任意类型的表达式，指定要添加到集合中的成员。 key

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

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

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

11、ss1 建立 Class1 的新示例。 Num = Num + 1 将计数变量加一，并让用户输入名称。 Msg = Please enter a name for this object. )直接将插入点定位在 上一个被显示的字符之后。使用Tab(n)将插入点疋位在绝对列 号上。使用无参数的Tab将插入点定位在下一个打印区的起始位 置。如果省略charpos，则在下一行打印下一字符。 说明 可以用空白或分号来分隔多个表达式。 对系统指定的区域设置，用小数点分隔符将所有打印到Immediate视窗的数 据正确格式化。关键字要用适用于主应用程序的语言输出。 对于Boolean数据，或者打印True

12、或者打印False。根据主机应用程序的 地区设置来翻译True和False关键字。 使用系统能识别的标准短日期格式书写Date数据。当日期或时间部件丢失或 为零时，只书写已提供的部件。 如果outputlist 数据是Empty，则无内容可写。但是，如果outputlist 数 据是Null，则输出Null。在输出Null关键字时，要把关键字正确翻译出来。 要把错误数据作为 Error errorcode 输出。在输出Error关键字时，要把关 键字正确翻译出来。 如果在具有缺省显示空间的模块外使用此方法，则需要 object。例如，如果没 有指定对象就在标准模块上调用此方法，则将导致错误发生

13、，但是，如果在窗体 模块上进行调用，则会在窗体上显示“ outputlist 注意因为 Print 方法是按照字符比例进行打印，所以字符数与字符所占据的宽 度固定的列的数目无关。例如，像“W 这样的宽字母占据的宽度超过一固定 列宽，而像 i 这样的窄字母占据的宽度则较小。考虑到要使用比平均字符更宽 的空间，表列一定要留有足够余地。另外，也可以使用固定间距的字体（像 Courier 字体）来确保每一字符均只占一列。 1、应用于 Debug 对象 2、请参阅Assert方法、Print # 语句、Spc函数、Tab函数 Print 方法示例 本示例使用 Print 方法在“调试”窗口的“立即”面板

14、中显示变量 MyVar 的 值。请注意， Print 方法只能用于可显示文本的对象。 Dim MyVar MyVar = Come see me in the Immediate pane.” Debug.Print MyVar PrintForm 方法 将 UserForm 对象的图象逐位发送到打印机。 语法 object .PrintForm object 代表对象表达式，其值为“1、应用于”列表中的对象。如果省略掉 object ，则把焦点所在的 UserForm 当做 object 。 说明 PrintForm 可以打印所有可见对象以及 UserForm 对象的位图。 PrintFor

15、m 也可打印 UserForm 对象上的图形。 PrintForm 用什么打印机要取决于操作系统的“ 控制面板”中的设置。 1、应用于UserForm 对象，UserForms 集合对象 PrintForm方法示例 在下列示例中，当用户单击窗体时，程序将窗体的客户区域打印出来。 UserForml 的 Click 事件 Private Sub UserForm_Click() UserForml.Pri ntForm End Sub Raise 方法 产生运行时错误。 语法 object .Raise nu mber , source , descripti on , helpfile , h

16、elpc on text Raise方法具有下列对象限定符和命名参数： 参数 描述 object 必需的。总是Err对象。 Number 必需的。Long整数，识别错误性质。Visual Basic 错误(既 有Visual Basic 定义的错误也有用户定义的错误)的范围在 0 - 65535 之间。从0 - 512的范围保留为系统错误；从 513 - 65535的范围可以用做用户定义的错误。当在类模块中 将Number属性设置成自己的错误代码时，可将错误代码号 添加到vbObjectError 常数上。例如，为了产生错误号513， 可将 vbObjectError + 513 赋值到 Nu

17、mber 属性。 source 可选的。子付串表达式，为产生错误的对象或应用程序命名。 当设置对象的这一属性时，要使用窗体project.class 。如果没 有指定source，则使用当前 Visual Basic工程的程序设计 ID。 descripti on 可选的。描述错误的字符串表达式。如果没有指定，则检查 Number 的值。如果可以将错误映射成 Visual Basic 运行时 错误代码，则将 Error函数返回的字符串作为 Description 使用。如果没有与 Number 对应的 Visual Basic 错误，则 要用到消息“应用程序定义的错误或对象定义的错误”。 he

18、lpfile 可选的。帮助文件的完整限定的路径，在帮助文件中可以找到 有关错误的帮助信息。如果没有指定，则Visual Basic 会使 用Visual Basic帮助文件的元整限疋的驱动器、路径和文件 名。 1 helpcontext 可选的。识别helpfile 内的标题的上下文ID，而helpfile 提 供有助于了解错误的描述。如果省略，则使用处理有关错误的 Visual Basic帮助文件的上下文 ID，该ID 与Number 属 |性对应。 说明 除了 number之外，所有参数都是可选的。如果使用Raise而不指定一些参 数，并且Err对象的属性设置含有未清除的值，则视这些值为错

19、误的值。 Raise被用来生成运行时错误，并可用来代替 Error语句。当书写类模块时要 生成错误，Raise是有用的，因为Err对象比Error语句可能提供更丰富的 信息。例如，用Raise方法，可以在Source属性中说明生成错误的来源，可 以引用该错误的联机帮助。 1、应用于Err对象 2、请参阅 Clear 方法、Description 属性、Err 对象、Error 语句、 HelpContext 属性、HelpFile 属性、LastDLLError 属性、Number 属性、 On Error 语句、Source 属性 Source属性示例 本示例将某个由 Visual Basi

20、c 生成的Automation对象之程序设计标识符 (Programmatic ID )存到变量 MyObjectID 中，并在程序使用 Raise 方法 来生成一错误状态时，将之存入Err对象的Source属性中。在错误处理过程 中，请不要在程序中使用 Source属性(或除Number外的Err对象属性)。 只有用户不能处理该错误时，才要使用Number以外的属性将详细的错误信息 显示给用户。该示例假设 App和MyClass是有效的引用。 Dim MyClass, MyObjectID, MyHelpFile, MyHelpCo ntext 某个MyClass类型的对象生成一个错误，并设

21、置 Err对象 的所有属性值，包括 Source (记录 MyObjectID 为App对象 的Title属性及 MyClass 对象的Name属性之组合)。 MyObjectID = App.Title & . & MyClass.Name Err.Raise Number := vbObjectError + 894, Source := MyObjectID, _ Descripti on := Was not able to complete your task, _ HelpFile := MyHelpFile, HelpCo ntext := MyHelpCo ntext Read

22、方法 描述 从一个TextStream 文件中读取指定数量的字符并返回得到的字符串。 语法 object .Read( characters ) Read方法语法有如下几部分： 部分 描述 object 必需的。始终是一个 TextStream 对象的名字。 characters 必需的。从文件中要读取的字符数。 1、应用于TextStream 对象 2、 请参阅 Close 方法、ReadAll 方法、ReadLine 方法、Skip 方法、SkipLine 方法、Write 方法、WriteBlankLines方法、WriteLine 方法 ReadAll 方法 描述 读取整个的 Text

23、Stream 文件并返回得到的字符串。 语法 object .ReadAll object 始终是一个 TextStream 对象的名字。 说明 对于大的文件，使用 ReadAll 方法浪费内存资源。应使用其它的技术去输入一 个文件，比如一行一行地读取文件。 1 、应用于 TextStream 对象 2 、请参阅 Close 方法、 Read 方法、 ReadLine 方法、 Skip 方法、 SkipLine 方法、 Write 方法、 WriteBlankLines方法、 WriteLine 方法 ReadLine 方法 描述 从一个 TextStream 文件读取一整行（到换行符但不包括

24、换行符）并返回得到 的字符串。 语法 object .ReadLine object 参数始终是一个 TextStream 对象的名字。 1 、应用于 TextStream 对象 2、请参阅Close 方法、Read方法、ReadAII方法、Skip 方法、SkipLine 方 法、 Write 方法、 WriteBlankLines 方法、 WriteLine 方法 Remove 方法 把成员从 CoIIection 对象中删除。 语法 object .Remove index Remove 方法的语法具有下列对象限定符和部分： 部分 描述 object 必需的。对象表达式，其值为“应用于”

25、列表中的对象。 | Index 必需的。表达式，指定集合成员的位置。如果是数值表达式，则index 必须是介于1和集合Count属性值之间的数。如果是字符串表达 式，则在将被引用的成员添加到集合时，index必须和key参数一致。 说明 如果index的值与集合的现有成员不匹配，则会导致错误发生。 1、应用于 Collection 对象、Dictionary 对象 2、请参阅Add 方法、Item 方法 Remove 方法示例 本示例说明如何使用Remove 方法将Collection 对象MyClasses 中的对 象删除。代码在每次循环中都将索引为1的对象删除。 Dim Num, MyCl

26、asses For Num = 1 To MyClasses.Cou nt MyClasses.Remove 1将第一个对象删除 直到删除所有对象为止。 Next Num Remove 方法(FileSystemObject 对象) 描述 从一个Dictionary 对象中删除一个关键字和条目对。 语法 object .Remove( key) Remove方法语法有如下几部分： 部分 描述 Object 必需的。始终是一个 Dictio nary对象的名字。 Key 必需的。Key与要从Dictionary 对象中删除的关键字和条目对相关联。 说明 如果指定的关键字和条目对不存在，则发生一个

27、错误 下面的代码举例说明了 Remove 方法的使用： Dim a, d, i创建一些变量 Set d = CreateObject(Scripting.Dictionary) d.Add a, Athens添加一些关键字和条目 d.Add b, Belgrade d.Add c, Cairo a = d .Remove()删除第二对 1 、应用于 Dictionary 对象 2 、请参阅 Add 方法 (Dictionary) 、 Exists 方法、 Items 方法、 Keys 方法、 RemoveAll 方法 RemoveAll 方法 描述 RemoveAll 方法从 Dictiona

28、ry 对象中删除所有关键字和条目对。 语法 object .RemoveAll object 始终是一个 Dictionary 对象的名字。 说明 下面的代码举例说明了 RemoveAll 方法的用法： Dim a, d, i创建一些变量 Set d = CreateObject(Scripting.Dictionary) d.Add a, Athens添加一些关键字和条目 d.Add b, Belgrade d.Add c, Cairo a = d .RemoveAII 清除字典 1、应用于Dictionary 对象 2、请参阅 Add 方法(Dictionary)、Exists 方法、It

29、ems 方法、Keys 方法、 Remove 方法 Show方法 显示UserForm 对象。 语法 object .Show modal Show方法的语法有如下几部分： 常数 值 vbModal 1 vbModeless 0 描述 UserForm 是模态的。缺省的 UserForm 是无模式的。 部分 描述 可选的。object代表对象表达式，其值为“应用于”列表中的对象。 如果省略掉object，贝U把与活动的UserForm 模块相关联的 UserForm 当作 object。 modal 可选的。Boolean 值决疋UserForm is是模态的还是无模式的。 设置值 modal

30、的设置值如下: 说明 如果在运用Show方法时并未装载指定的对象，则Visual Basic 会自动装载 它。 注意 在 Microsoft Office 97 中，如果UserForm 被设置为无模式的，它会引 发运行时错误；Office 97 UserForms总是模态的。 当UserForm 是无模式的，后续代码一出现即被执行。无模式的窗体不在任务 栏中出现，且不按窗口标签顺序。 注意 如果对该 UserForm 工程进行修改， 比如删除一个代码模块， 会引起工程 的重新编译，并且可能丢失与无模式的 UserForm 有关的数据。 当 UserForm 是模态的，用户在使用应用程序的其它

31、部分之前，必须先对其作 出响应。在隐藏或卸载 UserForm 之前，后续代码不会被执行。 虽然在显示 UserForm 时不能使用应用程序中的其他窗体， 但其他应用程序仍 然可以使用。 1 、应用于 UserForm 对象， UserForms 集合对象 2、请参阅 Hide 方法、 Load 语句、 Unload 语句 Show 方法示例 列示例假设程序中有两个 UserForms 。在 UserForm1 的 Initialize 事件 中，程序会加载 UserForm2 并将它显示出来。当用户单击 UserForm2 时， UserForm2 便会隐藏起来而 UserForm1 将会显

32、示出来。当用户单击 UserForm1 时， UserForm2 会再次出现。 UserForm1 的 Initialize 事件过程 Private Sub UserForm_Initialize() Load UserForm2 UserForm2.Show End Sub UserForm2 的 Click 事件 Private Sub UserForm_Click() UserForm2.Hide End Sub UserForm1 的 Click 事件 Private Sub UserForm_Click() UserForm2.Show End Sub Skip方法 描述 当读一个

33、TextStream文件时跳过指定数量的字符 语法 object .Skip( characters ) Skip方法语法有下面几部分： 部分 描述 object 必需的。始终是一个 TextStream 对象的名字。 characters 必需的。当读文件时要跳过的字符的数量。 说明 跳过的字符被放弃。 1、应用于TextStream 对象 2、 请参阅 Close 方法、Read 方法、ReadAII 方法、ReadLine 方法、SkipLine 方法、Write 方法、WriteBlankLines方法、WriteLine 方法 SkipLi ne 方法 描述 当读一个TextStre

34、am 文件时跳过下一行。 语法 object .SkipLine object始终是一个 TextStream 对象的名字。 说明 跳过一行是指读取并放弃一行中的所有字符，一直到并包括该行的换行符。 如果读的文件没有打开，则产生一个错误。 1、应用于TextStream 对象 2、请参阅Close 方法、Read 方法、ReadAII方法、ReadLine 方法、Skip 方 法、 Write 方法、 WriteBIankLines 方法、 WriteLine 方法 WhatsThisMode 方法 使鼠标指针改变成“ 这是什么 ”指针，并提供应用程序对选定对象显示帮助。 该 方法只存在于 Macintosh 中，但没有指针功能。 语法 object .WhatsThisMode object 代表对象表达式，其值为“1、应用于”列表中的对象。如果省略掉 object ，则把焦点所在的 UserForm 当做 object 。 说明 执行 WhatsThisMode 方法对应用程序来说， 与单击标题栏的“ 这是什么 ”按 钮的结果一样。鼠标指针会变成“ 这是什么 ”指针。当用户单击对象时， 该对象 的 WhatsThisHeIpID 属性可用来调用上下文相关的帮助。 1 、应用于 UserForm 对象， UserForms 集合对象 2 、请参阅 WhatsThi