EXCEL VBA方法参考手册

Excel VBA 学习资料函数参考手册目录一些对象的应用方法 (4)Add 方法 (5)Add方法(Dictionary) (6)Add 方法(Folders) (6)Assert 方法 (7)BuildPath 方法 (8)Clear 方法 (8)Close 方法 (9)Copy 方法 (10)CopyFile 方法 (10)CopyFolder 方法 (11)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.Add item,key,before,after说明before 或after参数是字符串表达式或数值表达式，均须引用集合中现有成员，否则将导致错误发生。

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

1、应用于Collection 对象2、请参阅Item方法、Remove方法Add 方法示例本示例使用Add方法将 Inst 对象（类 Class1 之示例，其中包含Public 变量 InstanceName）加到 MyClasses 集合对象中。

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

类名就用缺省的 Class1。

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

Dim MyClasses As New Collection ' 建立集合对象。

Dim Num As Integer ' 定义计数变量。

Dim MsgDim TheName ' 用来保存用户指定的名称的变量。

DoDim Inst As New Class1 ' 建立 Class1 的新示例。

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

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, key := CStr(Num)End If' 清除对当前示例的引用，以准备下一个。

Set Inst = NothingLoop Until TheName = ""For Each x In MyClassesMsgBox x.instancename, , "Instance Name"NextAdd方法(Dictionary)描述添加一对相对应的关键字和条目到Dictionary 对象。

语法object.Add key, item说明如果该关键字已经存在，则产生一个错误。

1、应用于Dictionary 对象2、请参阅ADD方法（Folder）、Exist方法、Items方法、Keys方法、Remove 方法、RemoveAll方法Add 方法(Folders)描述添加一个新的Folder 到Folders 集合。

语法object.Add folderName说明如果folderName 已经存在，则产生一个错误。

1、应用于Folders 集合2、请参阅Add方法(Dictionary)Assert 方法有条件地在该方法出现的行上挂起执行。

语法object.Assert booleanexpression说明Assert调用只在开发环境中工作。

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

全部booleanexpression常常被计算。

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

1、应用于Debug 对象2、请参阅Print 方法Assert 方法示例下面的示例说明如何使用Assert方法。

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

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

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

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

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

Option ExplicitPrivate blnAssert As BooleanPrivate intNumber As IntegerPrivate Sub Command1_Click()blnAssert = Not blnAssertintNumber = IIf(intNumber <> 0, 0, 1)Command1.Caption = intNumberEnd SubPrivate Sub Command2_Click()Debug.Assert blnAssertEnd SubPrivate Sub Form_Load()Command1.Caption = intNumberCommand2.Caption = "Assert Tester"End SubBuildPath 方法描述追加一个名字到一个已经存在的路径。

语法object.BuildPath(path, name)说明只有在需要时，BuildPath 方法才在已存在路径和名字之间插入一个附加的路径分隔符。

1、应用于FileSystemObject 对象。

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

语法object.Clearobjec 总是Err对象。

说明在处理错误之后使用Clear 来清除Err对象，例如，在对On Error Resume Next 使用拖延错误处理时就可使用Clear。