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

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

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

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

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

5、cel VBA 代碼試試。（四）運行Visual Basic 6.0中文版，在自動彈出的“新建工程”對話框中選擇“ActiveX Dll”。（五）在代碼框中輸入如下代碼：Sub Test() MsgBox "Welcome to Excel VBA!"End Sub“MsgBox "Welcome to Excel VBA!"”這段代碼顯示一條彈出信息，雖然很簡單，但卻可以測試Visual Basic 6.0封裝Excel VBA 代碼是否正常。代碼輸入完畢后，單擊“工程引用”，對封裝應用程序進行設置。在彈出的“引用-工程1”對話框中，勾選“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，外國人認為13是不吉利的數(shù)字，因而是沒有13.0的。勾選完畢后單擊“確定”。（六）接下保存“工程1”到一個指定文件夾，然后單擊“文件生成工程1.dll”，如果沒有什么提示，生成“ActiveX Dll”成功。（七）在Excel VBA 中調用剛才生成的“工程1.dll”。進入VBA前請首先啟用宏或對宏安全性進行設

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

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

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