EXCEL VBA方法参考手册Word文件下载.docx
《EXCEL VBA方法参考手册Word文件下载.docx》由会员分享，可在线阅读，更多相关《EXCEL VBA方法参考手册Word文件下载.docx（51页珍藏版）》请在冰豆网上搜索。
CreateFolder方法12
CreateTextFile方法13
Delete方法14
DeleteFile方法14
DeleteFolder方法15
DriveExists方法15
Exists方法16
FileExists方法16
FolderExists方法17
GetAbsolutePathName方法17
GetBaseName方法18
GetExtensionName方法18
GetFile方法19
GetFileName方法19
GetFolder方法20
GetParentFolderName方法20
GetSpecialFolder方法21
GetTempName方法22
Hide方法22
Item方法23
Items方法24
Keys方法24
Move方法25
Move方法（UseForm）25
1、应用于25
2、请参阅25
MoveFile方法25
MoveFolder方法26
OpenAsTextStream方法27
OpenTextFile方法28
Print方法30
PrintForm方法31
Raise方法31
Read方法33
ReadAll方法33
ReadLine方法34
Remove方法34
Remove方法（FileSystemObject对象）35
RemoveAll方法35
Show方法36
Skip方法37
SkipLine方法37
WhatsThisMode方法38
Write方法38
WriteBlankLines方法39
WriteLine方法39
一些对象的应用方法
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对象。
语法
object.Additem,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参数是字符串表达式或数值表达式，均须引用集合中现有成员，否则将导致错误发生。
如果指定的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"
）
Inst.InstanceName=TheName'
将输入的名称存到对象的示例中。
'
如果名称不是空字符串，则将该示例加到集合对象中。
IfInst.InstanceName<
>
"
Then
将该示例加到集合对象中。
MyClasses.Additem:
=Inst,key:
=CStr（Num）
EndIf
清除对当前示例的引用，以准备下一个。
SetInst=Nothing
LoopUntilTheName="
ForEachxInMyClasses
MsgBoxx.instancename,,"
InstanceName"
Next
Add方法（Dictionary）
添加一对相对应的关键字和条目到Dictionary对象。
object.Addkey,item
Add方法的语法有如下几部分：
Object
一个Dictionary对象的名字。
Key
与所添加的条目相关联的关键字。
Item
与所添加的关键字相关联的条目。
如果该关键字已经存在，则产生一个错误。
1、应用于Dictionary对象
2、请参阅ADD方法（Folder）、Exist方法、Items方法、Keys方法、Remove方法、RemoveAll方法
Add方法（Folders）
添加一个新的Folder到Folders集合。
object.AddfolderName
一个Folders集合的名称。
FolderName
新添加的Folder的名称。
如果folderName已经存在，则产生一个错误。
1、应用于Folders集合
2、请参阅Add方法（Dictionary）
Assert方法
有条件地在该方法出现的行上挂起执行。
object.Assertbooleanexpression
Assert方法的语法有如下的对象限定符和参数：
总是Debug对象。
booleanexpression
一个值为True或者False的表达式。
Assert调用只在开发环境中工作。
当模块被编译成为一个可执行的文件时，调用Debug对象的方法就会被忽略。
全部booleanexpression常常被计算。
例如，即使一个And表达式的第一部分被计算为False，整个表达式还要被计算。
1、应用于Debug对象
2、请参阅Print方法
Assert方法示例
下面的示例说明如何使用Assert方法。
示例需要一个带有两个按纽控件的窗体。
缺省的按纽名称是Command1和Command2。
当示例运行时，单击Command1按纽使得按纽上的文本在0和1之间进行切换。
单击Command2按纽可能不做任何事，也可能引起一个确认，应该执行哪一个操作取决于Command1按纽上所显示的值。
该确认将在最后一个语句执行之后使整个执行停止，并且Debug.Assert行被突出显式。
OptionExplicit
PrivateblnAssertAsBoolean
PrivateintNumberAsInteger
PrivateSubCommand1_Click（）
blnAssert=NotblnAssert
intNumber=IIf（intNumber<
0,0,1）
Command1.Caption=intNum
升级会员 