VB封装到 AUTOcad VBA分析和总结.pdf

B 封裝EXCEL VBA dll 1. 安裝VB 精簡版 6.0 新建工程選擇activeX DLL, 輸入代碼 Option Explicit Sub TestDll(excelApp As Excel.Application) Dim excelApp As Object Set excelApp = GetOjbect(, Excel.Application) Dim excelWorkBook As Excel.Workbook Dim excelWorkSheet As Excel.Worksheet Set excelWorkBook = excelApp.Workbooks(1) Set excelWorkSheet = excelWorkBook.Sheets(1) excelWorkSheet.Cells(1, 1) = Good excelApp.Visible = True MsgBox Good Dll excelWorkSheet.Cells(3, 3) = Test Dll2 excelApp.Visible = ture excelWorkBook.PrintPreview excelWorkBook.Saved = True excelworkbook.close excelApp.Quit End Sub 設置引用 2. 點擊文件生成dll 并放E:\test.dll 或其他路徑 3.註冊/反註冊 DLL （目前測試來看，必須註冊否則會在VBA 調用時提示ActiveX 無法生成對象） 4.註冊成功后,VBA 設定引用項目并編寫代碼 Option Explicit Sub test() Dim testdll As New VBACls ‘此處為實例化類而非VBAPRJ, 必須new 一個對象，否則報錯 Dim myobject As Object Set myobject = ActiveWorkbook testdll.testdll (myobject.Application) ’調用testdll 方法，傳入對象為本EXCEL Set testdll = Nothing 清空對象 End Sub 5.調試,運行后符合預定結果 總結： 本文僅為VB 對VBA dll 的簡單測試，對於中間的數據傳輸調用仍需繼續學習 1.EXCEL Application 作為對象傳入VB ，其他的使用是相同的 2.調用DLL 時，必須註冊DLL，網上也有將DLL 註冊反註冊放在VBA 裏面來實現的。 3.窗口的封裝目前無法實現。