VBA封裝為DLL及調(diào)用

VBA封裝為DLL及調(diào)用使用程序：1、MicrosoftOfficeExcel20032 、MicrosoftVisualBasic6.0案例：在工作表的

C1

單元格得出

A1

單元格

+B1

單元格的值。設(shè)計(jì)的

VBA

代碼：

SubTest()

OnErrorResumeNext Range("C1")=Cells(1,1)+Cells(1,2)EndSub 第一部分、使用VB6.0制作DLL文件一、啟動(dòng)VB6.0，新建一個(gè)ActiveXDLL工程：二、引用：在VB中對(duì)Excel的引用不同版本的EXCEL在“引用”窗口里顯示的版本號(hào)也不同：EXCEL2000（MicrosoftOffice9.0）EXCEL2002（MicrosoftOffice10.0），即ExcelXPEXCEL2003（MicrosoftOffice11.0）EXCEL2007（MicrosoftOffice12.0）EXCEL2010（MicrosoftOffice14.0）EXCEL2013（MicrosoftOffice15.0）三、修改ActiveXDLL的工程名稱和類模塊名稱四、編寫(xiě)代碼：在代碼窗口輸入代碼， 過(guò)程名稱為 Test：SubTest()OnErrorResumeNext

DimVBt,YB

'定義變量VBt

SetVBt=GetObject(,"Excel.Application")

'使VBt

表示為

EXCEL

對(duì)象

SetYB=VBt.ActiveSheet'使YB表示為EXCEL的當(dāng)前工作表'注意要在對(duì)象前加上 YB變量以表示是 EXCEL當(dāng)前工作表的對(duì)象 YB.Range("C1") =YB.Cells(1,1).Value+YB.Cells(1,2).ValueEndSub五、設(shè)置工程屬性 (為使開(kāi)發(fā)的程序更規(guī)范，可以對(duì)工程屬性加以描述【非必要設(shè)置，可以省略】 )： 六、保存工程、測(cè)試、生成DLL文件：1、保存工程：保存本工程以作為將來(lái)修改代碼和升級(jí)程序的需要；2、測(cè)試工程：執(zhí)行快捷工具欄上的“啟動(dòng)”按鈕，檢查是否存在錯(cuò)誤；3、生成DLL文件：制作DLL文件。第二部分、調(diào)用 DLL文件一、在VBE中調(diào)用DLL文件調(diào)用DLL文件，要分兩步走：先注冊(cè)DLL，再引用DLL。1、注冊(cè)DLL（使之放在可引用的列表上）：注冊(cè)DLL也可以使用代碼來(lái)做，但那樣比較復(fù)雜，也存在很多問(wèn)題，建議一般使用手工來(lái)注冊(cè)。（這里應(yīng)該先設(shè)計(jì)好DLL文件放在硬盤(pán)的位置，因?yàn)楹竺嬉肈LL文件的代碼也應(yīng)該是指向這個(gè)位置的。） 先打開(kāi)EXCEL，再打開(kāi)“VisualBasic編輯器”2、引用DLL（這樣每次打開(kāi)打開(kāi)文件時(shí)，就不必再去那個(gè)引用列表里打個(gè)勾了）① DLL文件放在與 EXCEL文件同一個(gè)文件夾內(nèi)在 ThisWorkbook 中添加如下代碼： PrivateSubWorkbook_Open()' 打開(kāi)文件時(shí)加載要引用的 DLL文件shell"Regsvr32/s"&Chr(34)&ThisWorkBook.path&"\VBADLL.dll"&Chr(34)EndSubPrivateSubWorkbook_BeforeClose(CancelAsBoolean)'關(guān)閉文件之前卸載引用的DLL文件shell"Regsvr32/s/u"&Chr(34)&ThisWorkBook.path&"\VBADLL.dll"&Chr(34)EndSub'/s 參數(shù)是防止出現(xiàn)確認(rèn)窗口；/u參數(shù)為取消引用。②DLL文件放在固定文件夾內(nèi)，如果你有多個(gè) XLS文檔需要使用到同一個(gè) DLL文件，但這些 XLS文檔又不可能都與DLL文件放在同一個(gè)文件夾， 則需要將 DLL文件放置到一個(gè)固定文件夾，這樣，只需要將上面的代碼ThisWorkBook.path&"\VBADLL.dll" 換成一個(gè)固定位置即可。注意：有時(shí)間可能出現(xiàn)某些錯(cuò)誤，如提示“變量類型未定義”等，可能是引用后改變了文件的位置或改變了文件的名稱，即使再重新再改回來(lái)也可能會(huì)出現(xiàn)這些問(wèn)題，所以，在正確注冊(cè)及引用以后，最好不要再去修改這個(gè) DLL文件。如果出現(xiàn)問(wèn)題，重新注冊(cè)一次，保證注冊(cè)的 DLL文件的位置正確即可。二、新建一個(gè)模塊，輸入調(diào)用 DLL文件程序的過(guò)程：SubDLLtest()

DimABCAsNewVBAtest

'定義ABC

為新類，即為

DLL

文件中的類模塊

VBAtestABC.Test

'調(diào)用

DLL

中提供的過(guò)程，來(lái)完成原來(lái)在

VBA中的功能，起到隱藏代碼的效果 SetABC=Nothing '釋放類資源 EndSub三、在工作表中運(yùn)行 DLLtest宏即可實(shí)現(xiàn)調(diào)用： 綜上所述，感覺(jué)封裝