admin 管理员组文章数量: 1086019
2024年4月27日发(作者:java获取referer)
附录2VBA常用语句
语句名
Call
ChDir
ChDrive
语句说明语法说明
将控制权传递给 Sub 或 Function 过程。即调用
[Call] name [argumentlist]
某个函数或者过程。
更改当前目录或文件夹
更改当前驱动器。
ChDir
path
ChDrive
drive
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会更改当前驱动器上的默认目录或文
ChDir "D:TMP"
件夹。
drive:指定现有驱动器的字符串表达式。如果您提供零
ChDrive "D"
长度字符串(""),则当前驱动器不会发生更改。如果
drive参数是多字符字符串,则ChDrive仅使用第一个字
母。
filenumber:是任何有效的文件编号。如果省略
filenumberlist,则由 Open 语句打开的所有活动文件
都将关闭。
constname:常量名
type:数据类型
expression:常量的值
date:指定的日期表达式
varname:变量名
subscripts:下标(适用于数组变量)
type:数据类型
Do...Loop循环语句
End结束过程或块End可以终止所有正在运行的程序
Enum声明枚举类型
name:枚举名称
membername:枚举成员名称
constantexpression:枚举成员值
arraylist:一个或多个要擦除的用逗号分隔的数组变量
Erase arr
。
errornumber:可以是任何有效的错误号。Error 4001
Erase
Error
重新初始化固定大小数组的元素并释放动态数组
存储空间。
模拟错误的发生。
Exit退出循环、函数、过程
FileCopy复制一个文件
source:源文件的完整路径
destination:目标文件的完整路径
Exce疑难千寻千解VBA入门与提高
附录2VBA常用语句
语句名语句说明
Next对数组或集合中的每个元素循环遍历
Next将一组语句重复指定的次数
Function声明函数的名称、参数和代码。
语法说明
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
]) =
参数说明
item:集合或数组中的元素
collection:集合或者数组
语句示例
counter:计数器变量
start:计数器变量起始值
end:计数器变量终止值
step:计数变量的步长
name:函数名称
arglist:参数列表
type:函数返回值数据类型
Get
GoTo
将打开的磁盘文件中的数据读取到变量中。用于
读取二进制方式打开的文件。
无条件转到过程内的指定行
filenumber:文件号
recnumber:读取文件的位置
varname:接受从文件读取内容的变量名称
line:行号或者行标签
Get #1,,sVAR
If...Els
e
分支结构语句
根据表达式的值,有条件地执行相应的语句
condition:条件判断表达式
Input #
Kill
Let
Line Input #
Load
Mid
MkDir
Name
从打开的顺序文件中读取数据并将此数据分配给
变量
删除硬盘上的文件
将表达式的值赋给变量或属性
将打开的磁盘文件中的整行数据读取到String类
型的变量中
装载对象并不显示
将字符串指定位置的字符替换为其他字符
新建目录或文件夹
重命名磁盘文件、目录或文件夹。当原始文件名
与新文件名路径不一致时,可以实现文件的移动
并且重命名。
string
MkDir pathname
Name
oldname
As newname
filenumber:文件号
varname:接受从文件读取内容的变量名称
filename:文件的完整路径,包括盘符、路径和文件名
。VBA中也支持适用通配符(*)和(?)进行批量的文件
varname:变量名
expression:需要赋值给变量的表达式
filenumber:文件号
varname:接受从文件读取内容的变量名称
object:需要装载的对象
stringvar:需要替换的字符串变量
start:替换字符的起始位置
length:替换字符的长度
string:用于替代的字符
MkDir "D:TMP"
pathname:路径名称
oldname:旧的文件名
newname:新的文件名
Exce疑难千寻千解VBA入门与提高
附录2VBA常用语句
语句名
On Error
语句说明
设定出错时的处理方式
语法说明
On Error GoTo line
On Error Resume Next
On Error GoTo 0
参数说明
line:行号或者行标签
pathname:文件名称
mode:打开方式。可以为Append、Binary、Input、
Output 或 Random
access:访问的方式。可以为Read、Write 或 Read
Write
lock:组织其他程序打开操作文件,可以为Shared、
Lock Read、Lock Write 和 Lock Read Write
filenumber:空闲的文件号
reclength:打开文件的指定位置
设置Dim和Redim语句声明数组下标的默认下限
Binary:二进制比较方式(区分大小写)
Text:文本比较方式(不区分大小写)
filenumber:文件号
outputlist:输出的文本内容。多个内容可以用逗号隔
filenumber:文件号
recnumber:文件的位置
varname:需要输出的内容
number:种子
varname:数组变量
subscipt:数组的下标
type:数组类型
语句示例
Open启用对文件的输入/输出
Open
pathname
For
mode
[Access
access
] [
lock
] As [#]
filenumber
[Len=
reclength
]
Option Base
Option Compare
设置数组下标的默认下限
设置文本的比较方式
Option Base {0|1}
Option Compare {Binary | Text}
Option Explicit
Print #
filenumber
, [
outputlist
]
Put [#]
filenumber
, [
recnumber
],
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,
Put #1,,sVAR
Reset
line:行号或者行标签
path:文件夹或目录的路径
appname:程序名
section:注册表分支
key:注册表键名
setting:键值
filenumber:文件号
position:文件的位置
Resume
RmDir "D:TMP"
SaveSetting "ExcelTip","Amulee", "IQ", 500
setting
Seek [#]
filenumber
,
position
Select Case testexpression
[Case expressionlist-n
[statements-n]]
[Case Else
[elsestatements]]
End Select
SendKeys
string
[,
wait
]
Set
varname
=
expression
SetAttr
filename
,
attributes
Stop
Seek
Seek #1, RecordNumber
Select Case
分支结构语句
根据表达式的值,有条件地执行相应的语句
testexpression:测试表达式
expressionlist-n:分支情形中表达式的值
SendKeys
Set
SetAttr
Stop
模拟键盘向当前活动窗口发送一个或多个键击
将表达式的值赋给对象
设置文件的属性信息
中断程序的执行
string:发送的键
wait:是否立即返回当前程序
varname:对象变量名
expression:需要赋值给对象变量的表达式
filename:文件的完整路径,包括盘符、路径和文件名
。
SetAttr "TESTFILE", vbHidden + vbReadOnly
Stop
Exce疑难千寻千解VBA入门与提高
附录2VBA常用语句
语句名语句说明
Sub声明一个过程名称、参数
Time设置当前系统时间
在模块级别上定义包含一个或多个元素的用户定
义的数据类型
将装载的对象从内存中删除
对单个对象或用户定义类型执行一系列语句。
将数据写入到顺序文件中。与Print类似。
Type
Unload
With
Write #
语法说明
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
]
参数说明
name:过程名称
arglist:参数列表
time:指定的时间表达式
varname:自定义类型名称
elementname:元素名称
subscript:数组下标
type:数据类型
object:需要卸载的对象
object:对象或者自定义类型的变量
filenumber:文件号
outputlist:输出的文本内容。多个内容可以用逗号隔
语句示例
Type Person
FirstName As String
LastName As String
End Type
Dim ClassMates(1 To 100) As Person
Exce疑难千寻千解VBA入门与提高
版权声明:本文标题:excel VBA常用语句 内容由网友自发贡献,该文观点仅代表作者本人, 转载请联系作者并注明出处:http://www.roclinux.cn/p/1714211919a670044.html, 本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容,一经查实,本站将立刻删除。
发表评论