在-Windows-7-環(huán)境下封裝-Excel-VBA-代碼

1、在 Windows 7 環(huán)境下封裝 Excel VBA 代碼一、安裝Visual Basic 6.0在Windows 7 下安裝Visual Basic 6.0安裝會(huì)遇到一些兼容性問(wèn)題，而Windows XP 則很順利。當(dāng)某些程序必須要在Windows 7 下調(diào)試的時(shí)候，就一定要面對(duì)Windows 7 了。（一）進(jìn)入安裝文件夾，點(diǎn)擊“Setup.exe”運(yùn)行Visual Basic 6.0安裝程序。（二）出現(xiàn)兼容性問(wèn)題提示，單擊“運(yùn)行程序”。（三）進(jìn)入Visual Basic 6.0安裝向?qū)?，單擊“下一步”。（四）出現(xiàn)“最終用戶(hù)許可協(xié)議”對(duì)話框，選擇“接受協(xié)議”，單擊“下一步”。（五）進(jìn)入“產(chǎn)

2、品和用戶(hù)ID”對(duì)話框，在“請(qǐng)輸入產(chǎn)品的ID號(hào)”處輸入ID號(hào)，全部輸入0至9中的任意一個(gè)，然后單擊“下一步”。（六）保持默認(rèn)選擇“安裝Visual Basic 6.0中文企業(yè)版”，單擊“下一步”。（七）選擇公用安裝文件夾，采取默認(rèn)或自定義均可。然后單擊“下一步”（八）再次出現(xiàn)兼容性問(wèn)題提示，直接單擊“運(yùn)行程序”。（九）進(jìn)入Visual Basic 6.0 安裝程序，單擊“繼續(xù)”后，單擊“確定”。（十）出現(xiàn)“發(fā)現(xiàn)了舊版本的Visual SourceSafe”提示，選擇“是”（十一）在選擇安裝類(lèi)型對(duì)話框中，封裝 Excel VBA 代碼選擇“典型安裝”即可。（十二）出現(xiàn)“使用新的Visual Sou

3、rceSafe數(shù)據(jù)庫(kù)格式”提示，選擇“是”（十三）開(kāi)始Visual Basic 6.0安裝。（十四）安裝完畢，單擊“重新啟動(dòng)Windows”。重新啟動(dòng)Windows后，自動(dòng)彈出下面的對(duì)話框。如果需要幫助文檔，可單擊“下一步”繼續(xù)安裝MSDN，對(duì)于Visual Basic 6.0的初學(xué)者，建議安裝。在安裝MSDN過(guò)程中，插入MSDN安裝盤(pán)按照提示進(jìn)行安裝。如果不需要幫助文檔，單擊“退出”，Visual Basic 6.0安裝完成。二、運(yùn)行Visual Basic 6.0由于在Windows 7下運(yùn)行Visual Basic 6.0存在兼容性問(wèn)題，因此必須對(duì)其進(jìn)行設(shè)置才可正常運(yùn)行。（一）單擊“開(kāi)始

4、所有程序Microsoft Visual Basic 6.0 中文版”，用鼠標(biāo)右擊“Microsoft Visual Basic 6.0 中文版”，點(diǎn)擊“屬性”。（二）在彈出的“Microsoft Visual Basic 6.0 中文版屬性”對(duì)話框中，勾選“以兼容模式運(yùn)行這個(gè)程序”與“以管理員身份運(yùn)行此程序”其中之一，如兩者都不勾選，也可在點(diǎn)擊“Microsoft Visual Basic 6.0 中文版”時(shí)以管理員身份運(yùn)行，否則將彈出下面的錯(cuò)誤：（三）勾選“禁用視覺(jué)主題”、“禁用桌面元素”或兩者均勾選，以使程序運(yùn)行流暢。至此，Visual Basic 6.0可以正常運(yùn)行了。我們封閉一個(gè)Ex

5、cel VBA 代碼試試。（四）運(yùn)行Visual Basic 6.0中文版，在自動(dòng)彈出的“新建工程”對(duì)話框中選擇“ActiveX Dll”。（五）在代碼框中輸入如下代碼：Sub Test() MsgBox "Welcome to Excel VBA!"End Sub“MsgBox "Welcome to Excel VBA!"”這段代碼顯示一條彈出信息，雖然很簡(jiǎn)單，但卻可以測(cè)試Visual Basic 6.0封裝Excel VBA 代碼是否正常。代碼輸入完畢后，單擊“工程引用”，對(duì)封裝應(yīng)用程序進(jìn)行設(shè)置。在彈出的“引用-工程1”對(duì)話框中，勾選“Micros

6、oft Excel 12.0 Object Library”和“Microsoft Office 12.0 Object Library”。這里的12.0指的是Office 2007，Office 2003是11.0，Office 2010是14.0，Office 2013是15.0，外國(guó)人認(rèn)為13是不吉利的數(shù)字，因而是沒(méi)有13.0的。勾選完畢后單擊“確定”。（六）接下保存“工程1”到一個(gè)指定文件夾，然后單擊“文件生成工程1.dll”，如果沒(méi)有什么提示，生成“ActiveX Dll”成功。（七）在Excel VBA 中調(diào)用剛才生成的“工程1.dll”。進(jìn)入VBA前請(qǐng)首先啟用宏或?qū)臧踩赃M(jìn)行設(shè)

7、置。打開(kāi)或新建一個(gè)工作薄，進(jìn)入VBE編輯環(huán)境，單擊“工具引用”，在彈出的“引用-VBAProject”對(duì)話框中單擊“瀏覽”找到“工程1.dll”，單擊“打開(kāi)”，最后再單擊“確定”。（八）在VBE編輯環(huán)境中雙擊“ThisWorkbook”對(duì)象，輸入如下代碼：Private Sub Workbook_Open() '注冊(cè)工程1.dllShell "Regsvr32 /s " & VBA.Chr(34) & ThisWorkbook.Path & "工程1.dll" & VBA.Chr(34), vbHideEnd Su

8、bPrivate Sub Workbook_BeforeClose(Cancel As Boolean) '反注冊(cè)工程1.dllShell "Regsvr32 /u /s " & VBA.Chr(34) & ThisWorkbook.Path & "工程1.dll" & VBA.Chr(34), vbHideEnd Sub關(guān)閉VBE環(huán)境，在Sheet1工作表中插入一個(gè)按鍵，添加如下代碼：Private Sub CommandButton1_Click() Dim kk As New Class1 ' Cla

9、ss1是類(lèi)模塊名稱(chēng) kk.Test ' Test是Class1中的過(guò)程名稱(chēng) Set kk = NothingEnd Sub在上述代碼中，“Dim kk As New Class1”設(shè)置一個(gè)對(duì)象kk，“kk.Test”引用kk對(duì)象中的Test過(guò)程。（九）關(guān)閉VBE環(huán)境，單擊“CommandButton1”試試。Visual Basic 6.0 封裝Excel VBA 代碼環(huán)境安裝測(cè)試完畢。如果以后出現(xiàn)錯(cuò)誤提示，錯(cuò)誤是在Visual Basic 6.0中的代碼。Visual Basic 6.0最多只能在Windows 7下兼容安裝，在Windows 8中就不能安裝了。在封裝EXcel VBA代碼時(shí)需注意，在Wind