excel - Excel 2003 中的 PtrSafe 给我带来了问题

Question

我目前正在制作一些适用于工作中新 win7 机器的 VBA 代码。这意味着必须为新的 64 位兼容性添加许多功能。我目前正在遵循 this 中的指南主页。我发现它们非常有用并实现了以下内容:

#If VBA7 Then
    Declare PtrSafe Function CreateProcess Lib "kernel32"  'More code, see below.
#Else
    Declare Function CreateProcess Lib "kernel32" 'More code, see below.
#EndIf

但是，当前 VBA 在我保存代码时给我以下错误消息:

注意:上面的代码包含前面提到的链接中描述的代码:from jkp-ads .该错误出现在 Declare PtrSafe Function CreateProcess Lib "kernel32"Alias "CreateProcessA" 中。完整代码可见here .

我在这里错过了什么？谢谢!

更新我的完整代码:

Option Explicit
Const INFINITE = &HFFFF
Const STARTF_USESHOWWINDOW = &H1
Private Enum enSW
    SW_HIDE = 0
    SW_NORMAL = 1
    SW_MAXIMIZE = 3
    SW_MINIMIZE = 6
End Enum

Private Type PROCESS_INFORMATION
    hProcess As Long
    hThread As Long
    dwProcessId As Long
    dwThreadId As Long
End Type

Private Type STARTUPINFO
    cb As Long
    lpReserved As String
    lpDesktop As String
    lpTitle As String
    dwX As Long
    dwY As Long
    dwXSize As Long
    dwYSize As Long
    dwXCountChars As Long
    dwYCountChars As Long
    dwFillAttribute As Long
    dwFlags As Long
    wShowWindow As Integer
    cbReserved2 As Integer
    lpReserved2 As Byte
    hStdInput As Long
    hStdOutput As Long
    hStdError As Long
End Type

Private Type SECURITY_ATTRIBUTES
    nLength As Long
    lpSecurityDescriptor As Long
    bInheritHandle As Long
End Type

Private Enum enPriority_Class
    NORMAL_PRIORITY_CLASS = &H20
    IDLE_PRIORITY_CLASS = &H40
    HIGH_PRIORITY_CLASS = &H80
End Enum
#If VBA7 Then
private Declare PtrSafe Function CreateProcess Lib "kernel32" _
Alias "CreateProcessA" (ByVal lpApplicationName As String, _
                        ByVal lpCommandLine As String, _
                        lpProcessAttributes As SECURITY_ATTRIBUTES, _
                        lpThreadAttributes As SECURITY_ATTRIBUTES, _
                        ByVal bInheritHandles As Long, _
                        ByVal dwCreationFlags As Long, _
                        lpEnvironment As Any, _
                        ByVal lpCurrentDriectory As String, _
                        lpStartupInfo As STARTUPINFO, _
                        lpProcessInformation As PROCESS_INFORMATION) As LongPtr

#Else
Declare Function CreateProcess Lib "kernel32" _
Alias "CreateProcessA" (ByVal lpApplicationName As String, _
                       ByVal lpCommandLine As String, _
                       lpProcessAttributes As SECURITY_ATTRIBUTES, _
                       lpThreadAttributes As SECURITY_ATTRIBUTES, _
                        ByVal bInheritHandles As Long, _
                        ByVal dwCreationFlags As Long, _
                        lpEnvironment As Any, _
                        ByVal lpCurrentDriectory As String, _
                        lpStartupInfo As STARTUPINFO, _
                        lpProcessInformation As PROCESS_INFORMATION) As Long
#End If

现在，我想强调几件事。首先，我运行的是 Excel 2003 和 Windows XP 32 位。除此之外，我还没有尝试运行代码。为什么你可能会问。原因很简单。在我能够做任何事情之前，编辑器提出了一个编译错误。这个编译错误可以在这段代码上面的图片中看到。我截取了一些代码的屏幕截图，尤其是发生编译错误的地方。这是它的样子:

Update更新:刚找到this article from MS support.似乎解决方案如下:“要解决此问题，请忽略“编译错误”并在 64 位版本的 Office 2010 程序中运行 VBA 代码。”我仍然希望有一些解决方案虽然存在。

Answer 1

关于我在您的问题下方的评论(您忽略了……我猜是错误的？)我相信您收到该错误是因为您没有正确指定所有参数。

试试这个，它会编译得很好。

Const INFINITE = &HFFFF
Const STARTF_USESHOWWINDOW = &H1
Private Enum enSW
    SW_HIDE = 0
    SW_NORMAL = 1
    SW_MAXIMIZE = 3
    SW_MINIMIZE = 6
End Enum

Private Type PROCESS_INFORMATION
    hProcess As Long
    hThread As Long
    dwProcessId As Long
    dwThreadId As Long
End Type

Private Type STARTUPINFO
    cb As Long
    lpReserved As String
    lpDesktop As String
    lpTitle As String
    dwX As Long
    dwY As Long
    dwXSize As Long
    dwYSize As Long
    dwXCountChars As Long
    dwYCountChars As Long
    dwFillAttribute As Long
    dwFlags As Long
    wShowWindow As Integer
    cbReserved2 As Integer
    lpReserved2 As Byte
    hStdInput As Long
    hStdOutput As Long
    hStdError As Long
End Type

Private Type SECURITY_ATTRIBUTES
    nLength As Long
    lpSecurityDescriptor As Long
    bInheritHandle As Long
End Type

Private Enum enPriority_Class
    NORMAL_PRIORITY_CLASS = &H20
    IDLE_PRIORITY_CLASS = &H40
    HIGH_PRIORITY_CLASS = &H80
End Enum

#If VBA7 Then
    Declare PtrSafe Function CreateProcess Lib "kernel32" _
    Alias "CreateProcessA" (ByVal lpApplicationName As String, _
                            ByVal lpCommandLine As String, _
                            lpProcessAttributes As SECURITY_ATTRIBUTES, _
                            lpThreadAttributes As SECURITY_ATTRIBUTES, _
                            ByVal bInheritHandles As Long, _
                            ByVal dwCreationFlags As Long, _
                            lpEnvironment As Any, _
                            ByVal lpCurrentDriectory As String, _
                            lpStartupInfo As STARTUPINFO, _
                            lpProcessInformation As PROCESS_INFORMATION) As LongPtr
#Else
    Declare Function CreateProcess Lib "kernel32" _
    Alias "CreateProcessA" (ByVal lpApplicationName As String, _
                            ByVal lpCommandLine As String, _
                            lpProcessAttributes As SECURITY_ATTRIBUTES, _
                            lpThreadAttributes As SECURITY_ATTRIBUTES, _
                            ByVal bInheritHandles As Long, _
                            ByVal dwCreationFlags As Long, _
                            lpEnvironment As Any, _
                            ByVal lpCurrentDriectory As String, _
                            lpStartupInfo As STARTUPINFO, _
                            lpProcessInformation As PROCESS_INFORMATION) As Long
#End If