我應該如何讓我的VBA代碼與64位Windows兼容？

Question

我在Excel 2007中開發的VBA應用程序，它包含以下代碼，以允許從Shell32.dll訪問ShellExecute功能：

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上運行。

但是，由於我堅持2007年辦公室 我需要一個替代解決方案。 我有什麼選擇？ （我真的 寧願不必發佈2 我的應用程序的獨立版本，如果 在所有可能）。

然而，按照以下大衛的回答，我弄錯了，其中我Declare聲明將無法工作情況。在64位Windows 64位上，Office 2010無法正常工作的唯一情況是。所以，Office 2007不是問題。

Answer 1

我已經對人們遇到了這個問題32個和64位版本在與Office新的64位機2010

所有我需要做的就是這樣的代碼更改行：

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 

這樣：

#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位。

Answer 2

Office 2007只有32位，所以沒有問題。您的問題只出現在具有32位和64位版本的Office 64位上。

當您只有Office 2007時，您無法指望用戶支持64位Office 2010。解決方案是升級。

如果你擁有的唯一Declare是ShellExecute那麼你將不會有太大，一旦你得到64位Office保持做的，但它不是真的可行，以支持用戶的時候可以運行的程序，你船！想想他們在報告錯誤時會做什麼？

Answer 3

這個答案很可能是錯的，上下文錯了。我認爲現在VBA現在運行在CLR上，但事實並非如此。無論如何，這個回覆可能對有人有用。或不。

---

如果您運行Office 2010 32位模式，那麼它與Office 2007相同（「問題」是Office以64位模式運行）。這是執行上下文（VBA/CLR）的位，這在這裏很重要，加載的VBA/CLR的位數取決於主機進程的位數。

之間64分之32位呼叫，最顯着的事情出差錯使用long或int（恆定大小在CLR）代替IntPtr（動態大小的基於位元）爲「指針類型」。

的ShellExecute函數具有的簽名：

HINSTANCE ShellExecute(
    __in_opt HWND hwnd, 
    __in_opt LPCTSTR lpOperation, 
    __in  LPCTSTR lpFile, 
    __in_opt LPCTSTR lpParameters, 
    __in_opt LPCTSTR lpDirectory, 
    __in  INT nShowCmd 
); 

在這種情況下，重要的是HWND被IntPtr（這是因爲一個HWND是一個「處理」是void* /「void指針」）和不是long。以pinvoke.net ShellExecute爲例。 （雖然一些「解決方案」在pinvoke.net上是陰暗的，但它最初是一個很好的選擇）。

快樂編碼。

---

至於任何「新的語法」，我不知道。

Answer 4

使用PTRSAFE，看看，關於Excel 2010中

工作更正錯字從書「的Microsoft Excel 2010強大的編程與VBA」。

#If vba7 and win64 then 
    declare ptrsafe function .... 
#Else 
    declare function .... 
#End If 

VAL（application.version）> 12.0將無法​​工作，因爲Office 2010使用我的內部工具有

Answer 5

實際上，檢查32位或64位平臺的正確方法是使用在所有版本的VBA（16位，32位和64位版本）中定義的Win64常量。

#If Win64 Then 
' Win64=true, Win32=true, Win16= false 
#ElseIf Win32 Then 
' Win32=true, Win16=false 
#Else 
' Win16=true 
#End If 

資料來源：編譯VBA幫助常數

Answer 6

，我發現這個代碼（注意，有些Long更改爲LongPtr）：

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

來源：http://www.cadsharp.com/docs/Win32API_PtrSafe.txt