資源描述：
《使用VB6為Excel開發(fā)COM加載項(xiàng)》由會員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。
1、使用VB6為Excel開發(fā)COM加載項(xiàng)本文通過兩個簡單的示例，詳細(xì)描述了使用VB6開發(fā)ExcelCOM加載項(xiàng)的步驟。在本文的后面，還介紹了Excel2007中COM加載項(xiàng)的一些變化。示例1步驟1：啟動VB6，在“新建工程”對話框中選擇“外接程序”，單擊“打開”按鈕，如下圖1所示。圖1：“新建工程”對話框VB6將自動創(chuàng)建一個名為MyAddIn的工程，包含一個名為frmAddIn的窗體和一個名為Connect的Designer類變量。步驟2：將工程名稱修改為MyFirstCOMAddIn。步驟3：刪除默認(rèn)的窗體frmAddIn。步驟4：刪除Connect中的全部代碼
2、。步驟5：在工程資源管理器窗口雙擊Connect打開加載項(xiàng)設(shè)計(jì)器窗口，并對其進(jìn)行相應(yīng)的設(shè)置，如下圖2所示。使用VB6為Excel開發(fā)COM加載項(xiàng)圖2：進(jìn)行加載項(xiàng)設(shè)置如上圖2所示，在“通用”選項(xiàng)卡中設(shè)置COM加載項(xiàng)在Excel的COM加載項(xiàng)對話框中顯示的名稱及相應(yīng)的描述。設(shè)置“應(yīng)用程序”為MicrosoftExcel，根據(jù)用戶計(jì)算機(jī)上安裝的Excel選擇相應(yīng)的應(yīng)用程序版本，這里選擇“MicrosoftExcel14.0”，即Excel2010。選擇初始化加載行為為“Startup”，即在Excel啟動時運(yùn)行該加載項(xiàng)，還可以選擇其它的加載選項(xiàng)。加載項(xiàng)設(shè)置說明：?外接
3、程序顯示名稱：填寫加載項(xiàng)的名字?外接程序描述：描述所創(chuàng)建的加載項(xiàng)的作用和功能?應(yīng)用程序：使用所創(chuàng)建的加載項(xiàng)的應(yīng)用程序。?應(yīng)用程序版本：使用所創(chuàng)建的加載項(xiàng)的應(yīng)用程序的版本。?初始化加載行為：當(dāng)應(yīng)用程序開啟時，是否自動裝載該加載項(xiàng)，有四個選項(xiàng)。若設(shè)置為Startup，則Excel啟動時裝載該加載項(xiàng)；若設(shè)置為Loadondemand，則在Excel中需要使用該加載項(xiàng)時再裝載該加載項(xiàng)。步驟6：在工程資源管理器窗口的Connect中單擊右鍵，選擇“查看代碼”，打開代碼窗口。步驟7：在代碼窗口頂部左側(cè)的對象列表框中選擇AddinInstance對象，在右側(cè)的事件列表框中選擇
4、OnConnection事件，輸入的代碼如下：-2-fanjy_EH使用VB6為Excel開發(fā)COM加載項(xiàng)PrivateSubAddinInstance_OnConnection(ByValApplicationAsObject,_ByValConnectModeAsAddInDesignerObjects.ext_ConnectMode,_ByValAddInInstAsObject,custom()AsVariant)MsgBox"這是使用VB6創(chuàng)建的COM加載項(xiàng)."EndSub然后，再在事件列表框中選擇OnDisconnection事件，輸入的代碼如下：P
5、rivateSubAddinInstance_OnDisconnection(_ByValRemoveModeAsAddInDesignerObjects.ext_DisconnectMode,custom()AsVariant)MsgBox"Excel工作簿將要關(guān)閉,里面的數(shù)據(jù)已經(jīng)保存了嗎？"EndSub步驟8：保存所有的工程文件。步驟9：單擊菜單“文件——生成MyFirstCOMAddIn.dll”。至此，這個簡單的COM加載項(xiàng)編寫完成。步驟10：打開Excel2010，將會出現(xiàn)一個消息框，顯示在COM加載項(xiàng)的OnConnection事件中設(shè)置的消息，如下圖
6、3所示。圖3：這個加載項(xiàng)運(yùn)行后顯示的結(jié)果關(guān)閉Excel2010時，將會出現(xiàn)一個消息框，顯示在COM加載項(xiàng)的OnDisconnection事件中設(shè)置的消息，如下圖4所示。圖4：這個加載項(xiàng)運(yùn)行后顯示的結(jié)果這個加載項(xiàng)之所以會在Excel2010會話開啟時運(yùn)行，是因?yàn)槲覀冊谠O(shè)置加載項(xiàng)時選擇了選項(xiàng)“Startup”，即在Excel啟動時加載該加載項(xiàng)。單擊“開發(fā)工具”選項(xiàng)卡“加載項(xiàng)”組中的“COM加載項(xiàng)”，顯示“COM加載項(xiàng)”對話框，列出了所有可用的COM加載項(xiàng)，如下圖5所示。在該對話框中，可以取消某加載項(xiàng)前的復(fù)選，使其不可用，或者通過“刪除”按鈕刪除該加載項(xiàng)。-3-fan
7、jy_EH使用VB6為Excel開發(fā)COM加載項(xiàng)圖5：控制加載項(xiàng)的使用示例2：一個菜單COM加載項(xiàng)本示例的步驟與示例1相同，但代碼稍微復(fù)雜一些。步驟1：啟動VB6，在“新建工程”中選擇“外接程序”，打開新工程。圖6：“新建工程”對話框步驟2：在工程資源管理器中將會有一個名為frmAddIn的窗體和一個名為Connect的設(shè)計(jì)器對象，如下圖7所示。圖7：工程資源管理器中的項(xiàng)目-4-fanjy_EH使用VB6為Excel開發(fā)COM加載項(xiàng)移除工程資源管理器窗口中的frmAddIn窗體，設(shè)置Connect設(shè)計(jì)器對象。步驟3：雙擊設(shè)計(jì)器對象，出現(xiàn)一個設(shè)計(jì)器窗體，對其進(jìn)行設(shè)
8、置，如下圖8所示。圖8：
