EXCEL-VBA常用语句

参数说明 item：集合或数组中的元素 collection：集合或者数组
语句示例
疑难 27
counter：计数器变量 start：计数器变量起始值 end：计数器变量终止值 step：计数变量的步长
疑难 23
name：函数名称 arglist：参数列表 type：函数返回值数据类型
疑难 108
Get GoTo
附录2
VBA常用语句
语句名 Call ChDir ChDrive
语句说明 语法说明 将控制权传递给 Sub 或 Function 过程。即调用 [Call] name [argumentlist] 某个函数或者过程。 更改当前目录或文件夹 更改当前驱动器。 ChDir path ChDrive drive
疑难 45 疑难 93 Reset
line：行号或者行标签 path：文件夹或目录的路径 appname：程序名 section：注册表分支 key：注册表键名 setting：键值 filenumber：文件号 position：文件的位置
Resume RmDir "D:\TMP" SaveSetting "ExcelTip","Amulee", "IQ", 500
语法说明 For Each item In collection [语句] [Exit For] [语句] Next [item] For counter = start To end [Step step] [语句] [Exit For] [语句] Next [counter] Function name [(arglist)] [As type] [语句] [name = expression] [Exit Function] [语句] [name = expression] End Function Get [#]filenumber, [recnumber], varname ChDir path line If condition Then [statements ] [Else elsestatements ] 或者 If condition Then [语句] [ElseIf condition-n Then [elseif语句] [Else [else语句]] End If Input # filenumber, varlist Kill filename [Let] varname = expression Line Input [#]filenumber, varname Load object Mid(stringvar , start [, length ]) =
setting
Seek [#]filenumber , position Select Case testexpression [Case expressionlist-n [statements-n]] [Case Else [elsestatements]] End Select SendKeys string [, wait ] Set varname = expression
Close
关闭对使用Open 语句打开的文件的输入/输出
Close [filenumberlist ] Const constname [As type ] =
Const Date Dim
声明常量。 设置当前系统日期 声明变量
expression
Date = date Dim varname [([subscripts ])] [As type ] Do [{While | Until} 条件] [语句] [Exit Do] [语句] Loop End End Function End If End Property End Select End Sub End Type End With Enum name membername [= constantexpression] membername [= constantexpression] . . . End Enum Erase arraylist Error errornumber Exit Do Exit For Exit Function Exit Property Exit Sub FileCopy source , destination
参数说明 name：过程或者函数名 argumentlist：函数或者过程的参数列表 path：路径。ChDir会更改当前驱动器上的默认目录或文 件夹。 drive：指定现有驱动器的字符串表达式。如果您提供零 长度字符串("")，则当前驱动器不会发生更改。如果 drive参数是多字符字符串，则ChDrive仅使用第一个字 filenumber：是任何有效的文件编号。如果省略 filenumberlist，则由 Open 语句打开的所有活动文件 都将关闭。 constname：常量名 type：数据类型 expression：常量的值 date：指定的日期表达式 varname：变量名 subscripts：下标（适用于数组变量） type：数据类型
语句示例 疑难 60

On Error
疑难 34
Open
启用对文件的输入/输出
Open pathname For mode [Access access ] [lock ] As [#]filenumber [Len=reclength ]
疑难 99
Option Base Option Compare
语法说明 Name oldname As newname On Error GoTo line On Error Resume Next On Error GoTo 0
参数说明 oldname：旧的文件名 newname：新的文件名 line：行号或者行标签 pathname：文件名称 mode：打开方式。可以为Append、Binary、Input、 Output 或 Random access：访问的方式。可以为Read、Write 或 Read Write lock：组织其他程序打开操作文件，可以为Shared、 Lock Read、Lock Write 和 Lock Read Write filenumber：空闲的文件号 设置Dim和Redim语句声明数组下标的默认下限 Binary：二进制比较方式（区分大小写） Text：文本比较方式（不区分大小写） filenumber：文件号 outputlist：输出的文本内容。多个内容可以用逗号隔 filenumber：文件号 recnumber：文件的位置 varname：需要输出的内容 number：种子 varname：数组变量 subscipt：数组的下标 type：数组类型
分支结构语句 根据表达式的值，有条件地执行相应的语句
condition：条件判断表达式
疑难 21
Input # Kill Let Line Input # Load Mid MkDir
从打开的顺序文件中读取数据并将此数据分配给 变量 删除硬盘上的文件 将表达式的值赋给变量或属性 将打开的磁盘文件中的整行数据读取到String类 型的变量中 装载对象并不显示 将字符串指定位置的字符替换为其他字符 新建目录或文件夹
疑难 99 疑难 65 疑难 16 疑难 99 疑难 127 疑难 55
MkDir "D:\TMP"
Exce疑难千寻千解
VBA入门与提高
附录2
VBA常用语句
语句名 Name
语句说明 重命名磁盘文件、目录或文件夹。当原始文件名 与新文件名路径不一致时，可以实现文件的移动 并且重命名。 设定出错时的处理方式
将打开的磁盘文件中的数据读取到变量中。用于 读取二进制方式打开的文件。 无条件转到过程内的指定行
filenumber：文件号 recnumber：读取文件的位置 varname：接受从文件读取内容的变量名称 line：行号或者行标签
Get #1,,sVAR
疑难 23
If...Then...Els e
string
MkDir pathname
filenumber：文件号 varname：接受从文件读取内容的变量名称 filename：文件的完整路径，包括盘符、路径和文件名 。VBA中也支持适用通配符（*）和（?）进行批量的文件 varname：变量名 expression：需要赋值给变量的表达式 filenumber：文件号 varname：接受从文件读取内容的变量名称 object：需要装载的对象 stringvar：需要替换的字符串变量 start：替换字符的起始位置 length：替换字符的长度 string：用于替代的字符 pathname：路径名称
疑难 95 疑难 95 疑难 19 疑难 101
Put #1,,sVAR
Option Explicit 强制变量声明 Print # Put Randomize ReDim Reset Resume RmDir SaveSetting 向使用Open方法打开的文件输出文本 向使用Open方法打开的文件输出二进制内容 初始化随机数字生成器 重新定义动态数组的维度、尺寸和类型 关闭使用 Open 语句打开的所有磁盘文件 重新在出错语句处执行 删除磁盘目录或文件夹。 向注册表中写入内容 设置使用 Open 语句为打开的文件中的下一次读 取/写入操作设置位置。
varname
Randomize [number ] ReDim [Preserve] varname (subscripts ) [As type ] Reset Resume [0] Resume Next Resume line RmDir path SaveSetting appname , section, key,
复制一个文件
source：源文件的完整路径 destination：目标文件的完整路径