office2021关于VBA7和VBA6兼容问题

508

1.在VBA6中，单独语句：Declare Function GetFoo Lib "exampleLib32"() As Long，可以运行。

2.在VBA7中，单独语句：Declare PtrSafe Function GetFoo Lib "exampleLib32" () As Long，可以运行。
3.在VBA7中，增加条件如下编译：

#If VBA7 Then
    Declare PtrSafe Function GetFoo Lib "exampleLib32" () As Long
#Else
    Declare Function GetFoo Lib "exampleLib32"() As Long
#End If

却提示“Declare Function GetFoo Lib "exampleLib32"() As Long”：若要在64位系统上使用，则必须更新此项目中的代码，请检查并更新Declare 语句，然后用PtrSafe属性标记它们。

我的excel版本：office2021。按照网上搜索的信息，使用 #If...Then...#Else 构造来确定是否编译某些语句。我使用的是VBA7 ，按理不会编译#Else后面的语句块，为何还提示我不编译的语句块错误？请大家解答一下，谢谢。

perfect131

先搜在求助

perfect131

参考：https://processit.co.nz/vba-conditional-compilation.html

joforn

从名字上猜：exampleLib32是一个32位的链接库。如果你的Office是64位的话，是调用不了的。

508

perfect131 发表于 2022-10-16 18:47
先搜在求助

也尝试过这种方法，但还是被提示错误了，大家的office会这样吗？

508

joforn 发表于 2022-10-16 18:51
从名字上猜：exampleLib32是一个32位的链接库。如果你的Office是64位的话，是调用不了的。

把#if条件测试去掉后，加PtrSafe后也能正常调用“exampleLib32”这个32位动态库，应该可排除这个原因。

perfect131

508 发表于 2022-10-16 20:13
也尝试过这种方法，但还是被提示错误了，大家的office会这样吗？

如果64bit, 我猜跟红代码没关系，你按照图片上的改写,试试
是LongLong，不是LongPtr

508

perfect131 发表于 2022-10-16 20:24
如果64bit, 我猜跟红代码没关系，你按照图片上的改写,试试
是LongLong，不是LongPtr

还是提示红代码那里错误了。实在找不出哪里出问题。

perfect131

508 发表于 2022-10-16 20:43
还是提示红代码那里错误了。实在找不出哪里出问题。

没抄对啊
最后一个没有32
exampleLib

508

perfect131 发表于 2022-10-16 20:56
没抄对啊
最后一个没有32
exampleLib

去掉后，还是提示错误。