VBA API详解

Office版本变动

 在office2010以前微软只提供了32-bit版本,但在2010以后出现了32-bit和64-bit两个版本的office。后者能处理更大的数据和VBA代码运行速度得到提升。代码的兼容性也变得复杂,特别是API的声明。
 Office 2010以后有两个版本的office。64位的Excel能处理更大的数据,性能也得到提升。随着64位的引入同时也引入了新版的VBA即VBA 7。它能同时在两个版本运行。在安装office2010时,默认的安装版本是32位的,如果需要64位版本需手动选择。
 在VBA 7中,必须重新声明以前版本的API才能在64位中运行。必须更新语句中使用的地址指针和窗口句柄的声明。

Windows系统版本

 64位的offic能引用更大的内存地址空间,比以往使用更多的物理内存。除了引用应用程序用于存储数据或存储代码指令(指针)外,还可以用地址来引用显示的窗口句柄。根据使用是32位或64位系统来决定指针或句柄的大小(以字节位单位)。

运行64位的Office时,将面临两个基本问题:

  • 在office中的本机64位进程不能加载32位二进制文件。当使用 ActiveX控件和现有插件时,将不兼容。
  • VBA 7以前没有提供指针数据类型,如果开发人员使用32位变量来存储指针或句柄时,使用Declare定义的API返回的64位的值时部分值被丢弃。

VBA7 代码变化

 VBA7 是一个新的代码库,它取代了早期的VBA版本,它适用于32位和64位的Office。它提供了两个条件编译常数:VBA7和Win64。

VBA7常数:
 判断应用程序是否使用VBA7或者以前版本的VBA,确保代码的向后兼容性。

Win64常数:
 判断代码是32位或64位的形式运行。

ActiveX Control 和 COM Add-in兼容性

 现有的32位ActiveX控件(包括第三方和微软提供的)与64位版本的Office不兼容。对于ActiveX控件和Com对象,有三种可能的解决方法:

  • 如果有源代码,可以生成64位版本。
  • 联系供应商更新。
  • 寻找其它解决方案。

 Office中本机64位进程不能加载32位二进制文件。包括MSComCtl通用控件(TabStrip, Toolbar, StatusBar, ProgressBar, TreeView, ListViews, ImageList, Slider, ImageComboBox)和MSComCt2控件(Animation, UpDown, MonthView, DateTimePicker, FlatScrollBar),这些控件由以前Office或现在32位office安装,当迁移到64位Office中时,必须替换现有的控件。64位Office不提供64位通用的控件。

Windows API接口兼容性

 VBA类型库提供了许多功能,但是有时候必须直接与计算机的操作系统和其它组件通信时,例如管理内存和进程时或使用用户界面时或修改注册表时,在这些使用场景,最好的选择是嵌入动态链接库(DLL)的到出函数。在VBA中使用Delcare语句导入Dll函数。

Delare语句语法结构如下,看是否有返回类型:

Public/Private Declare Sub SubName Lib "LibName" Alias "AliasName" (argument list)

Public/Private Declare Function FunctionName Lib "Libname" alias "aliasname"(argument list) As Type


 SubName函数或FunctionName函数替换DLL中的导出函数名,如果要确定调用ASCII或Unicode版本的API,可以指定别名(AliasName),Lib后面紧跟到入函数所在的Dll名称。参数列表必须包含传递给DLL中的导出函数一致。
 下面的API函数在Windows注册表中打开一个子健并替换它的值。

Declare Function RegOpenKeyA Lib "advapi32.dll" (ByVal Key As Long, ByVal SubKey As String, NewKey As Long) As Long

 该函数在Windows API 动态链接库 Advapi32.dll中,其函数名称为RegOpenKeyW。其原型定义如下:

LSTATUS RegOpenKeyW(HKEY    hKey,LPCWSTR lpSubKey,PHKEY   phkResult);

 在C和C++中,该API可以针对32和64位进行编译。这是因为HKEY被定义为一个指针,它能正确反映编译代码所在平台的内存大小。
 在早期的VBA版本中,没有特定的指针数据类型,所以使用Long数据类型,而且Long类型是32位的,它在64位内存中的系统上使用时,这种情况就被中断,因为32位可能会被截断或覆盖其他内存地址。这些情况可能会导致不可预测的行为或系统奔溃。
 为了解决这个问题,VBA现在包含了一个真正的指针数据类型LongPtr。这个新的数据类型可以正确的编写API导入语句。

Declare PtrSafe Function RegOpenKeyW Lib "advapi32.dll" (ByVal hKey as LongPtr,ByVal lpSubKey as string,Byval phkResult as LongPtr) as Long

 LongPtr数据类型和PtrSafe特性可以在32位和64位系统上正确声明API导入函数。PtrSafe特性向VBA编译器表明声明语句是真的64位Office的。如果没有这个特性在64位系统中Delcare语句将导致编译错误。注意PtrSafe语句在32位本质的Office中是可选的。下表提供了一些函数和数据类型数说明。

TypeItemDescription
修饰符PtrSafe指示声明API与64位兼容,在64位系统中是必须的。
Data TypeLongPtr不是一个真实的数据类型,在32位版本上是4个字节数据类型(Long),在64位版本上是8个字节的数据类型(LongLong)。这是VBA 7以后声明指针和句柄推荐的方法,它只在32位和64位的VBA7中得到支持。
Data TypeLongLong8个字节的数据类型,仅在64位Office中可用。
Conversion OperatorCLngPtr将表达式转换为LongPtr类型。
Conversion OperatorCLngLng将表达式转换为LongLong类型。
FunctionVarPtr变体类型地址转换,在64位中返回LongPtr,在32位中返回Long数据类型。
FunctionObjPtr对象地址转换,在64位中返回LongPtr,在32位中返回Long数据类型。
FunctionStrPtr字符串地址地址转换,在64位中返回LongPtr,在32位中返回Long数据类型。

 注意:没有PtrSafe特性的API声明语句被认为与64位的Office不兼容。
 综上所述,有两个条件编译常量:VBA7和Win64。为了确保与以前版本的Office向后兼容,可以使用VBA7常量来防止早期版本中使用64位代码。对于32位和64位版本间不同代码,例如一个API,它在64位版本中使用LongLong,在32位版本中使用Long,则可以使用Win64常量,下面举例使用这个两个常量:

#if Win64 Then
	Declare PtrSafe Function MyTestFunc Lib "DllName"(Byval N as LongLong) as LongLong
#else
	Declare  MyTestFunc Lib "DllName"(Byval N as Long) as Long
#End if

#if VBA7 then
	Declare PtrSafe Sub MessageBeep Lib "User32"(Byval N as Long)
#else
	Declare  Sub MessageBeep Lib "User32"(Byval N as Long)
#end if

 总之,如果在写64位代码且希望与早期Office兼容,那么使用VBA7条件编译常量。如果在编写32位Office代码,那么代码工作原理与以前版本Office一样,不需要条件编译常量。如果想编写兼容32位和64位Office,那么使用Win64编译常量。

使用StrPtr、VarPtr、ObjPtr

 用这些函数来返回字符串类型、变体类型和对象类型的的指针(内存地址)。

动态链接库基础知识

  A dynamic-link library(DLL)是一个包含函数和数据的模块,可以被另外一个模块或应用程序使用。
 DLL定义两种函数:导出函数和内部函数。导出函数可以被其它应用程序使用,内部函数仅在内部使用。
 Windows API就是一组Dll的集合,各Dll模块导出了不同的函数供外部模块使用。
 每个加载Dll的进程都将Dll映射到它的虚拟内存地址空间中,在进程将Dll加载到它的虚拟地址之后,改进程就可以调用Dll的导出函数。

VBA声明API

 先在微软官网上找到API函数原型,然后根据VBA语法规则导入函数。如下函数:

int MessageBox(
  HWND    hWnd,
  LPCTSTR lpText,
  LPCTSTR lpCaption,
  UINT    uType
);

 API函数都是C语言格式定义的,如果是指针类型则定义为VBA的长整数,如果是二级指针,则定义为Any类型。在office 2010 以后为了兼容32位和64位指针类型定义位LongPtr。
 API函数一般又ASCII和Unicode两个版本,别名指定一个确定的版本,建议用Unicode版本,W结尾的API函数。

Office 2010 以后定义方式:
'选择VBA变量和C语言字节一致的变量,如 C的int是4Byte等同于VBA的long。VBA7以后多了一个LongPtr类型,在32位为Long类型在64位为LongLong类型。
#if VBA7 Then

public declare ptrSafe Function MessageBox lib "user32.dll" alias MessageBoxW _
(byval hWnd as LongPtr,byval lpText as string,byval lpCaption as string, byval uType as long) as long

#else

public declare  Function MessageBox lib "user32.dll" alias MessageBoxW _
(byval hWnd as Long,byval lpText as string,byval lpCaption as string, byval uType as long) as long

#end if
'上面定义一个Unicode版本的API,同时能兼容各个版本的Office。

 可以加群共同交流:794568082。

参与评论 您还未登录,请先 登录 后发表或查看评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:游动-白 设计师:我叫白小胖 返回首页

打赏作者

Office二次开发

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值