Excel 2003中的PtrSafe给了我一些问题

时间：2014-01-09 10:12:24

标签： excel excel-vba vba

我目前正在制作一些适用于工作中新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正在给我以下错误消息：

this error code

注意：上面的代码包含前面提到的链接中描述的代码：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位。除此之外我还没有尝试过运行代码。为什么你可能会问。原因很简单。在我能够做任何事情之前，编辑器会出现编译错误。这个编译错误可以在这段代码上面的图片中看到。我已经截取了一些代码的屏幕截图，特别是发生编译错误的地方。这是它的外观：

Error

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

2 个答案:

答案 0 :(得分：2)

继我的评论下面你的问题（你已经忽略了......我猜错了？）我相信你收到了这个错误，因为你没有正确指定所有参数。

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

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

答案 1 :(得分：1)

这不是解决方案，而是一种调查途径。

看起来编译器正在查看#If VBA7 Then下的内容。但这在Excel 2003中根本不应该发生。

尝试用垃圾替换#If VBA7 Then下的任何内容，并在#Else部分添加一个声明，例如

#If VBA7 Then
    ksjdhfg lkjsdh fgkjh,dlgf sldjkgflsd g 'obvious syntax error
#Else
    Const vOlder As String = "older VBA"
    Declare Function CreateProcess Lib "kernel32" '... keep this part as it was
#End If

然后尝试运行它以查看它是否编译：

Sub tester()
    Debug.Print vOlder
End Sub

这应该在Excel 2003中编译并运行正常，因为它具有比7.0更旧的VBA版本。 #If VBA7 Then下面的内容应该被完全忽略（无论语法错误或其他任何内容）和#Else下的内容，例如vOlder应该是可访问的。

如果这有助于您跟踪错误，请告诉我们。

相关问题
最新问题