Excel VBA.docVIP

Excel VBA（宏）精简（四） Excel VBA高级使用 通过以上章节的学习,估计大家都够能使用 Excel VBA进行基本的数据计算,数据汇总,数据的保存, 数据库的使用和绘制图表了,这些功能已经可以解决我们平时所遇到的大多数问题.但有时还会遇到一些 较难的问题,如计算机硬件或底层方面的使用.这些问题可以使用本章介绍的Windows API来解决. Windows API是Windows的 32位应用程序编程接口,是一系列复杂函数,消息和结构的集合.这种集合被包含在一个后缀名为 DLL的动态连接库文件中,装有Windows系统的电脑都有标准的Windows动 态连接库文件.编程人员可用不同编程语言的引用方法来使用它们,进而编制出解决 Windows系统底层问 题的应用程序.Excel VBA中使用 API可以让我们轻松实现一些高级功能,比如多媒体播放等,所以有必 要了解一些 API在 Excel VBA中的使用.一般来讲,只有会了Windows API才算真正进入了Windows系 统下程序开发的大门. 第一节 Win API的使用 Windows API 是英文Application Programming Interface的缩写,Win32 API也就是微软Windows 32位 操作系统的应用程序编程接口.我们可以认为 API函数是构筑整个Windows框架的基石,在它的下面是 Windows的操作系统核心,而它上面则是Windows的应用程序.在 Excel VBA中使用 API就是为了开发 出实用高效的应用程序,而 VBA下使用 API函数需进行API函数的堀明才能使用. 一.堀明API函数 堀明VBA所在文件之外的过程或函数就能够访问 Windows API或其它外部动态连接库( DLL).在堀 明了过程或函数后,其调用方法与 VBA自己的过程或函数调用方法相同.要堀明一个 DLL文件中的过程或函数,需要在代码窗口增加一个 Declare语句.例如取的计算机名0的函数 GetComputerName ,作如 下堀明: Private Declare Function GetComputerName Lib kernel 32 Alias GetComputerNameA (ByVal lpBuffer As String, nSize As Long) As Long 或 Public Declare Function GetComputerName Lib kernel 32 Alias GetComputerNameA (ByVal lpBuffer As String, nSize As Long) As Long 以上堀明的不同在于所堀明函数的使用范围, Private Declare堀明的是模块私有,只能在堀明它的模 块内调用; Public Declare堀明的是全局函数,可以在应用程序的任何地方调用,一般我们使用 Public Declare 堀明.堀明完毕后就能在程序中使用此函数. 二,使用 API函数或过程 以 API函数 Beep来说明 API函数的几种使用方法, Beep函数的介绍如下: 【 VBA堀明】 Public Declare Function Beep Lib kernel32 Alias Beep (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long 【说明】 用于生成简单的堀音 【返回值】 Long,非零表示成功,否则返回零. 【参数表】 dwFreq Long,堀音频率(从 37Hz到32767Hz). dwDuration Long,堀音的持续时间,以毫秒为单位.如为 -1,表示一直播放堀音,直到再次调用 该函数为止. 可采用以下几种方式使用API函数或过程,以Beep为例: (1)忽略函数返回值的调用: Beep 1000, 5000注意此时函数的参数是不加括号的. (2)Call方法调用: Call Beep(1000, 5000)注意这里需要加上括号,但我们不取回函数的返回值. (3)取得函数返回值的调用: MyLng = Beep(1000, 5000) 此时需要加上括号,而且我们必须事先定义一个变量(变量的类型与函数返回值类型相同)来存储API函数的返回值. 三,堀明的一些说明 (1)堀明中的Lib和Alias是怎么回事 一般情况下Win32 API函数总是包含在Windows系统自带的或是其它公司提供的动态连接库 DLL中, 而 Declare语句中的关键字Lib就是用来指定 DLL(动态连接库