EXCEL-VBA常用语句
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
附录2
VBA常用语句
语句名 Call ChDir ChDrive
语句说明 语法说明 将控制权传递给 Sub 或 Function 过程。即调用 [Call] name [argumentlist] 某个函数或者过程。 更改当前目录或文件夹 更改当前驱动器。 ChDir path ChDrive drive
语法说明 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 ]) =
语句示例 疑难 60
On Error
疑难 34
Open
启用对文件的输入/输出
Open pathname For mode [Access access ] [lock ] As [#]filenumber [Len=reclength ]
疑难 99
Option Base Option Compare
复制一个文件
source：源文件的完整路径 destination：目标文件的完整路径
疑难 60
Exce疑难千寻千解
VBA入门与提高
附录2
VBA常用语句
语句名
语句说明
For Each...Next 对数组或集合中的每个元素循环遍历
For...Next
将一组语句重复指定的次数
Function
声明函数的名称、参数和代码。
疑难 95 疑难 95 疑难 19 疑难 101
Put #1,,sVAR
Option Explicit 强制变量声明 Print # Put Randomize ReDim Reset Resume RmDir SaveSetting 向使用Open方法打开的文件输出文本 向使用Open方法打开的文件输出二进制内容 初始化随机数字生成器 重新定义动态数组的维度、尺寸和类型 关闭使用 Open 语句打开的所有磁盘文件 重新在出错语句处执行 删除磁盘目录或文件夹。 向注册表中写入内容 设置使用 Open 语句为打开的文件中的下一次读 取/写入操作设置位置。
setting
Seek [#]filenumber , position Select Case testexpression [Case expressionlist-n [statements-n]] [Case Else [elsestatements]] End Select SendKeys string [, wait ] Set varname = expression
参数说明 name：过程或者函数名 argumentlist：函数或者过程的参数列表 path：路径。ChDir会更改当前驱动器上的默认目录或文 件夹。 drive：指定现有驱动器的字符串表达式。如果您提供零 长度字符串("")，则当前驱动器不会发生更改。如果 drive参数是多字符字符串，则ChDrive仅使用第一个字 filenumber：是任何有效的文件编号。如果省略 filenumberlist，则由 Open 语句打开的所有活动文件 都将关闭。 constname：常量名 type：数据类型 expression：常量的值 date：指定的日期表达式 varname：变量名 subscripts：下标（适用于数组变量） type：数据类型
疑难 45 疑难 93 Reset
line：行号或者行标签 path：文件夹或目录的路径 appname：程序名 section：注册表分支 key：注册表键名 setting：键值 filenumber：文件号 position：文件的位置
Resume RmDir "D:\TMP" SaveSetting "ExcelTip","Amulee", "IQ", 500
分支结构语句 根据表达式的值，有条件地执行相应的语句
condition：条件判断表达式
疑难 21
Input # Kill Let Line Input # Load Mid MkDir
从打开的顺序文件中读取数据并将此数据分配给 变量 删除硬盘上的文件 将表达式的值赋给变量或属性 将打开的磁盘文件中的整行数据读取到String类 型的变量中 装载对象并不显示 将字符串指定位置的字符替换为其他字符 新建目录或文件夹
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 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：数组类型
将打开的磁盘文件中的数据读取到变量中。用于 读取二进制方式打开的文件。 无条件转到过程内的指定行
filenumber：文件号 recnumber：读取文件的位置 varname：接受从文件读取内容的变量名称 line：行号或者行标签
Get #1,,sVAR
疑难 23
If...Then...Els e
varname
Randomize [number ] ReDim [Preserve] varname (subscripts ) [As type ] Reset Resume [0] Resume Next Resume line RmDir path SaveSetting appname , section, key,
疑难 94
Erase Error
重新初始化固定大小数组的元素并释放动态数组 存储空间。 模拟错误的发生。
arraylist：一个或多个要擦除的用逗号分隔的数组变量 Erase arr 。 errornumber：可以是任何有效的错误号。 Error 4001
Exit
退出循环、函数、过程
疑难 23
FileCopy
string
MkDir pathname
filenumber：文件号 varname：接受从文件读取内容的变量名称 filename：文件的完整路径，包括盘符、路径和文件名 。VBA中也支持适用通配符（*）和（?）进行批量的文件 varname：变量名 expression：需要赋值给变量的表达式 filenumber：文件号 varname：接受从文件读取内容的变量名称 object：需要装载的对象 stringvar：需要替换的字符串变量 start：替换字符的起始位置 length：替换字符的长度 string：用于替代的字符 pathname：路径名称
参数说明 item：集合或数组中的元素 collection：集合或者数组
语句示例
疑难 27
counter：计数器变量 start：计数器变量起始值 end：计数器变量终止值 step：计数变量的步长
疑难 23
name：函数名称 arglist：参数列表 type：函数返回值数据类型
疑难 108
Get GoTo
string：发送的键 wait：是否立即返回当前程序 varname：对象变量名 expression：需要赋值给对象变量的表达式
疑难 57 疑难 16
Exce疑难千寻千解
VBA入门与提高
附录2
VBA常Baidu Nhomakorabea语句
语句名 SetAttr Stop
语句说明 设置文件的属性信息 中断程序的执行
语法说明 SetAttr filename , attributes Stop Sub name [(arglist)] [语句] [Exit Sub] [语句] End Sub Time = time Type varname elementname [([subscripts])] As type [elementname [([subscripts])] As type] End Type Unload object With object [语句] End With Write # filenumber , [outputlist ]
设置数组下标的默认下限 设置文本的比较方式
Option Base {0|1} Option Compare {Binary | Text} Option Explicit Print # filenumber , [outputlist ] Put [#]filenumber , [recnumber ],
疑难 99 疑难 65 疑难 16 疑难 99 疑难 127 疑难 55
MkDir "D:\TMP"
Exce疑难千寻千解
VBA入门与提高
附录2
VBA常用语句
语句名 Name
语句说明 重命名磁盘文件、目录或文件夹。当原始文件名 与新文件名路径不一致时，可以实现文件的移动 并且重命名。 设定出错时的处理方式
Seek
Seek #1, RecordNumber
Select Case
分支结构语句 根据表达式的值，有条件地执行相应的语句
testexpression：测试表达式 expressionlist-n：分支情形中表达式的值
疑难 21
SendKeys Set
模拟键盘向当前活动窗口发送一个或多个键击 将表达式的值赋给对象
语句示例 疑难 12
ChDir "D:\TMP" ChDrive "D"
疑难 99
疑难 16 疑难 51 疑难 16
Do...Loop
循环语句
疑难 23
End
结束过程或块
End可以终止所有正在运行的程序
疑难 3
Enum
声明枚举类型
name：枚举名称 membername：枚举成员名称 constantexpression：枚举成员值
VBA常用语句
语句名 Call ChDir ChDrive
语句说明 语法说明 将控制权传递给 Sub 或 Function 过程。即调用 [Call] name [argumentlist] 某个函数或者过程。 更改当前目录或文件夹 更改当前驱动器。 ChDir path ChDrive drive
语法说明 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 ]) =
语句示例 疑难 60
On Error
疑难 34
Open
启用对文件的输入/输出
Open pathname For mode [Access access ] [lock ] As [#]filenumber [Len=reclength ]
疑难 99
Option Base Option Compare
复制一个文件
source：源文件的完整路径 destination：目标文件的完整路径
疑难 60
Exce疑难千寻千解
VBA入门与提高
附录2
VBA常用语句
语句名
语句说明
For Each...Next 对数组或集合中的每个元素循环遍历
For...Next
将一组语句重复指定的次数
Function
声明函数的名称、参数和代码。
疑难 95 疑难 95 疑难 19 疑难 101
Put #1,,sVAR
Option Explicit 强制变量声明 Print # Put Randomize ReDim Reset Resume RmDir SaveSetting 向使用Open方法打开的文件输出文本 向使用Open方法打开的文件输出二进制内容 初始化随机数字生成器 重新定义动态数组的维度、尺寸和类型 关闭使用 Open 语句打开的所有磁盘文件 重新在出错语句处执行 删除磁盘目录或文件夹。 向注册表中写入内容 设置使用 Open 语句为打开的文件中的下一次读 取/写入操作设置位置。
setting
Seek [#]filenumber , position Select Case testexpression [Case expressionlist-n [statements-n]] [Case Else [elsestatements]] End Select SendKeys string [, wait ] Set varname = expression
参数说明 name：过程或者函数名 argumentlist：函数或者过程的参数列表 path：路径。ChDir会更改当前驱动器上的默认目录或文 件夹。 drive：指定现有驱动器的字符串表达式。如果您提供零 长度字符串("")，则当前驱动器不会发生更改。如果 drive参数是多字符字符串，则ChDrive仅使用第一个字 filenumber：是任何有效的文件编号。如果省略 filenumberlist，则由 Open 语句打开的所有活动文件 都将关闭。 constname：常量名 type：数据类型 expression：常量的值 date：指定的日期表达式 varname：变量名 subscripts：下标（适用于数组变量） type：数据类型
疑难 45 疑难 93 Reset
line：行号或者行标签 path：文件夹或目录的路径 appname：程序名 section：注册表分支 key：注册表键名 setting：键值 filenumber：文件号 position：文件的位置
Resume RmDir "D:\TMP" SaveSetting "ExcelTip","Amulee", "IQ", 500
分支结构语句 根据表达式的值，有条件地执行相应的语句
condition：条件判断表达式
疑难 21
Input # Kill Let Line Input # Load Mid MkDir
从打开的顺序文件中读取数据并将此数据分配给 变量 删除硬盘上的文件 将表达式的值赋给变量或属性 将打开的磁盘文件中的整行数据读取到String类 型的变量中 装载对象并不显示 将字符串指定位置的字符替换为其他字符 新建目录或文件夹
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 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：数组类型
将打开的磁盘文件中的数据读取到变量中。用于 读取二进制方式打开的文件。 无条件转到过程内的指定行
filenumber：文件号 recnumber：读取文件的位置 varname：接受从文件读取内容的变量名称 line：行号或者行标签
Get #1,,sVAR
疑难 23
If...Then...Els e
varname
Randomize [number ] ReDim [Preserve] varname (subscripts ) [As type ] Reset Resume [0] Resume Next Resume line RmDir path SaveSetting appname , section, key,
疑难 94
Erase Error
重新初始化固定大小数组的元素并释放动态数组 存储空间。 模拟错误的发生。
arraylist：一个或多个要擦除的用逗号分隔的数组变量 Erase arr 。 errornumber：可以是任何有效的错误号。 Error 4001
Exit
退出循环、函数、过程
疑难 23
FileCopy
string
MkDir pathname
filenumber：文件号 varname：接受从文件读取内容的变量名称 filename：文件的完整路径，包括盘符、路径和文件名 。VBA中也支持适用通配符（*）和（?）进行批量的文件 varname：变量名 expression：需要赋值给变量的表达式 filenumber：文件号 varname：接受从文件读取内容的变量名称 object：需要装载的对象 stringvar：需要替换的字符串变量 start：替换字符的起始位置 length：替换字符的长度 string：用于替代的字符 pathname：路径名称
参数说明 item：集合或数组中的元素 collection：集合或者数组
语句示例
疑难 27
counter：计数器变量 start：计数器变量起始值 end：计数器变量终止值 step：计数变量的步长
疑难 23
name：函数名称 arglist：参数列表 type：函数返回值数据类型
疑难 108
Get GoTo
string：发送的键 wait：是否立即返回当前程序 varname：对象变量名 expression：需要赋值给对象变量的表达式
疑难 57 疑难 16
Exce疑难千寻千解
VBA入门与提高
附录2
VBA常Baidu Nhomakorabea语句
语句名 SetAttr Stop
语句说明 设置文件的属性信息 中断程序的执行
语法说明 SetAttr filename , attributes Stop Sub name [(arglist)] [语句] [Exit Sub] [语句] End Sub Time = time Type varname elementname [([subscripts])] As type [elementname [([subscripts])] As type] End Type Unload object With object [语句] End With Write # filenumber , [outputlist ]
设置数组下标的默认下限 设置文本的比较方式
Option Base {0|1} Option Compare {Binary | Text} Option Explicit Print # filenumber , [outputlist ] Put [#]filenumber , [recnumber ],
疑难 99 疑难 65 疑难 16 疑难 99 疑难 127 疑难 55
MkDir "D:\TMP"
Exce疑难千寻千解
VBA入门与提高
附录2
VBA常用语句
语句名 Name
语句说明 重命名磁盘文件、目录或文件夹。当原始文件名 与新文件名路径不一致时，可以实现文件的移动 并且重命名。 设定出错时的处理方式
Seek
Seek #1, RecordNumber
Select Case
分支结构语句 根据表达式的值，有条件地执行相应的语句
testexpression：测试表达式 expressionlist-n：分支情形中表达式的值
疑难 21
SendKeys Set
模拟键盘向当前活动窗口发送一个或多个键击 将表达式的值赋给对象
语句示例 疑难 12
ChDir "D:\TMP" ChDrive "D"
疑难 99
疑难 16 疑难 51 疑难 16
Do...Loop
循环语句
疑难 23
End
结束过程或块
End可以终止所有正在运行的程序
疑难 3
Enum
声明枚举类型
name：枚举名称 membername：枚举成员名称 constantexpression：枚举成员值