摘要

這篇技術文章探討如何編寫Microsoft Office解決方案代碼，以便使用16位和32位版本的Office產(chǎn)品順利進行應用編程接口（API）調(diào)用。特別是，本文適用于Microsoft Access 、Visual Basic 、Microsoft Word 、Microsoft Excel 和Microsoft Project 。實現(xiàn)這種API調(diào)用的方法有三類：使用REGISTER、使用Declare語句和使用一個類型庫。本文分別對這三種API調(diào)用方法進行了探討和舉例。在本文中，假設讀者已對我先前的一篇技術文章“將你基于16位Office的解決方案移植到32位Office ”較為熟悉，并且假設讀者是一位經(jīng)驗豐富的Office 開發(fā)者，他需要移植或編寫解決方案，以滿足16位到32位互操作性的新要求。

引言

對于編寫一個面向多個平臺多個版本Microsoft Office 產(chǎn)品的解決方案問題，它是大多數(shù)編譯語言開發(fā)者所不熟悉的。編譯語言應用程序開發(fā)者喜歡在編輯程序開發(fā)中選擇一個時間段，將解決方案加到一個執(zhí)行文件中，而很少需要解決由產(chǎn)品開發(fā)引起的問題。一個Office 解決方案應具有一個可在所有Office 產(chǎn)品和所有操作系統(tǒng)中正確執(zhí)行的解決方案文件（一個.XLS、.MDB、.MPP或.DOT文件）。Office 開發(fā)者必須編寫具有對前五年內(nèi)發(fā)布的版本的向后兼容性和對將發(fā)布的下一版本的向前兼容性。例如，一個在Microsoft Excel 4.0和Microsoft Excel 5.0上運行的費用報告應能在Microsoft Excel NT、Microsoft Excel 95和Microsoft Excel 2001（假定存在）上運行。

Office 95將32位Office 產(chǎn)品引入到主流企業(yè)環(huán)境中，它們將與16位Office 產(chǎn)品共存許多年。在我以前的一篇技術文章“將你基于16位Office的解決方案移植到32位Office ”中，對不能從一個32位應用程序調(diào)用16位API的問題以及不能從一個16位應用程序調(diào)用32位API的問題進行了闡述，在那篇文章中列出的16位/32位互操作性解決方案將在本文中作進一步的探討。

注：根據(jù)經(jīng)驗，我把Windows 3.1中的API調(diào)用轉換為Win32 應用編程接口（API）調(diào)用稱之為32A規(guī)則，即：“如果在任何調(diào)用參數(shù)中使用了名稱字符串，給DLL名添加一個32，給函數(shù)名添加一個A（對于ANSI）”。這個經(jīng)驗對于絕大多數(shù)API調(diào)用是可行的，但對于某些函數(shù)，這個經(jīng)驗可能行不通，因此它并不是絕對正確的解決方案。

16位/32位互操作性解決方案比16位API調(diào)用移植到相當?shù)?2位API調(diào)用（換句話說，使用32A規(guī)則）的要求更多；它需要解決方案在16位或32位Office 產(chǎn)品中執(zhí)行時能選擇適當?shù)腁PI。

術語

為了避免用語使用的混淆，下列表中定義了在本技術文章中使用的術語：

術語 定義
Office 產(chǎn)品 不將代碼編譯為一個可執(zhí)行程序的產(chǎn)品。下列產(chǎn)品之一：Microsoft Project 、Microsoft Access、Word 和Microsoft Excel 。
編譯語言 將代碼編譯為一個可執(zhí)行程序的產(chǎn)品，例如Visual Basic 、FORTRAN、PowerStation 、Visual FoxPro 和Visual C++。
解決方案 由第三方或開發(fā)者使用某個Office 產(chǎn)品及其格式（如Microsoft Excel （.XLS）、Word （.DOT）、Microsoft Project （.MPP）或者Microsoft Access（.MDB））開發(fā)的應用程序。
解決方案代碼 編寫有解決方案的代碼（XLM或Basic或者結合使用）
平臺 Microsoft Windows和Apple Macintosh 操作系統(tǒng)。一些Office 產(chǎn)品適用于所有Windows和Macintosh操作系統(tǒng)。通過將解決方案從一個操作系統(tǒng)復制到另一操作系統(tǒng)， Microsoft Excel 可在Macintosh和Windows PC中執(zhí)行同一應用程序（在一定的限制條件下）。

　

API調(diào)用方法

解決方案代碼可采用下列三種方法之一進行編寫－－使用Microsoft Excel 宏（XLM）、Basic（Access Basic、Visual Basic 、VBA和WordBasic）或者混合使用XLM和Basic。XLM使用REGISTER和CALL命令來進行API調(diào)用，Basic使用Declare語句、類型庫或者這兩者的結合使用來進行API調(diào)用。經(jīng)一個開發(fā)者傳給另一開發(fā)者的Microsoft Excel 解決方案可以使用所有這些方法進行API調(diào)用。這三種方法對于最新版本的Microsoft Excel 都適用。

表1 API調(diào)用方法描述

方法 語言 進行API調(diào)用的方法
REGISTER XLM宏 從宏中使用REGISTER和CALL函數(shù)
Declare Access Basic、
Visual Basic 、

VBA、WordBasic
使用Declare語句
類型庫 僅VBA 從對象瀏覽器上選擇類型庫方法

這些方法不會產(chǎn)生某個特定版本的解決方案，它取決于開發(fā)者編寫代碼的引用或解決方案所必須運行的產(chǎn)品范圍。例如，為了使解決方案在Microsoft Excel 4.0中也有效，開發(fā)者可以在Microsoft Excel 95的XLM中編寫一個解決方案。表2中列出了各種API調(diào)用可在哪些Microsoft 產(chǎn)品中使用。

表2 Microsoft 產(chǎn)品的API調(diào)用方法

產(chǎn)品版本 REGISTER方法 Declare方法 類型庫方法
Microsoft Excel 3.0,4.0 X 　 　
Microsoft Excel 5.0,5.0NT,95 X X X
Word 2.0,6.0,95 　 X 　
Visual Basic 1.0,2.0,3.0 　 X 　
Visual Basic 4.0 　 X X
Project 4.0,95 　 X 　
Microsoft Access1.0,1.1,2.0 　 X 　
Microsoft Access95 　 X X
FoxPro 2.5 　 X 　
FoxPro 3.0 　 X X

我們在討論16位和32位API調(diào)用時，都將使用同一個簡單的API調(diào)用示例－－GetTickCount來進行論述。

REGISTER方法

對于在編寫Office 解決方案前先在Visual Basic 中編寫過代碼的開發(fā)者，他們并不熟悉使用REGISTER方法的API調(diào)用。舊版本Microsoft Excel 的開發(fā)者從XLM中進行API調(diào)用，并避免使用VBA。我們不能把XLM看作是過時的技術－－雖然從Microsoft Excel 4.0開始未對其更改。如果性能問題變得很重要時，XLM仍是最好的選擇。Microsoft Excel 5.0開發(fā)者工具包中陳述了直接從XLM中進行API調(diào)用的優(yōu)點。

由于C API最易于在Microsoft Excel 宏和工作表上使用，因此對于Visual Basic 所用的外部函數(shù)的編寫，它并不是非常好（雖然VB 和C API可被融入混合解決方案中）。

為了從XLM進行API調(diào)用，要求使用REGISTER函數(shù)來引用動態(tài)連接庫（DLL）以及使用CALL函數(shù)來執(zhí)行它。REGISTER函數(shù)與VBA中的Declare語句的作用是一樣的。推薦的REGISTER句法如下：

REGISTER(module_text,procedure,type_text,function_text,argument_text,macro_type,category,shortcut_text)

要返回到所給出的API調(diào)用示例，我們可以在XLM的一些代碼行中采用GetTickCount。

這個代碼在16位Microsoft Excel 中產(chǎn)生下列輸出：

如果我們在32位的Microsoft Excel 中運行這個代碼，結果是失敗的。API調(diào)用返回＃VALUE!，表明傳遞給DLL或從DLL中傳遞變量是失敗的：

我們必須將這個代碼轉換為一個32位的API調(diào)用，因此，我們使用32A規(guī)則，在DLL名上添加一個32，如果是字符串，在其上添加一個A。采用32A規(guī)則的代碼如下所示。

在調(diào)用TestGetTickCount32A時，我們會遇到另一種錯誤。返回＃NAME?變量，這意味著在DLL中不存在這個函數(shù)。它可能是錯誤的DLL或錯誤的函數(shù)名（記住，函數(shù)名是區(qū)分大小寫的）。這必定是32A規(guī)則的一個例外（我承認，我是有意選用這個函數(shù)的）。

在MSDN庫中，使用關鍵字索引在PlatformSDK（平臺軟件開發(fā)包）中查找GetTickCount。在主題的頂端彈出的快速信息（Quick Info）會告訴你該函數(shù)在KERNEL32庫中（在Window 3.x中，該函數(shù)在USER庫中）。下列代碼列出修改后的32位Microsoft Excel 宏。

在32位Microsoft Excel 中運行此代碼，我們得到正確的結果：

為說明在16位和32位Microsoft Excel 中的API調(diào)用方式，參閱表3，表中顯示了這些宏的結果。使用32A規(guī)則的宏（“32A位”）在16位和32位解決方案中產(chǎn)生的結果相同。它說明了REGISTER函數(shù)從16位或者32位解決方案中定位（或定位失敗）16位和32位DLL中的函數(shù)名的能力。返回＃VALUE!表明在傳遞或接收參數(shù)中出現(xiàn)了問題。

表3：從16位和32位Microsoft Excel 進行調(diào)用的結果

Microsoft Excel 4.0（16位版） Microsoft Excel 95（32位版）

我們能夠編寫宏以進行16位API調(diào)用或32位API調(diào)用，但是，我們必須編寫可進行16位API調(diào)用和32位API調(diào)用的宏，這取決于Office 產(chǎn)品的版本。解決方案代碼必須在16位Microsoft Excel 和32位Microsoft Excel 上均能運行。在我以前的文章（“將你基于16位Office的解決方案移植到32位Office ”）中描述的VBA函數(shù)Engine32不能在Microsoft Excel 4.0（Microsoft Excel 4.0不包含VBA）中正常工作。Engine32可在Microsoft Excel 5.0及更高版本上正常工作。一個與Microsoft Excel 4.0兼容的Engine32函數(shù)必須使用宏代碼。

XLM的Engine32函數(shù)

對于XLM，解決方案與VBA解決方案類似。如果Microsoft Excel 是一個32位版，函數(shù)信息（“osversion（操作系統(tǒng)版本）”）將包含32。如果Microsoft Excel 是一個32位版，下列所示的Engine32宏返回TRUE；如果Microsoft Excel 是16位版，該宏返回FALSE。

REGISTER方法解決方案的示例

由于Enging32已定義，GetTickCount的宏代碼很簡單：

Engine32將在所有版本的Microsoft Excel 中運行正常。GetTickCount函數(shù)與在Windows3.1中的API調(diào)用是一樣的。

注：如果對性能關心，你應在裝載這個解決方案時注冊所有API調(diào)用。

REGISTER方法解決方案的步驟

如果你正將Microsoft Excel 解決方案轉換為能在16位和32位產(chǎn)品上運行的解決方案，我建議你采用下列步驟：

創(chuàng)建一個名為APICALLS的新宏；

在APICALLS宏中創(chuàng)建Engine32函數(shù)；

定位解決方案中的所有REGISTER函數(shù)，并將它們移到APICALLS中，一個一欄；

使用上面的REGISTER解決方案示例中的宏代碼作為一個模板，在你的宏表中為每個API創(chuàng)建函數(shù)；

添加所需的ARGUMENT行；

添加所需的RESULT行；

添加16位API REGISTER行，在函數(shù)名后加上16；

添加32位API REGISTER行，在函數(shù)名后加上32；

進行任何數(shù)據(jù)處理以進行API調(diào)用；

添加一個IF行以調(diào)用相應的API；

RETURE返回變量（如果有）；

測試函數(shù)；

為Microsoft Excel 定義函數(shù)。

這個過程可使宏表中現(xiàn)有的API調(diào)用保持原樣。一旦你創(chuàng)建了宏表APICALLS（并進行了測試），你可以把它加到其他解決方案中，重復使用這個宏，這樣可節(jié)省轉換時間。該宏表的內(nèi)容獨立于解決方案（它僅包含Windows API調(diào)用）并可在其他解決方案中重復使用。這個宏表APICALLS成為將來開發(fā)16位/32位解決方案的羅塞達石碑。

Declare方法

VBA的引入給Microsoft Excel 開發(fā)者提供了XLM的替代方法。Visual Basic 、WordBasic和Microsoft Access開發(fā)者也能毫無困難地編寫Microsoft Excel 和Microsoft Project解決方案。Basic代碼可在廣泛的產(chǎn)品中進行交換。年輕一代的Office 開發(fā)者將在VBA中編寫代碼，而很少使用XLM。

從VBA中調(diào)用API需要使用API Declare語句。一個經(jīng)聲明的API可在Basic代碼（或在一個宏中）的任何地方被調(diào)用。編寫Declare語句有兩種方法，如下所示：

Word Declare語句

注釋：Word是首選的編寫Declare 語句的方法

注釋：它的格式是固定的，具有向后兼容性。

Declare Sub SubName Lib LibName$ [(ArgumentList)] [ Alias Routine$]

Declare Function FunctionName[$] Lib LibName$ [( ArgumentList)] [Alias Routine$] As Type

VBA、Basic和Microsoft Access Declare語句

Declare Sub globalname Lib "libname" [Alias "aliasname" ][([ argumentlist])]

Declare Function globalname Lib libname [Alias aliasname ] [([ argumentlist])] [As type]

因為我已在“將你基于16位Office的解決方案移植到32位Office ”中進行了這方面的一些討論，并得出了上面的分類，我將簡要地利用一個函數(shù)示例來說明Declare解決方案。

Basic Engine32函數(shù)

如果32位API調(diào)用是正常的（16位API調(diào)用失�。�，Engine32函數(shù)返回True；如果16位API調(diào)用是正常的（32位API調(diào)用失�。�，該函數(shù)返回False。在“將你基于16位Office的解決方案移植到32位Office ”一文中給出的Engine32函數(shù)被設計成可說明它們在每個Office 產(chǎn)品中的差異的示例。下面給出的是經(jīng)修改后的函數(shù)，它具有更好的性能并能在更多的版本上運行。

利用在第一個函數(shù)中初始化靜態(tài)變量可改善性能。隨后的所有調(diào)用使用這些靜態(tài)變量，而不是重復進行額外的函數(shù)調(diào)用。改善性能的另一方法是初始化一個全局或公有變量；然而，它存在一個缺陷，在一些產(chǎn)品中發(fā)生Reset（重置）時，在全局變量得到重新初始化前，隨后的所有API調(diào)用可能失敗。

Microsoft Excel 5或更高版本和Project 4或更高版本

如果Microsoft Excel 和Microsoft Project 是32位的產(chǎn)品，它們中的Application.OperatingSystem屬性通常包含32。由于Microsoft Excel 5.0既有16位產(chǎn)品又有32位產(chǎn)品，因此產(chǎn)品版本號是不充分的。

Function Engine32%()

Static sEngine32%,SEval% 注釋：Statics用于性能的改善。

If SEval% Then Engine32%=sEngine32%: Exit Function

If instr(Application.OperatingSystem,"32") then sEngine32%=True

Seval%=True

Engine32%=sEngine32%

End Function

Microsoft Access 1.1或更高版

Microsoft Access不具有既有16位又有32位產(chǎn)品的版本。通過調(diào)用SysCmd檢查版本號，確定正在使用的Microsoft Access的版本。Microsoft Access 1.1在構造時沒有加入一個版本號常量，因此，我們通常使用7，以確保代碼可在Microsoft Access中正常工作。這種方法可用來查看你的解決方案代碼進行的是一個16位還是一個32位API調(diào)用。

Function Engine32% ()

Static sEngine32%,SEval%

If SEval% Then Engine32%=sEngine32%: Exit Function

If SysCmd(7) > 2 Then sEngine32% = True

Seval%=True

End Function

Word for Wndows 2.0或更高版

由于Word不支持靜態(tài)變量，Word 必須每次對Engine32函數(shù)賦值。首先，我們檢查產(chǎn)品版本號是否表明其是一個32位版本，然后我們檢查操作系統(tǒng)的版本，查看它是否是一個32位的操作系統(tǒng)。這兩個步驟是需要的，因為Word 6.0以前的版本不能使用GetSystemInfo，并且Word 6.0既具有16位版又具有32位版。

Function Engine32

Engine32 = 0

If Val(AppInfo$(2)) > 5 Then

OS$ = GetSystemInfo$(23)

If Val(OS$) > 6.3 Or Len(OS$) = 0 Then Engine32 = - 1

End If

End Function

Visual Basic

雖然Visual Basic 不使用解決方案代碼，但Basic代碼通常要與包含上述的產(chǎn)品之間進行交換。Visual Basic 4.0沒有 Application.OperatingSystem 屬性（它不是VBA所專有的一部分），而是使用條件編譯＃IF和 #ELSE。如果你打算將你的代碼與其他Microsoft 產(chǎn)品共享，你應創(chuàng)建下列函數(shù)（不要在別處使用條件編譯）：

Function Engine32%()

注釋：這僅針對 VB4。

#IF WIN16

Engine32% = False

#ELSE

Engine32% = True

#ENDIF

End Function

對于更早版本的Visual Basic ，使用下列函數(shù)：

Function Engine32%()

注釋：這是用于 VB1 - VB3的； 不支持#IF。

Engine32% = False

End Function

Declare方法解決方案的示例

下列代碼演示了Declare方法解決方案（不包括Word ）：

Declare Function GetTickCount32 Lib "Kernel32" Alias "GetTickCount" () As Long

Declare Function GetTickCount16 Lib "USER" Alias "GetTickCount" () As Long

Function GetTickCount() As Long

If Engine32() Then

GetTickCount = GetTickCount32()

Else

GetTickCount = GetTickCount16()

End If

End Function

Engine32函數(shù)可用來確定進行的API調(diào)用。Declare語句指示實際的API函數(shù)名的Alias（別名），以避免偶爾的大小寫變化（32位API調(diào)用是區(qū)分大小寫的），然后在函數(shù)后添加16或32以表明API函數(shù)的位數(shù)（是16位還是32位）。

這個代碼可在除Word 外的所有Office 產(chǎn)品中復制和粘貼。WordBasic在其他Office 產(chǎn)品使用Basic之前已經(jīng)存在，并與之不同。我們將在后面探討Word 解決方案。

Declare方法解決方案的步驟

如果你正將解決方案轉換為能在16位和32位產(chǎn)品上運行的解決方案，我建議你采用下列步驟：

創(chuàng)建一個名為APICalls的新模塊；

在APICalls宏中創(chuàng)建Engine32函數(shù)；

定位解決方案中的所有Declare函數(shù)，并將它們移到APICalls中；

使用“Declare方法解決方案的示例”中的宏代碼作為一個模板，為每個API創(chuàng)建函數(shù)；

自變量應與Windows 3.1 版API調(diào)用匹配；

結果應是Win32 API調(diào)用的結果（若需要，Visual Basic 將自動轉換為Windows 3.1版）；

添加16位API Declare行，在函數(shù)名后加上16；

添加32位API Declare行，在函數(shù)名后加上32；

進行任何數(shù)據(jù)處理；

添加一個IF行以調(diào)用相應的API；

RETURE返回變量（如果有）；

測試函數(shù)。

這個過程使得在其他模塊中現(xiàn)有的調(diào)用保持原樣。一旦開發(fā)者定義并測試了APICalls模塊，她或他可以將這個模塊加入到其他解決方案中并可重復使用，這樣可節(jié)省開發(fā)時間。這個模塊的內(nèi)容獨立于解決方案，并且開發(fā)者可以重復使用這個模塊。模塊APICalls成為將來開發(fā)VBA中16位/32位解決方案的一個組成部分。

API包裝的替代解決方案

我通常在API調(diào)用上加一層包裝，而不是將API調(diào)用暴露在代碼中。例如，我會將代碼包裝在GetProfileString上，以創(chuàng)建一個名為vbGetWinIni的函數(shù)，該函數(shù)采用相同的自變量，但返回的是字符串。我在“創(chuàng)建有用的內(nèi)在Visual Basic和Microsoft Access函數(shù)”一文中論述了公用API包裝到DLL的轉換問題。

如果你以這種方式編寫代碼，你可能想要修改API包裝函數(shù)以調(diào)用相應的API，而不是額外創(chuàng)建函數(shù)。

Word Declare方法解決方案示例

Word具有不同的Declare格式和句法。Word解決方案比較復雜，這是因為你不能將16位和32位Declare語句都放在相同的宏中。

解決方案將創(chuàng)建三個宏庫：APICALL16、APICALL32（它們包含針對每個操作環(huán)境的Declare語句）以及一個具有16位/32位互操作性的宏APICALLS。這可能聽起來很混亂，那么讓我們一步一步討論。

首先，我們創(chuàng)建一個名為APICALL16的宏庫。這個宏包含所有16位API Decalre語句。

注釋：這是APICALL16 -- 所有16位Declare語句都包含在此處。

Declare Function GetTickCount16 Lib "USER" Alias "GetTickCount"() As Long

Function GetTickCount

GetTickCount = GetTickCount16

End Function

其次，我們創(chuàng)建一個名為APICALL32的宏庫。這個宏包含所有32位API Declare語句。

注釋：這是 APICALL32 -- 所有32位 Declare 語句都包含在此處。

Declare Function GetTickCount32 Lib "KERNEL32"() Alias "GetTickCount" As Long

Function GetTickCount

GetTickCount = GetTickCount32

End Function

第三步，我們創(chuàng)建一個名為APICALLS的宏庫。這個宏包含Engine32和你的解決方案代碼所要調(diào)用的過程。

注釋：這是APICALLS -- 這個宏中不包含任何Declare語句。

Function Engine32

Engine32 = 0

If Val(AppInfo$(2)) > 5 Then

OS$ = GetSystemInfo$(23)

If Val(OS$) > 6.3 Or Len(OS$) = 0 Then Engine32 = - 1

End If

End Function

Function GetTickCount

If Engine32 Then

GetTickCount = APICall32.GetTickCount

Else

GetTickCount = APICall16.GetTickCount

End If

End Function

注釋：其他API函數(shù)調(diào)用包含在此處。

你現(xiàn)在可以從你的解決方案代碼中調(diào)用這個函數(shù)。你必須以APICALLS開始你的調(diào)用，例如：

Sub MAIN

MsgBox Str$(APICalls.GetTickCount)

End Sub

Word Declare方法解決方案的步驟

如果你正將Word解決方案轉換為能在16位和32位產(chǎn)品上運行的解決方案，我建議你采用下列步驟：

創(chuàng)建一個名為APICALLS的新模塊；

在APICALLS中創(chuàng)建Engine32函數(shù)；

創(chuàng)建一個名為APICALL16的模塊；

定位解決方案中的所有16位Declare語句，并將它們移到APICALL16中；

創(chuàng)建一個名為APICALL32的新模塊；

創(chuàng)建相當?shù)?2位Declare語句，并將它們置于APICALL32中。

使用上述模板，為三個宏庫中的每個API創(chuàng)建函數(shù)；

在調(diào)用所有API前，在你的解決方案代碼中添加APICALLS；

測試每個函數(shù)。

這個過程使得在其他模塊中現(xiàn)有的調(diào)用保持原樣。一旦開發(fā)者定義和測試了這些宏，她或他可將這些宏添加到NORMAL.DOTMO模板中，并可在其他解決方案中重復使用這些宏，以節(jié)省時間。

類型庫方法

進行API調(diào)用的類型庫方法對于大多數(shù)開發(fā)者來說都是較新的內(nèi)容。在Bruce McKinney的一本將由Microsoft出版的書《Visual Basic核心》中，包含了16位API調(diào)用（WIN16.TLB）的Windows API Functions函數(shù)類型庫以及一個與32位API調(diào)用（WIN32.TLB）匹配的類型庫。一旦這些類型庫被注冊，對于16位或32位版本的Office產(chǎn)品，相應的類型庫將被裝載。

一個類型庫可提供Microsoft Excel 5.0或更高版、Microsoft Project 4.0或更高版、Visual Basic 4.0或更高版以及Microsoft Access 95或更高版產(chǎn)品的API調(diào)用的簡易途徑。所有這些Windows API調(diào)用變成了內(nèi)在函數(shù)。（參閱我的“創(chuàng)建有用的內(nèi)在Visual Basic和Microsoft Access函數(shù)”一文中的相關材料，它們僅適用于早期版本的Visual Basic和Microsoft Access）。由于對于我的讀者來說，類型庫方法是一種新的方法，我會詳細逐步進行分析。

類型庫的注冊

下列步驟可完成在你注冊中添加一個調(diào)用Windows API函數(shù)的類型庫。這樣，該類型庫對于所有使用VBA的產(chǎn)品都可用，而不僅僅限于你進行該函數(shù)注冊的產(chǎn)品。

打開任何VBA產(chǎn)品（例如，Microsoft Excel 5.0）。

為了創(chuàng)建一個模塊，從“插入”菜單中選擇“宏模塊”。

從“工具”中選擇“引用”�！耙�用”對話框的顯示如圖1。

圖1：“引用”對話框

假設你未注冊Windows API函數(shù)類型庫，單擊“瀏覽”按鈕并定位到Win32.TLB，然后單擊“確定”。對于WIN16.TLB，重復進行這個步驟。這樣WIN16.TLB和WIN32.TLB都被注冊。參見圖2。

圖2：選擇類型庫

在“瀏覽器”對話框關閉后，滾動到“引用”對話框的底部，你可以在列表中看到Windows API函數(shù)類型庫（圖3）。

圖3：Windows API 函數(shù)的注冊

關閉“引用”對話框。

從“視圖”菜單中選擇“對象瀏覽器”。

在“對象瀏覽”對話框上，在庫/工作表下拉列表框中選擇Win（Windows API 函數(shù)類型庫）。所有可用的函數(shù)將顯示在對象/模塊和方法/屬性列表框中（如圖4）。

圖4：Microsoft Excel 5.0“對象瀏覽器”顯示Bruce McKinney的Windows API函數(shù)類型庫中可用的對象和方法

在對象/模塊列表框中，選擇“Kernel”；然后在方法/屬性列表框中選擇“GetTickCount”。

單擊“粘貼”按鈕，GetTickCount出現(xiàn)在模塊中。

下面示例列出的代碼可實現(xiàn)在消息框中顯示GetTickCount API調(diào)用的返回值。

Sub Demo()

MsgBox Str$(GetTickCount)

End Sub

不需要REGISTER命令和Declare語句。上面的代碼就是你所需要的全部代碼。

類型庫方法解決方案的步驟

如果你正將解決方案轉換為能在16位和32位產(chǎn)品上運行的解決方案，我建議你采用下列步驟－－假設Windows API函數(shù)類型庫已注冊：

假設你僅使用標準的16位API調(diào)用，刪除你的所有Declare語句；

檢查“引用”對話框中的Wondows API函數(shù)檢查框。

這就是全部步驟，你已經(jīng)完成了移植。

類型庫問題

類型庫是一項發(fā)展中的技術，商業(yè)上可用的類型庫還非常少。Bruce先生在使用Windows 3.1 API調(diào)用名設計16位和32位產(chǎn)品的類型庫方面，作出了優(yōu)異的工作。盡管如此，類型庫仍存在一些問題留待解決。

Windows API函數(shù)類型庫在VBA中添加了超過1000個的新保留詞。所有包含在類型庫中API調(diào)用變成了語言的保留詞。如果你已經(jīng)有一個名為ordShell的函數(shù)，你必須更改它的名稱，這樣才不會發(fā)生與類型庫中定義的ordShell函數(shù)的沖突。

Windows API函數(shù)類型庫不包括需要用戶定義的類型（UDT）的API調(diào)用。這可能在下一版本中得到改善。

Windows API函數(shù)類型庫方法在Microsoft Excel的speadsheet（電子數(shù)據(jù)表）中是不可用的。

這種技術是非常有希望的，并將在開發(fā)Office解決方案中簡化API調(diào)用的使用。