本文用一簡(jiǎn)例來演示如何將一正常在VBA中運(yùn)行的代碼移植到VB制作的DLL中去，并介紹如何在VBA中進(jìn)行調(diào)用。這僅僅是最初級(jí)的介紹，希望能對(duì)此內(nèi)容想了解的版友們一些幫助，而已掌握該技術(shù)的FANS們完全可以跳過本文。 先來了解一下什么是DLL：DLL是Dynamic Link Library的縮寫，意為動(dòng)態(tài)鏈接庫。在Windows中，許多應(yīng)用程序并不是一個(gè)完整的可執(zhí)行文件，它們被分割成一些相對(duì)獨(dú)立的動(dòng)態(tài)鏈接庫，即DLL文件，放置于系統(tǒng)中。當(dāng)我們執(zhí)行某一個(gè)程序時(shí)，相應(yīng)的DLL文件就會(huì)被調(diào)用。一個(gè)應(yīng)用程序可有多個(gè)DLL文件，一個(gè)DLL文件也可能被幾個(gè)應(yīng)用程序所共用，這樣的DLL文件被稱為共享DLL文件。DLL文件一般被存放在C:\Windows\System目錄下。 因此，DLL文件可以看作是一個(gè)程序擴(kuò)展函數(shù)庫，成為應(yīng)用軟件程序的外掛接口。就象我們常在程序中用的WINDOWS API，就是如此，它是微軟提供給程序員的函數(shù)寶庫，用戶只需了解函數(shù)功能與調(diào)用規(guī)則就可以拿來使用，而不用知道也不需要知道具體源碼。也正因?yàn)榇耍�現(xiàn)在許多VBA開發(fā)者在保護(hù)其代碼時(shí)也多采用此法來維護(hù)其合法權(quán)益。
現(xiàn)在開始。假如我們要編這么一段代碼：將工作表Sheet1的A1單元格的數(shù)值與B1單元格的數(shù)值相加填寫到C1單元格去（嘿嘿，這是極簡(jiǎn)單的了，只是用來說明問題），在VBA模塊我們可以編寫這樣的代碼： Sub test() On Error Resume Next Dim i, j As Integer With Worksheets("Sheet1") i = .Cells(1, 1).Value j = .Cells(1, 2).Value .Cells(1, 3) = i + j End With End Sub 執(zhí)行上面的宏，會(huì)發(fā)現(xiàn)C1單元格自動(dòng)會(huì)出現(xiàn)A1+B1的結(jié)果了。 下面我們?cè)赩B中生成包含以上宏功能的函數(shù)（子程序）的DLL文件。打開VB，“文件”-“新建工程”-“ActiveX DLL”，此時(shí)會(huì)彈出class1模塊代碼窗口，將如下代碼寫入： Sub test() On Error Resume Next Dim i, j As Integer Dim EB Set EB = GetObject(, "Excel.Application") With EB.ActiveSheet i = .Cells(1, 1).Value j = .Cells(1, 2).Value .Cells(1, 3) = i + j End With Set EB = Nothing End Sub 在生成DLL之前，注意確保VB里"工程"---"引用"里"Microsoft Excel 9.0 Object Library"前面的勾已打上，再就是正確設(shè)定好DLL描述與名稱。菜單“工程”----“工程屬性”---“工程描述”，里面可以寫上你的DLL功能名稱或簡(jiǎn)介或版本號(hào)�！耙晥D”---“屬性”，設(shè)定名稱為你在其他開發(fā)環(huán)境中欲使用的引用名稱，如“Mytest”。好，現(xiàn)在點(diǎn)擊菜單“文件”---“生成…dll”，會(huì)彈出路徑與文件取名窗，按你的意思選擇與輸入好路徑和即將生成的DLL文件名，按確定就會(huì)完成DLL的生成工作。 此時(shí)DLL已生成在你指定的目錄下了，當(dāng)前工程保不保存就隨便你自己了，如果以后還想再編輯修改的話，當(dāng)然得取個(gè)文件名保存好：）。生成的DLL如果正確的話，VBA中只要引用后就可正常調(diào)用了。
現(xiàn)在回到EXCEL VBA開發(fā)環(huán)境中來，先對(duì)剛生成的DLL進(jìn)行一下引用。關(guān)于引用，可以手工引用，也可以用代碼來做。手工引用的步驟是：在VBE窗口中，菜單“工具”---“引用”，會(huì)彈出如下窗口：

剛才生成的DLL，選擇打勾確定即可。代碼引用：
Shell "regsvr32 /s " & "…………..dll", vbHide，加s參數(shù)是防止出現(xiàn)確認(rèn)窗口，影響界面。取消引用則使用/u參數(shù)。
然后在VBA中寫調(diào)用的代碼： Sub DLLtest()
Dim abc As New Mytest ‘定義abc為新類，即在DLL文件中定義的
abc.test ‘調(diào)用DLL中提供的過程，來完成原來在VBA中的功能，起到隱藏代碼的效果
Set abc = Nothing End Sub 提供的示例中，將VBA方法與DLL調(diào)用放在了一起，便于大家進(jìn)行比較。另外，DLL文件的制作遠(yuǎn)比我在這里介紹的復(fù)雜，還會(huì)涉及到類初始化、自定義屬性與事件等內(nèi)容，不過如果有時(shí)我們僅僅需要借助其來保護(hù)我們的VBA代碼的話，掌握這部分也就足夠了，呵呵。