64位环境下VBA编程异常处理与适应性调整

VBA在32位下没问题，到64位异常报错 

64 位 Visual Basic for Applications 概述

Microsoft Visual Basic for Applications (VBA) 是 Microsoft Office 附带的 Visual Basic 版本。在 Microsoft Office 2010 中，VBA 包括可使 VBA 代码同时在 32 位和 64 位环境中正确运行的语言功能。
注意：默认情况下，Office 2010 安装 32 位版本。在安装过程中，您必须明确选择安装 64 位版本。 
对于在 Office 2010 版本之前（VBA 版本 6 和更早版本）编写的 VBA 代码，需要修改为在 64 位 Office 版本中运行，否则在 64 位平台上运行时会导致错误。这是因为，VBA 版本 6 和更早版本完全以 32 位平台为目标，而且通常包含 Declare 语句，这些语句调用的 Windows API 使用 32 位数据类型的指针和句柄。因为 VBA 版本 6 和更早版本没有用于指针或句柄的特定数据类型，所以，它使用 Long 数据类型（一种 32 位 4 字节的数据类型）来引用指针和句柄。64 位环境中的指针和句柄为 8 字节 64 位数。这些 64 位数不能包含在 32 位数据类型中。
注意：只有在 64 位版本的 Microsoft Office 中运行 VBA 代码时，才需要修改 VBA 代码。
在 64 位 Office 中运行旧 VBA 代码的问题在于，将 64 位加载到 32 位数据类型中会截断 64 位数。这会导致内存溢出、代码中出现意外结果，并且可能导致应用程序故障。
为解决此问题，以使 VBA 代码能同时在 32 位和 64 位环境中正确运行，新版 VBA 中增加了几项语言功能。此文档底部的表总结了这些新的 VBA 语言功能。有三个重要的新增功能，分别是：LongPtr 类型别名、LongLong 数据类型和 PtrSafe 关键字。
LongPtr - 现在，VBA 包括一种可变类型别名：LongPtr。LongPtr 实际解析为哪种数据类型取决于它在哪种 Office 版本中运行：在 32 位版本的 Office 中 LongPtr 解析为 Long，在 64 位版本的 Office 中 LongPtr 解析为 LongLong。LongPtr 用于指针和句柄。 
LongLong - LongLong 数据类型为有符号的 64 位整数，仅在 64 位版本的 Office 中可用。LongLong 用于 64 位整数。必须使用转换函数将 LongLong（包括 64 位平台上的 LongPtr）显式赋予较小的整型。不允许将 LongLong 隐式转换为较小的整数。 
PtrSafe - PtrSafe 关键字声明 Declare 语句可以在 64 位版本的 Office 中安全运行。 
现在，在 64 位版本的 Office 中运行时，所有 Declare 语句必须都包括 PtrSafe 关键字。必须理解，仅仅将 PtrSafe 关键字添加到 Declare 语句中只是表示 Declare 语句显式针对 64 位，而语句中需要存储 64 位（包括返回值和参数）的所有数据类型仍须经过修改才能保存 64 位数。
注意：带有 PtrSafe 关键字的 Declare 语句为建议的语法。包括 PtrSafe 的 Declare 语句可同时在 32 位和 64 位平台上的 VBA7 开发环境中正确工作。为确保在 VBA7 中以及更早版本中的向后兼容性，请使用下面的构造：
#If Vba7 Then
Declare PtrSafe Sub...
#Else
Declare Sub...
#EndIf
请考虑下列 Declare 语句示例。在 64 位版本的 Office 中运行未经修改的 Declare 语句会导致一个错误，该错误指出 Declare 语句未包括 PtrSafe 限定符。修改后的 VBA 示例中包含 PtrSafe 限定符，但请注意，返回值（指向活动窗口的一个指针）返回 Long 数据类型。在 64 位 Office 上，这是错误的，因为指针应为 64 位。PtrSafe 限定符告知编译器 Declare 语句针对 64 位，因此该语句可以正常执行。但是返回值没有更新为 64 位数据类型，因此被截断，从而返回错误的值。
未修改的旧 VBA Declare 语句示例： 
Declare Function GetActiveWindow Lib "user32" () As Long
修改后的 VBA Declare 语句示例，其中包括 PtrSafe 限定符，但仍使用 32 位返回值： 
Declare PtrSafe Function GetActiveWindow Lib "user32" () As Long
再次重申，您除了必须修改 Declare 语句来包括 PtrSafe 限定符外，还必须更新语句中所有需要保存 64 位数的变量，以便这些变量使用 64 位数据类型。
修改后的 VBA Declare 语句示例，其中包括 PtrSafe 关键字，并且更新为使用正确的 64 位 (LongPtr) 数据类型： 
Declare PtrSafe Function GetActiveWindow Lib "user32" () As LongPtr
总而言之，对于要在 64 位版本的 Office 中运行的代码，您需要找到并修改所有现有 Declare 语句以使用 PtrSafe 限定符。同时，还需要找到并修改这些 Declare 语句内所有引用句柄或指针的数据类型以使用新的 64 位兼容的 LongPtr 类型别名，并且需要使用新的 LongLong 数据类型保存 64 位整数的类型。此外，还必须更新任何包含指针或句柄以及 64 位整数的用户定义类型 (UDT)，使之使用 64 位数据类型，同时，必须验证所有变量赋值是否正确，以防止发生类型不匹配错误。
编写可同时在 32 位和 64 位 Office 上运行的代码