在VBA中使用API函数培训教材1.doc

在VBA中使用API函数的教程1VBA标识符一定义标识符是一种标识变量、常量、过程、函数、类等语言构成单位的符号，利用它可以完成对变量、常量、过程、函数、类等的引用。二命名规则1） 字母打头，由字母、数字和下划线组成，如 A987b_23Abc2） 字符长度小于40，（Excel2002以上中文版等，可以用汉字且长度可达254个字符）3） 不能与VB保留字重名，如public, private, dim, goto, next, with, integer, single等定义：运算符是代表VB某种运算功能的符号。1）赋值运算符 =2）数学运算符 &、+ (字符连接符)、+(加)、-（减）、Mod（取余）、（整除）、*（乘）、/（除）、-（负号）、（指数）3）逻辑运算符Not（非）、And（与）、Or(或)、Xor(异或)、Eqv(相等)、Imp(隐含)4）关系运算符 = （相同）、（不等）、（大于）、=（不小于）、B And C250 Then x=x-100 或者，可以使用块形式的语法：If condition ThenstatementsElseIf condition-n Thenelseifstatements .ElseelsestatementsEnd If如1:If Number 10 Then Digits = 1ElseIf Number 0 then Gosub Routine1 ：Debug.print num：Exit subRoutine1:Num=num/5 ReturnEnd sub4) whilewend语句，只要条件为TRUE，循环就执行，这是以前VB老语法保留下来的，如下例：while conditionwhile I50statements I=I+1wend Wend二错误语句处理执行阶段有时会有错误的情况发生，利用On Error语句来处理错误，启动一个错误的处理程序。语法如下：On Error Goto Line 当错误发生时，会立刻转移到line行去On Error Resume Next 当错误发生时，会立刻转移到发生错误的下一行去On Erro Goto 0 当错误发生时，会立刻停止过程中任何错误处理过程第十一节 过程和函数过程是构成程序的一个模块，往往用来完成一个相对独立的功能。过程可以使程序更清晰、更具结构性。VBA具有四种过程：Sub 过程、Function函数、Property属性过程和Event事件过程。一Sub过程Sub 过程的参数有两种传递方式：按值传递(ByVal)和按地址传递(ByRef)。如下例：Sub password (ByVal x as integer, ByRef y as integer)If y=100 then y=x+y else y=x-yx=x+100End subSub call_password ()Dim x1 as integerDim y1 as integerx1=12y1=100Call password (x1,y1) 调用过程方式：1. Call 过程名(参数1, 参数2) ; 2. 过程名参数1, 参数2debug.print x1,y1 结果是12、112，y1按地址传递改变了值，而x1按值传递，未改变原值End sub二Function函数函数实际是实现一种映射，它通过一定的映射规则，完成运算并返回结果。参数传递也两种：按值传递(ByVal)和按地址传递(ByRef)。如下例：Function password(ByVal x as integer, byref y as integer) as booleanIf y=100 then y=x+y else y=x-yx=x+100if y=150 then password=true else password=falseEnd FunctionSub call_password ()Dim x1 as integerDim y1 as integerx1=12y1=100if password then 调用函数：1. 作为一个表达式放在=右端 ; 2. 作为参数使用debug.print x1 end ifEnd sub三Property属性过程和Event事件过程这是VB在对象功能上添加的两个过程，与对象特征密切相关，也是VBA比较重要组成，技术比较复杂，可以参考相关书籍。在VBA程序语言中有许多内置函数，可以帮助程序代码设计和减少代码的编写工作。一测试函数IsNumeric(x) 是否为数字, 返回Boolean结果，True or FalseIsDate(x) 是否是日期, 返回Boolean结果，True or FalseIsEmpty（x） 是否为Empty, 返回Boolean结果，True or FalseIsArray(x) 指出变量是否为一个数组。IsError(expression)指出表达式是否为一个错误值IsNull(expression)指出表达式是否不包含任何有效数据 (Null)。IsObject(identifier)指出标识符是否表示对象变量二vba数学函数Sin(X)、Cos(X)、Tan(X)、Atan(x) 三角函数，单位为弧度Log(x) 返回x的自然对数Exp(x)返回 exAbs(x) 返回绝对值Int(number)、Fix(number) 都返回参数的整数部分，区别：Int 将 -8.4 转换成 -9，而 Fix 将-8.4 转换成 -8Sgn(number) 返回一个 Variant (Integer)，指出参数的正负号Sqr(number) 返回一个 Double，指定参数的平方根VarType(varname) 返回一个 Integer，指出变量的子类型Rnd（x）返回0-1之间的单精度数据，x为随机种子vba字符串函数列表Trim(string) 去掉string左右两端空白Ltrim(string) 去掉string左端空白Rtrim(string) 去掉string右端空白Len(string) 计算string长度Left(string, x) 取string左段x个字符组成的字符串Right(string, x) 取string右段x个字符组成的字符串Mid(string, start,x) 取string从start位开始的x个字符组成的字符串Ucase(string) 转换为大写Lcase(string) 转换为小写Space(x) 返回x个空白的字符串Asc(string) 返回一个 integer，代表字符串中首字母的字符代码Chr(charcode)返回 string,其中包含有与指定的字符代码相关的字符四VBA转换函数列表CBool(expression)转换为Boolean型CByte(expression) 转换为Byte型CCur(expression) 转换为Currency型CDate(expression) 转换为Date型CDbl(expression) 转换为Double型CDec(expression) 转换为Decemal型CInt(expression) 转换为Integer型CLng(expression) 转换为Long型CSng(expression) 转换为Single型CStr(expression) 转换为String型CVar(expression) 转换为Variant型Val(string)转换为数据型Str(number)转换为String五VBA时间函数Now 返回一个 Variant (Date)，根据计算机系统设置的日期和时间来指定日期和时间。Date 返回包含系统日期的 Variant (Date)。Time 返回一个指明当前系统时间的 Variant (Date)。Timer 返回一个 Single，代表从午夜开始到现在经过的秒数。TimeSerial(hour, minute, second) 返回一个 Variant (Date)，包含具有具体时、分、秒的时间。DateDiff(interval, date1, date2, firstdayofweek, firstweekofyear) 返回 Variant (Long) 的值，表示两个指定日期间的时间间隔数目Second(time) 返回一个 Variant (Integer)，其值为 0 到 59 之间的整数，表示一分钟之中的某个秒Minute(time) 返回一个 Variant (Integer)，其值为 0 到 59 之间的整数，表示一小时中的某分钟Hour(time) 返回一个 Variant (Integer)，其值为 0 到 23 之间的整数，表示一天之中的某一钟点Day(date) 返回一个 Variant (Integer)，其值为 1 到 31 之间的整数，表示一个月中的某一日Month(date) 返回一个 Variant (Integer)，其值为 1 到 12 之间的整数，表示一年中的某月Year(date) 返回 Variant (Integer)，包含表示年份的整数。Weekday(date, firstdayofweek) 返回一个 Variant (Integer)，包含一个整数，代表某个日期是星期几VBA获取文件列表Dir(pathname, attributes) ；pathname 可选参数，用来指定文件名的字符串表达式，可能包含目录或文件夹、以及驱动器。如果没有找到 pathname，则会返回零长度字符串 (); attributes 可选参数。常数或数值表达式，其总和用来指定文件属性。如果省略，则会返回匹配 pathname 但不包含属性的文件。VBA删除文件Kill pathname 从磁盘中删除文件, pathname 参数是用来指定一个文件名RmDir pathname从磁盘中删除删除目录，pathname 参数是用来指定一个文件夹用VBA打开文件Open pathname For mode Access access lock As #filenumber Len=reclength 能够对文件输入/输出 (I/O)。pathname 必要。字符串表达式，指定文件名，该文件名可能还包括目录、文件夹及驱动器。 mode 必要。关键字，指定文件方式，有 Append、Binary、Input、Output、或 Random 方式。如果未指定方式，则以 Random 访问方式打开文件。 access 可选。关键字，说明打开的文件可以进行的操作，有 Read、Write、或 Read Write 操作。 lock 可选。关键字，说明限定于其它进程打开的文件的操作，有 Shared、Lock Read、Lock Write、和 Lock Read Write 操作。 filenumber 必要。一个有效的文件号，范围在 1 到 511 之间。使用 FreeFile 函数可得到下一个可用的文件号。 reclength 可选。小于或等于 32，767（字节）的一个数。对于用随机访问方式打开的文件，该值就是记录长度。对于顺序文件，该值就是缓冲字符数。说明 对文件做任何 I/O 操作之前都必须先打开文件。Open 语句分配一个缓冲区供文件进行 I/O 之用，并决定缓冲区所使用的访问方式。如果 pathname 指定的文件不存在，那么，在用 Append、Binary、Output、或 Random 方式打开文件时，可以建立这一文件。如果文件已由其它进程打开，而且不允许指定的访问类型，则 Open 操作失败，而且会有错误发生。如果 mode 是 Binary 方式，则 Len 子句会被忽略掉。重要 在 Binary、Input 和 Random 方式下可以用不同的文件号打开同一文件，而不必先将该文件关闭。在 Append 和 Output 方式下，如果要用不同的文件号打开同一文件，则必须在打开文件之前先关闭该文件。VBA读入文件Input #filenumber, varlist 从已打开的顺序文件中读出数据并将数据指定给变量Get #filenumber, recnumber, varname将一个已打开的磁盘文件读入一个变量之中。写入文件Write #filenumber, outputlist 将数据写入顺序文件Print #filenumber, outputlist 将格式化显示的数据写入顺序文件中Put #filenumber, recnumber, varname 将一个变量的数据写入磁盘文件中。VBA关闭文件Close filenumberlist 关闭 Open 语句所打开的输入/输出 (I/O) 文件注意 如果今后想用 Input # 语句读出文件的数据，就要用 Write # 语句而不用 Print # 语句将数据写入文件。因为在使用 Write # 时，将数据域分界就可确保每个数据域的完整性，因此可用 Input # 再将数据读出来。使用 Write # 还能确保任何地区的数据都被正确读出。Write 与 Print # 语句不同，当要将数据写入文件时，Write # 语句会在项目和用来标记字符串的引号之间插入逗号。Write # 语句在将 outputlist 中的最后一个字符写入文件后会插入一个新行字符，即回车换行符，(Chr(13) + Chr(10)。1.1 VBA是什么直到90年代早期,使应用程序自动化还是充满挑战性的领域.对每个需要自动化的应用程序,人们不得不学习一种不同的自动化语言.例如:可以用EXCEL的宏语言来使EXCEL自动化,使用WORD BASIC使WORD自动化,等等.微软决定让它开发出来的应用程序共享一种通用的自动化语言-Visual Basic For Application(VBA),可以认为VBA是非常流行的应用程序开发语言VASUAL BASIC 的子集.实际上VBA是寄生于VB应用程序的版本.VBA和VB的区别包括如下几个方面: 1. VB是设计用于创建标准的应用程序,而VBA是使已有的应用程序(EXCEL等)自动化2. VB具有自己的开发环境,而VBA必须寄生于已有的应用程序.3. 要运行VB开发的应用程序,用户不必安装VB,因为VB开发出的应用程序是可执行文件(*.EXE),而VBA开发的程序必须依赖于它的父应用程序,例如EXCEL. 尽管存在这些不同,VBA和VB在结构上仍然十分相似.事实上,如果你已经了解了VB,会发现学习VBA非常快.相应的,学完VBA会给学习VB打下坚实的基础.而且,当学会在EXCEL中用VBA创建解决方案后,即已具备在WORD ACCESS OUTLOOK FOXPRO PROWERPOINT 中用VBA创建解决方案的大部分知识.* VBA一个关键特征是你所学的知识在微软的一些产品中可以相互转化.* VBA可以称作EXCEL的遥控器.VBA究竟是什么?更确切地讲,它是一种自动化语言,它可以使常用的程序自动化,可以创建自定义的解决方案. 此外,如果你愿意,还可以将EXCEL用做开发平台实现应用程序.EXCEL环境中基于应用程序自动化的优点也许你想知道VBA可以干什么?使用VBA可以实现的功能包括: 1. 使重复的任务自动化.2. 自定义EXCEL工具栏,菜单和界面.3. 简化模板的使用.4. 自定义EXCEL,使其成为开发平台.5. 创建报表.6. 对数据进行复杂的操作和分析.用EXCEL作为开发平台有如下原因: 1. EXCEL本身功能强大,包括打印,文件处理,格式化和文本编辑.2. EXCEL内置大量函数.3. EXCEL界面熟悉.4. 可连接到多种数据库.用其他语言开发应用程序,一半的工作是编写一些基本功能的模块,包括文件的打开和保存,打印,复制等.而用EXCEL作为开发平台,则由于EXCEL已经具备这些基本功能,你要做的只是使用它.录制简单的宏在介绍学习VBA之前，应该花几分钟录制一个宏。新术语：宏，指一系列EXCEL能够执行的VBA语句。 以下将要录制的宏非常简单，只是改变单元格颜色。请完成如下步骤： 1)打开新工作簿，确认其他工作簿已经关闭。2)选择A1单元格。调出常用工具栏。3)选择工具-宏-录制新宏。4)输入改变颜色作为宏名替换默认宏名，单击确定,注意，此时状态栏中显示录制，特别是停止录制工具栏也显示出来。替换默认宏名主要是便于分别这些宏。 宏名最多可为255个字符，并且必须以字母开始。其中可用的字符包括：字母、数字和下划线。宏名中不允许出现空格。通常用下划线代表空格。5)选择格式的单元格，选择图案选项中的红色,单击确定。6)单击停止录制工具栏按钮，结束宏录制过程。 如果停止录制工具栏开始并未出现，请选择工具-宏-停止录制。录制完一个宏后就可以执行它了。学习执行宏当执行一个宏时，EXCEL按照宏语句执行的情况就像VBA代码在对EXCEL进行遥控。但VBA的遥控不仅能使操作变得简便，还能使你获得一些使用EXCEL标准命令所无法实现的功能。而且，一旦熟悉了EXCEL的遥控，你都会奇怪自己在没有这些遥控的情况下，到底是怎么熬过来的。要执行刚才录制的宏，可以按以下步骤进行： 1）选择任何一个单元格，比如A3。2）选择工具-宏-宏，显示宏对话框。3）选择改变颜色，选择执行，则A3单元格的颜色变为红色。试着选择其它单元格和几个单元格组成的区域，然后再执行宏，以便加深印象。1.5 查看录制的代码到底是什么在控制EXCEL的运行呢?你可能有些疑惑.好,让我们看看VBA的语句吧. 1）选择工具-宏-宏，显示宏对话框。2）单击列表中的改变颜色,选择编辑按钮。 此时，会打开VBA的编辑器窗口（VBE）。关于该编辑器，以后再详细说明，先将注意力集中到显示的代码上。代码如下：（日期和姓名会有不同）Sub 改变颜色() 改变颜色 Macro xw 记录的宏 2000-6-10With Selection.Interior.ColorIndex = 3.Pattern = xlSolid.PatternColorIndex = xlAutomaticEnd WithEnd Sub将来会十分熟悉这种代码，虽然现在它们看上去像一种奇怪的外语。学习VBA或编程语言在某种程度上比较像在学习一种外语。Sub 改变颜色():这是宏的名称。中间的以 开头的五行称为注释，它在录制宏时自动产生。以With 开头到End With 结束的结构是With结构语句，这段语句是宏的主要部分。注意单词selection，它代表突出显示的区域（即：选定区域）。With Selection.Interior ：它读作选择区域的的内部.这整段语句设置该区域内部的一些属性。其中：.ColorIndex = 3: 将该内部设为红色。注意：有一小圆点，它的作用在于简化语句，小圆点代替出现在With后的词,它是With结构的一部分。另外：红色被数字化为3.(红色警戒是否可称作：3号警戒，嗯？)有兴趣的话，你将3改为其他数字试试看。.Pattern = xlSolid：设置该区域的内部图案。由于是录制宏，所以，虽然你并未设置这一项，宏仍然将其记录下来(因为在图案选项中有此一项，只是你为曾设置而已）。xlSolid表示纯色。.PatternColorIndex = xlAutomatic：表示内部图案底纹颜色为自动配色。End With:结束With 语句。End Sub:整个宏的结束语1.6 编辑录制的代码 在上一节，我们录制了一个宏并查看了代码，代码中有两句实际上并不起作用。哪两句？现在，在宏中作一个修改，删除多余行，直到和下面代码相同：Sub 改变颜色() 改变颜色 Macro xw 记录的宏 2000-6-10With Selection.Interior.ColorIndex = 3End WithEnd Sub 完成后，在工作表中试验一下。你会发现结果和修改前的状况一样。在With 语句前加入一行:Range(A5).Select试着运行该宏,则无论开始选择哪个单元格,宏运行结果都是使A5单元格变红. 现在可以看到，编辑录制的宏同样非常简单。需要编辑宏是因为以下三个方面的原因。一：在录制中出错而不得不修改。二：录制的宏中有多余的语句需要删除，提高宏的运行速度。三：希望增加宏的功能。比如：加入判断或循环等无法录制的语句。录制宏的局限性希望自动化的许多EXCEL过程大多都可以用录制宏来完成.但是宏记录器存在以下局限性.通过宏记录器无法完成的工作有: 1)录制的宏无判断或循环能力.2)人机交互能力差,即用户无法进行输入,计算机无法给出提示.3)无法显示EXCEL对话框.4)无法显示自定义窗体为宏指定快捷键你也许希望为经常使用的宏指定快捷键。快捷键是指键的组合，当其按下时执行一条命令。例如：CTRL+C 在许多程序中代表复制命令。当给宏指定了快捷键后，就可以用快捷键来执行宏，而不必通过工具菜单。 注意：当包含宏的工作簿打开时间，为宏指定快捷键会覆盖EXCEL默认的快捷键。例如：把CTRL+C指定给某个宏，那么CTRL+C就不再执行复制命令。用以下方法可以打印出EXCEL的快捷键清单（用A4纸打印共有24页之多）： 1）打开EXCEL帮助文件并选择目录选项。2）从使用快捷键文件夹中选择快捷键标题。3）右击该标题，从快捷菜单中选择打印。4）选择打印所选标题和所有子主题，单击确定。可以在创建宏时指定快捷键，也可以在创建后再指定。要在创建（录制）宏时指定快捷键，只须在录制宏时在输入宏名后，在快捷键文本框中输入相应的键。录制宏后指定快捷键也很简单，只需选择工具宏，显示宏对话框，选择要指定快捷键的宏，再单击选项按钮，通过选项对话框进行设置。决定宏保存的位置宏可保存在三种可能的位置： 1）当前工作簿。（只有该工作簿打开时，该宏才可用。）2）新工作簿。3）个人宏工作簿。个人宏工作簿详解个人宏工作簿，是为宏而设计的一种特殊的具有自动隐藏特性的工作簿。第一次将宏创建到个人宏工作簿时，会创建名为PERSONAL.XLS的新文件。如果该文件存在，则每当EXCEL启动时会自动将此文件打开并隐藏在活动工作簿后面（在窗口菜单中选择取消隐藏后，可以很方便地发现它的存在。）如果你要让某个宏在多个工作簿都能使用，那么就应当创建个人宏工作簿，并将宏保存于其中。个人宏工作簿保存在XLSTART文件夹中。具体路径为：C:WINDOWSProfilesApplication DataMicrosoftExcelXLSTART。可以以单词XLSTART查询。 注意：如果存在个人宏工作簿，则每当EXCEL启动时会自动将此文件打开并隐藏。因为它存放在XLSTART文件夹内。保存宏到个人宏工作簿本练习,将保存一个简单的宏到个人宏工作簿,该宏为文本加下划线并改为斜体,步骤如下: 1)建立一个名为HOUR2的工作簿，选择工具-宏-录制新宏,显示录制新宏对话框.2)输入格式化文本作为宏名.3)从保存在下拉框中选择个人宏工作簿.4)单击确定按钮.现在进入录制模式.5)单击斜体工具栏按钮.一段时间内,鼠标出现沙漏,特别是在第一次创建个人宏工作簿时,因为EXCEL在创建该工作簿.6)单击下划线按钮.7)停止录制.使用并编辑个人宏工作簿中的宏刚才已经保存了一个宏到个人宏工作簿,现在可以在任何工作簿中使用该宏.可按如下步骤操作: 1)关闭所有EXCEL工作簿.2)任意打开一个EXCEL文件.(EXCEL自动将个人宏工作簿同时打开并隐藏.)3)在A3中输入你的名字.4)选择工具-宏,显示宏对话框.现在可以在宏列表中看到格式化文本这个宏. 5)选择格式化文本宏,并执行.现在A3单元格中,你的名字变为斜体字还带有下划线.选择窗口-取消隐藏,可以将PERSONAL.XLS显示出来,其中没有任何文字,但通过VBA编辑器可以在其中的模块中找到格式化文本这个宏.在VBA编辑器中可以对该宏进行直接编辑或者删除.如果PERSONAL.XLS中一个宏都没有,在启动EXCEL时仍会打开PERSONAL.XLS,这也许是EXCEL存在的一个小毛病.将宏指定给按钮即