编译错误：此项目中的代码必须更新

Posted 2023-04-19

【中文标题】编译错误：此项目中的代码必须更新

【英文标题】：Compile Error: The code in this project must be updated

【发布时间】：2017-08-17 16:29:52

【问题描述】：

我最近将我的 Office 应用程序更新为 365。我在 VBA 中遇到错误。 “编译错误：必须更新此项目中的代码才能在 64 位系统上使用。”如何将代码从 32 位更改为 64 位？

Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Declare Function apiGetComputerName Lib "kernel32" Alias _
"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

【问题讨论】：

How should I make my VBA code compatible with 64-bit Windows?的可能重复

@ErikvonAsmuth 完美！我试图找到另一个关于此的论坛。

【参考方案1】：

我在为 64 位准备 Access 数据库时遇到了这个问题，并为编译器指令找到了这个很好的代码模板，以确保代码跨多个版本工作：

#if Vba7 then 
'  Code is running in the new VBA7 editor 
     #if Win64 then 
     '  Code is running in 64-bit version of Microsoft Office 
     #else 
     '  Code is running in 32-bit version of Microsoft Office 
     #end if 
#else 
' Code is running in VBA version 6 or earlier 
#end if 

来源：https://msdn.microsoft.com/en-us/vba/language-reference-vba/articles/64-bit-visual-basic-for-applications-overview