带有32位标志的Excel 2016条件编译

Question

在今天通过更新获得的OSX上新的64位版本的Excel 2016中，条件编译在检查没有的函数定义时似乎没有遵循PtrSafe已定义（对于32位平台将是这种情况）。在这个例子中，我们对不同平台的相同函数有不同的定义，并且当Excel加载插件时，它会死掉，并且抱怨函数声明中没有PtrSafe的第三个定义（但它当然不是因为它适用于32位平台）。

有没有什么办法让Excel在VBA中遇到这样的代码时不会死？或者这仅仅是OSX上的64位Excel 2016中的一个错误？看起来像是一个明显的bug。我在哪里报告Excel中的错误？

#If Mac Then 
' Even though the functions are exported with a leading underscore, Excel 2011 for Mac doesn't want the leading underscore as part of name 
Private Declare PtrSafe Function get_global_param_string_private Lib "libCoolProp.dylib" Alias "get_global_param_string" (ByVal param As String, ByVal Output As String, ByVal n As Integer) As Long 
#ElseIf Win64 Then 
Private Declare PtrSafe Function get_global_param_string_private Lib "CoolProp_xls_x64.dll" Alias "get_global_param_string" (ByVal param As String, ByVal Output As String, ByVal n As Integer) As Long 
#Else 
Private Declare Function get_global_param_string_private Lib "CoolProp_xls_std.dll" Alias "_get_global_param_string@12" (ByVal param As String, ByVal Output As String, ByVal n As Integer) As Long 
#End If 

Answer 1

除非API函数本身是64和32就足够了使用VBA7开关（开始于Office 2010中）的Windows位Windows不同：

#If Mac Then 
' Even though the functions are exported with a leading underscore, Excel 2011 for Mac doesn't want the leading underscore as part of name 
Private Declare PtrSafe Function get_global_param_string_private Lib "libCoolProp.dylib" Alias "get_global_param_string" (ByVal param As String, ByVal Output As String, ByVal n As Integer) As Long 
#ElseIf VBA7 Then 
Private Declare PtrSafe Function get_global_param_string_private Lib "CoolProp_xls_x64.dll" Alias "get_global_param_string" (ByVal param As String, ByVal Output As String, ByVal n As Integer) As Long 
#Else 
Private Declare Function get_global_param_string_private Lib "CoolProp_xls_std.dll" Alias "_get_global_param_string@12" (ByVal param As String, ByVal Output As String, ByVal n As Integer) As Long 
#End If