韓建彬

(武警指揮學院，天津 300250)

0　引言

隨著硬件的更新和軟件的升級，Windows已經(jīng)進入了64位時代，與之相適應，自Office2010開始，也提供了64位的版本，并將其內(nèi)置的VBA升級到了7.0。這雖然增強了對64位數(shù)據(jù)的支持，為應用程序性能的提升創(chuàng)造了條件，但同時也帶來代碼的兼容性問題。筆者曾在Excel 2003中編寫過一個從題庫中隨機選題的VBA程序[1]，在32位版本Office 2010中可以正常運行，但在64位版本中，會提示“編譯錯誤：“若要在64位系統(tǒng)上使用，則必須更新此項目中的代碼。請檢查并更新Declare語句，然后用PtrSafe屬性標記它們?！背霈F(xiàn)這樣的情況要從64位系統(tǒng)的特性和VBA的改變來分析。

1　原因分析

對于Windows來說，64位系統(tǒng)理論上能夠使用更多的指令集，一次可以處理8個字節(jié)的數(shù)據(jù)，并擁有更大的尋址空間，從而突破了32位系統(tǒng)中4GB物理內(nèi)存和每個進程2GB虛擬內(nèi)存的限制[2]，有利于充分發(fā)揮硬件的潛能。而在程序設計中，64位系統(tǒng)帶來的最明顯改變就是指針和用于標識窗口、設備、文件等對象的句柄都變成了64位，即8個字節(jié)的長度。如果使用Microsoft Spy++（X64版）對64位系統(tǒng)進行檢查，就能直觀地看到這一變化[3]。

具體到VBA7.0，可以同時支持32位和64位的應用，并且在32位版本的Office中，以前所編寫的VBA代碼無需作任何修改，完全可以正常運行。而在64位版本的Office中，VBA為了與系統(tǒng)的變化相協(xié)調，特別是針對指針、句柄及其他64位數(shù)據(jù)，增加了相應的關鍵字和數(shù)據(jù)類型[4]。如果在64位的VBA環(huán)境中，沒有正確使用相應的關鍵字和數(shù)據(jù)類型，就會引發(fā)編譯錯誤或不可預知的運行結果。

1.1　PtrSafe關鍵字

如果VBA代碼中包含對Windows API的聲明語名，在以前版本的VBA環(huán)境中，其聲明語句的格式通常為Public/Private Declare Function FunctionName Lib"Libname"alias"aliasname"(argument list)As Type，但這僅適用于32的環(huán)境。在64位的VBA環(huán)境中，必須在Declare前面添加上PtrSafe關鍵字，以表明代碼適用于64位環(huán)境，否則將不能進行編譯。前面出現(xiàn)的編譯錯誤提示，首先就是因為缺少了這一關鍵字。

1.2　LongPtr數(shù)據(jù)類型

僅在Windows API的聲明語句中添加PtrSafe關鍵字，常常并不能徹底消除編譯錯誤，因為還涉及到數(shù)據(jù)類型的匹配問題。如果在API的聲明和調用中使用了句柄或指針，則必須修改聲明中的參數(shù)類型。

在VBA 7.0之前版本中，沒有針對指針和句柄的特定數(shù)據(jù)類型，通常使用Long數(shù)據(jù)類型（長度為4個字節(jié)）來定義指針和句柄。而在64位的環(huán)境中，指針和句柄變?yōu)?字節(jié)，不能直接轉換為Long數(shù)據(jù)類型。為了解決這一問題，VBA 7.0中包含了真正的指針數(shù)據(jù)類型LongPtr，它在32位的Office 2010中解釋為4字節(jié)的數(shù)據(jù)類型，在64位版本中則解釋為8字節(jié)數(shù)據(jù)類型，因此，需要將聲明語句中涉及句柄和指針的變量由Long類型修改為LongPtr類型。

1.3　LongLong數(shù)據(jù)類型

這是在64位的Office 2010及以后的Office版本中所使用的8個字節(jié)的數(shù)據(jù)類型，用于定義64位整數(shù)。64位環(huán)境中的某些函數(shù)需要使用這一特定的數(shù)據(jù)類型作為參數(shù)或返回值的類型。LongLong與較短的整數(shù)類型之間不允許進行隱式轉換，必須通過轉換函數(shù)才能將LongLong（包括64位環(huán)境中的LongPtr）顯式賦予32位的整數(shù)類型。

2　64位環(huán)境中的解決方法

由上面的分析可知，要想讓VBA代碼能夠運行于64位版本的VBA 7.0環(huán)境中，必須更新其中有關Windows API應用程序編程接口的聲明。首先，要為所有的Declare語句添加PtrSafe關鍵字。其次，還需要修改這些Declare語句內(nèi)所有句柄和指針的定義，以使用新的64位兼容的LongPtr類型。第三，需要使用新的LongLong數(shù)據(jù)類型保存64位的整數(shù)，包括用戶自定義類型中所含有的指針、句柄以及64位整數(shù)，使其真正符合系統(tǒng)對數(shù)據(jù)類型的要求。第四，在函數(shù)調用過程中，必須驗證所有變量的賦值是否正確，以防因類型不匹配而引發(fā)編譯或運行錯誤。

在VBA 6.0環(huán)境下，聲明Windows API函數(shù)的具體語句包含在微軟提供的Win32API.TXT文件中，而在VBA 7.0出現(xiàn)以后，微軟又發(fā)布了Win32API_PtrSafe.TXT文件，提供了有關函數(shù)在VBA 7.0中的聲明語句。

例如，在Office 2003中，借助SetTimer函數(shù)實現(xiàn)隨機選擇題目的程序，使用了如下的聲明語句：

而在Office 2010的64位版本中，則需要改寫成如下格式：

從兩者的對比可以看出，在Function前面添加了“PtrSafe”關鍵字，并且其中的窗口句柄、定時器ID、回調函數(shù)指針都換成了LongPtr類型，這樣才能在64位環(huán)境中運行。

再如，用于引用程序主窗口句柄的FindWindow函數(shù)，在Office 2003中的聲明形式為：

而在Office 2010的64位版本中則要修改為：

在添加了PtrSafe關鍵字的同時，函數(shù)的返回值，即窗口句柄被修改為LongPtr類型。而用于接收函數(shù)返回值的變量，也必須相應地由Long類型修改為LongPtr類型。

另外，程序中還用到了KillTimer等函數(shù)，其聲明語句也需要做類似的修改，具體請在微軟提供的兩個文件中自行查閱和比較。

3　用條件編譯提高兼容性

通過以上的修改，原有的代碼雖然可以在VBA7.0中運行，但在VBA 6.0及以前的版本中，則會因為新關鍵字的引入而無法編譯，為了保證代碼的兼容性，需要利用VBA的條件編譯功能。

在VBA7.0中，提供了兩個用于條件編譯的常量：VBA7和Win64。VBA7用于測試當前Office中所內(nèi)置的VBA的版本，如果是最新的VBA7版本則為True，如果是以前的版本，則為False。通過VBA7這一常量，我們就能確定VBA程序的運行環(huán)境，以便按照具體的環(huán)境編譯相應的語句，從而保證代碼的兼容性。

在MSDN中，常量Win64被解釋為“用于測試代碼是以32位還是64位形式運行的”，這樣的表述并不是很明確，其中的“代碼”具體指運行環(huán)境中的哪一個層次，是操作系統(tǒng)還是Office軟件？通過在不同的運行環(huán)境中進行實驗，其結果如下：在64位的Windows系統(tǒng)中，使用Office 2010及2013進行測試，如果是32位的版本，“Win64”為False,“VBA7”為True；如果是64位的版本，“Win64”為True,“VBA7”為True。由此可見，“Win64”主要表示當前的Office是否為64位，而“VBA7”則表示當前的VBA環(huán)境是否為VBA7.0。

根據(jù)MSDN中的說明，VBA 7.0可以同時支持32位和64位的程序代碼，且32位Office中的VBA7.0與以前的VBA完全兼容，只有64位版本Office中的VBA7.0才會產(chǎn)生代碼不兼容的問題。因此，可以使用如下的條件編譯語句：

例如，為了存儲FindWindow函數(shù)的返回值，聲明變量hWnd，其條件編譯代碼為：

這樣就能保證變量聲明在32位和64位環(huán)境中的兼容性。

而對于某些在64位和32位的VBA 7.0環(huán)境中也具有不同聲明要求的函數(shù)，其條件編譯要使用嵌套結構，需同時使用Vba7和Win64作為編譯條件。如WindowFromPoint函數(shù)，由于在不同的環(huán)境中參數(shù)的類型不同，需要使用如下的編譯條件。

雖然以上的結構還可以簡化，但為了使代碼中的邏輯關系更為清晰，仍建議采用這樣的形式。

4　結束語

對于Office來說，32位與64位版本共存的狀況必然還要持續(xù)一定的時間，VBA也仍將是Office開發(fā)中的重要工具，為了提高VBA代碼的兼容性，必需根據(jù)運行環(huán)境的發(fā)展變化，按照MSDN中的說明來設置編譯條件，并進行相應的測試。此外，由于64位的進程中不能加載32位的ActiveX控件，因此，如果VBA中引用了以前版本的Office所提供的32位控件，如MSComCtl、MSComCt等，那么在64位版本的Office中是無法運行的，還需要進一步研究可行的替代方法。

參考文獻(References):

[1]韓建彬.Windows API在VBA編程中的應用研究[J].計算機時代,2012.240(6):13-14

[2]Memory Limits for Windows and Windows Server Releases[EB/OL].https://msdn.microsoft.com/library/aa366778.aspx.

[3]Spy++簡介[EB/OL].https://msdn.microsoft.com/zh-cn/library/vs/alm/dd460756(v=vs.140).aspx.

[4]64位Office 2010版本.https://technet.microsoft.com/zh-cn/library/ee681792(v=office.14).aspx.