在-Windows-7-环境下封装-Excel-VBA-代码

#/14（五）在代码框中输入如下代码：SubTest（）MsgBox"WelcometoExcelVBA!"EndSubI生工程1-ClassifCodeJI箍用） H]lTestSutiTest0眠期o*^WelcometoIxcelVEA!EndSut|"MsgBox"WelcometoExcelVBA!""这段代码显示一条弹出信息，虽然很简单，但却可以测试VisualBasic6.0封装ExcelVBA代码是否正常。代码输入完毕后,单击“工程一引用”，对封装应用程序进行设置。在弹出的“引用-工程1”对话框中，勾选“MicrosoftExcel12.0ObjectLibrary”和“MicrosoftOffice12.0ObjectLibrary”。这里的12.0指的是Office2007,Office2003是11.0，Office2010是14.0，Office2013是15.0，外国人认为13是不吉利的数字，因而是没有13.0的。勾选完毕后单击“确定”。

优先级取消I浏费追）...I-£3-引用-工程优先级取消I浏费追）...I-£3-可用的弓I用国）:ViEu：d_LEasicForApplicationEViEu：dlBasicrimtimeobjectsaridprocedm-eViEu：dlBasicubjeizts：±ndprucedureeI|T卜rr* ■rMicrosoftExcel12.0UbjectLibraryMicrosoftUffice12.0ObiectLibr：±t-vACCPEE1D111tjn_.plAiUTi1R1.U LlDI-：dl-yAccourLtFrotect1.LITypeLibr：ii-yActiveDSTyp已Libr：ii'yIIActiveMoviecontroltypelihr：ii-yActiveXDLLtoper£ormMigrationofMERepAndroidFopup1.UTypeLihraryAPClient1.0Helpf'：iTLeTypmLibraryliPPlr口1~1+1IIT■nm二TiK'k■□,ktzrrr-xllblplTL定位：D：\FrogramFilesGt86)\MicrosoftOfficeVOfficel2\Library^语言：标准（六）接下保存“工程1”到一个指定文件夹，然后单击“文件一生成工程Ldll”,如果没有什么提示，生成"ActiveXDll”成功。备工程1-MicrosoftVisualBasic[设文件由编辑但视图M工程⑻框新建I程师 Ctrl4-N0打开工程◎… Ctrl4-0温]口工程⑪，，移除工程四Q保存工程回工程另存为⑥…Classi.ds[S）CtrkSClsssl.cls与存为fA],,,I颗辞回I 保存更改的脚本回昌打印的… CtrkPD打印设置回…生成工程ldl的…牛或T程的1G）...1D:\Test\T^l.vbpI退出凶 Alt+Q（七）在ExcelVBA中调用刚才生成的“工程1幻11”。进入VBA前请首先启用宏或对宏安全性进行设置。打开或新建一个工作薄，进入VBE编辑环境，单击“工具一引用”，在弹出的“引用-VBAProject”对话框中单击“浏览”找到“工程1.dll"，单

击“打开”，最后再单击“确定”。弓I用-VIBAProject可使用的弓I用也）:回HHHH回□□□□□□□□/viEu：dlBasicForApplicatiure回HHHH回□□□□□□□□/viEu：dlBasicForApplicatiureMicroEoftExcel12.ljUbjertLibr：ar]OLEAntumaticmMicrosoftUffice1Z.0UbjertLitir：iiMicr0egftForms2.□UbiectLibr：di-Acceeeibi1ityCpIAdmin1.0Typ已LibiAccoiirLtFrotect1.LITyp已Libr：di-yActiveDSTypeLibr^ryActiveMoviecontroltypelibr：di-yActiveXDLLtopertormMigratiotlo:AndroidFopup1.UTypeLibraryAFClient1.0HelpF：drLeTypeLibr：ar^.llP「1iqi~i+1IITTJThaTiK'k■□,ktz优先级rrr索〕览:®帮助凶工程1定位： D：'TwmIA工程1.dll语言： 标准(八)在VBE编辑环境中双击“ThisWorkbook”对象，输入如下代码：PrivateSubWorkbook_Open() '注册工程1.dllShell"Regsvr32/s"&VBA.Chr(34)&ThisWorkbook.Path&"\工程1.dll"&VBA.Chr(34),vbHideEndSubPrivateSubWorkbook_BeforeClose(CancelAsBoolean)'反注册工程1.dllShell"Regsvr32/u/s"&VBA.Chr(34)&ThisWorkbook.Path&"\工程1.dll"&VBA.Chr(34),vbHideEndSub思Bookl-ThieWorkbook(代吗) .一.fliirkhoink ▼1|B0Ffl>ir«Cl«Ea-PrivatfiSuBVorkhaok_Opan.(') '注册工程1.Shell”咤svr：327s"&VB丸匚hr(34)&ThisWorkbook.Fatht”工程Ldll"&VI血匚hr®4).,vbKideEnd£ub-IrivateSub¥orklii：ii：ik_BHfi：ii-HCli：ise(C：xn.celAsBoole：drL) '应注册工程］由—Skill'■'Res=vt32『u/=,vVI丸Chr(34.)明Tki第"kh口口 也良飞工程Ldll"&TBR.Chi-HHi，几EndSub|关闭VBE环境，在Sheetl工作表中插入一个按键，添加如下代码：PrivateSubCommandButtonl_Click()DimkkAsNewClassi'Classi是类模块名称kk.Test'Test是Classi中的过程名称Setkk=NothingEndSub在上述代码中，“DimkkAsNewClassi"设置一个对象kk,"kk.Test”引用kk对象中的Test过程。（九）关闭VBE环境，单击“CommandButtonl"试试。VisualBasic6.0封装ExcelVBA代码环境安装测试完毕。如果以后出现错误提示，错误是在VisualBasic6.0中的代码。VisualBasic6.0最多只能在Windows7下兼容安装，在Windows8中