EXCELVBA帮助手册.docx

EXCELVBA帮助手册.docx

《EXCELVBA帮助手册.docx》由会员分享，可在线阅读，更多相关《EXCELVBA帮助手册.docx（54页珍藏版）》请在冰豆网上搜索。

EXCELVBA帮助手册

Excel2003VBA

帮助文档

&

：

*

、

"

！

一些对象的应用方法

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方法、⑶CreateTextFile方法（Folder对象）、⑷Move方法、⑸OpenAsTextStream方法（File对象）

6、Folders集合

⑴Add方法（Folders）

7、FileSystemObject对象

⑴BuildPath方法、⑵CopyFile方法、⑶CopyFolder方法、⑷CreateFolder方法、⑸CreateTextFile方法、⑹DeleteFile方法、⑺DeleteFolder方法、⑻DriveExists方法、⑼FileExists方法、⑽GetAbsolutePathName方法、⑾GetBaseName方法、⑿GetExtensionName方法、⒀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方法、⑺Write方法、⑻WriteBlankLines方法、⑼WriteLine方法

Add方法

）

添加一个成员到Collection对象。

语法

item,key,before,after

Add方法的语法具有下列对象限定符和命名参数：

部分

描述

object

必需的。

对象表达式，其值为“应用于”列表中的对象。

item

必需的。

任意类型的表达式，指定要添加到集合中的成员。

}

key

可选的。

唯一字符串表达式，指定可以使用的键字符串，代替位置索引来访问集合中的成员。

before

可选的。

表达式，指定集合中的相对位置。

在集合中将添加的成员放置在before参数识别的成员之前。

如果为一数值表达式，则before必须是介于1和集合Count属性值之间的值。

如果为一字符串表达式，则当添加一个被引用的成员到集合时，before必须对应于指定的key值。

可以指定before位置或after位置，但不能同时指定这两个位置。

after

可选。

表达式，指定集合中的相对位置。

在集合中将添加的成员放置在After参数识别的成员之后。

如果为一数值表达式，则after必须是介于1和集合Count属性值之间的值；如果为一字符串表达式，则当添加一个被引用的成员到集合时，after必须对应于指定的key值。

可以指定before位置或after位置，但不能同时指定这两个位置。

说明

before或after参数是字符串表达式或数值表达式，均须引用集合中现有成员，否则将导致错误发生。

如果指定的key和集合中现有成员的key发生重复，则也会导致错误发生。

1、应用于Collection对象

、

2、请参阅Item方法、Remove方法

Add方法示例

本示例使用Add方法将Inst对象（类Class1之示例，其中包含Public变量InstanceName）加到MyClasses集合对象中。

若要观察程序的运作，插入一个类模块，并在Class1的模块级中声明公用变量InstanceName（键入PublicInstanceName）来保存每个示例的名称。

类名就用缺省的Class1。

将下列代码复制与粘贴到某个窗体模块的Form_Load事件过程中。

DimMyClassesAsNewCollection'建立集合对象。

DimNumAsInteger'定义计数变量。

DimMsg

DimTheName'用来保存用户指定的名称的变量。

Do

DimInstAsNewClass1'建立Class1的新示例。

Num=Num+1'将计数变量加一，并让用户输入名称。

$

Msg="Pleaseenteranameforthisobject."&Chr（13）_

&"PressCanceltoseenamesincollection."

TheName=InputBox（Msg,"NametheCollectionItems"）

=TheName'将输入的名称存到对象的示例中。

'如果名称不是空字符串，则将该示例加到集合对象中。

If<>""Then

'将该示例加到集合对象中。

item:

=Inst,key:

=CStr（Num）

EndIf

'清除对当前示例的引用，以准备下一个。

|

SetInst=Nothing

LoopUntilTheName=""

ForEachxInMyClasses

MsgBox,,"InstanceName"

Next

Add方法（Dictionary）

描述

添加一对相对应的关键字和条目到Dictionary对象。

语法

key,item

>

Add方法的语法有如下几部分：

部分

描述

Object

必需的。

一个Dictionary对象的名字。

Key

必需的。

与所添加的条目相关联的关键字。

Item

必需的。

与所添加的关键字相关联的条目。

说明

如果该关键字已经存在，则产生一个错误。

1、应用于Dictionary对象

2、请参阅ADD方法（Folder）、Exist方法、Items方法、Keys方法、Remove方法、RemoveAll方法

Add方法（Folders）

描述

添加一个新的Folder到Folders集合。

语法

folderName

Add方法的语法有如下几部分：

部分

>

描述

Object

必需的。

一个Folders集合的名称。

FolderName

必需的。

新添加的Folder的名称。

说明

如果folderName已经存在，则产生一个错误。

1、应用于Folders集合

2、请参阅Add方法（Dictionary）

Assert方法

>

有条件地在该方法出现的行上挂起执行。

语法

booleanexpression

Assert方法的语法有如下的对象限定符和参数：

部分

描述

object

必需的。

总是Debug对象。

booleanexpression

必需的。

一个值为True或者False的表达式。

·

说明

Assert调用只在开发环境中工作。

当模块被编译成为一个可执行的文件时，调用Debug对象的方法就会被忽略。

全部booleanexpression常常被计算。

例如，即使一个And表达式的第一部分被计算为False，整个表达式还要被计算。

1、应用于Debug对象

2、请参阅Print方法

Assert方法示例

下面的示例说明如何使用Assert方法。

示例需要一个带有两个按纽控件的窗体。

缺省的按纽名称是Command1和Command2。

当示例运行时，单击Command1按纽使得按纽上的文本在0和1之间进行切换。

单击Command2按纽可能不做任何事，也可能引起一个确认，应该执行哪一个操作取决于Command1按纽上所显示的值。

该确认将在最后一个语句执行之后使整个执行停止，并且行被突出显式。

OptionExplicit

PrivateblnAssertAsBoolean

[

PrivateintNumberAsInteger

PrivateSubCommand1_Click（）

blnAssert=NotblnAssert

intNumber=IIf（intNumber<>0,0,1）

=intNumber

EndSub

PrivateSubCommand2_Click（）

blnAssert

！

EndSub

PrivateSubForm_Load（）

=intNumber

="AssertTester"

EndSub

BuildPath方法

描述

追加一个名字到一个已经存在的路径。

语法

^

（path,name）

BuildPath方法语法有如下几部分：

部分

描述

object

必需的。

始终是FileSystemObject的名字。

path

必需的。

要对其追加名字的已存在路径。

路径可以是绝对的也可以是相对的，不必指定一个已存在的文件夹。

name

必需的。

要追加到已存在路径上的名字。

…

说明

只有在需要时，BuildPath方法才在已存在路径和名字之间插入一个附加的路径分隔符。

1、应用于FileSystemObject对象。

Clear方法

清除Err对象的所有属性设置。

语法

objec总是Err对象。

说明

在处理错误之后使用Clear来清除Err对象，例如，在对OnErrorResumeNext使用拖延错误处理时就可使用Clear。

每当执行下列语句时就会自动调用Clear方法：

^

任意类型的Resume语句。

ExitSub,ExitFunction,ExitProperty

任何OnError语句。

注意当处理因访问其他对象产生的错误时，与其使用OnErrorGoTo，不如使用OnErrorResumeNext。

每一次与对象打交道之后都检查Err，则可消除代码访问对象时的含混之处。

可以确认是哪个对象将错误引入中，也可以确认最初是哪个对象产生了这个错误（中指定的对象）。

1、应用于Err对象

2、请参阅Description属性、Err对象、HelpContext属性、HelpFile属性、LastDLLError属性、Number属性、OnError语句、Raise方法、Source属性。

Clear方法示例

本示例使用Err对象的Clear方法将Err对象之数值属性重新设置为零，并将其字符串属性设置为零长度字符串。

如果在代码中省略Clear方法，则每完成一次循环便会显示一次错误信息（发生错误之后），不论