我应该如何使我的 VBA 代码与 64 位 Windows 兼容？

我有一个在 Excel 2007 中开发的 VBA 应用程序，它包含以下代码以允许访问ShellExecute函数来自Shell32.dll:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

我最初是这么说的：

显然该应用程序不会 在 64 位版本的 Windows 上编译 （仍然使用 32 位 Office 2007）。我 假设这是因为Declare声明需要更新。

我读到 Office 2010 引入了 一个新的 VBA 运行时 (VB7)，并且这 有一些可以使用的新关键字 在里面Declare声明允许它 在 64 位 Windows 上正常工作。 VB7还有新的预定义编译器 支持条件的常量 编译其中旧的或 将使用新的声明， 取决于是否申请 在 32 位或 64 位 Windows 上运行。

但是，由于我一直使用 Office 2007 年我需要一个替代解决方案。 我有什么选择？ （我真的 不想发布 2 我的应用程序的单独版本如果 尽一切可能）。

然而，根据大卫下面的回答，我错误地理解了我的情况Declare声明不起作用。它无法工作的唯一情况是 Windows 64 位上的 Office 2010 64 位。所以，Office 2007 不是问题。

我已经在装有 Office 2010 的新 64 位计算机上使用我的内部工具的人遇到过此问题。

我所要做的就是更改代码行，如下所示：

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

To This:

#If VBA7 Then
    Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
        (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#Else
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
        (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#End If

当然，您会希望确保您正在使用的库在两台机器上都可用，但到目前为止我使用的都没有出现问题。

请注意，在旧的 VB6 中，PtrSafe 甚至不是一个有效的命令，因此它会显示为红色，就好像您有编译错误一样，但它实际上不会给出错误，因为编译器将跳过if 块。

使用上述代码的应用程序可以在 Office 2003、2007 和 2010 32 位和 64 位上完美编译和运行。