一定要先在VB中添加excel引用。
專(zhuān)業(yè)從事做網(wǎng)站、網(wǎng)站設(shè)計(jì),高端網(wǎng)站制作設(shè)計(jì),小程序定制開(kāi)發(fā),網(wǎng)站推廣的成都做網(wǎng)站的公司。優(yōu)秀技術(shù)團(tuán)隊(duì)竭力真誠(chéng)服務(wù),采用H5高端網(wǎng)站建設(shè)+CSS3前端渲染技術(shù),響應(yīng)式網(wǎng)站建設(shè),讓網(wǎng)站在手機(jī)、平板、PC、微信下都能呈現(xiàn)。建站過(guò)程建立專(zhuān)項(xiàng)小組,與您實(shí)時(shí)在線(xiàn)互動(dòng),隨時(shí)提供解決方案,暢聊想法和感受。
在工程中引用Microsoft Excel類(lèi)型庫(kù): 從"工程"菜單中選擇"引用"欄;選擇Microsoft Excel 11.0 Object Library(EXCEL2003),然后選擇"確定"。表示在工程中要引用EXCEL類(lèi)型庫(kù)。
調(diào)用excel的工作表中的命令按鈕,代碼如下:
Private Sub Command1_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet
Dim FileName, SheetName As String
FileName = "e:\data.xls" '打開(kāi)的工作簿路徑名稱(chēng)
SheetName = "sheet1" '命令按鈕所在的工作表名
Set xlApp = CreateObject("Excel.Application") '創(chuàng)建EXCEL對(duì)象
Set xlBook = xlApp.Workbooks.Open(FileName) '打開(kāi)已經(jīng)存在的EXCEL工件簿文件
……
xlBook.Close (True) '保存并關(guān)閉工作簿
xlApp.Quit '結(jié)束EXCEL對(duì)象
Set xlApp = Nothing '釋放xlApp對(duì)象
end sub
應(yīng)因?yàn)檫@個(gè)按鈕你之前雙擊過(guò)一次,而后你做了某些操作導(dǎo)致這個(gè)按鈕的click方法失效,因此,你再一次點(diǎn)擊按鈕,就會(huì)出現(xiàn)新的點(diǎn)擊事件方法。
先要新建一個(gè)index為0的菜單(設(shè)置為不可見(jiàn)),然后把動(dòng)態(tài)生產(chǎn)的菜單加入進(jìn)來(lái),這樣就可以使用遍歷菜單的方法,并判讀下當(dāng)前按下的菜單名稱(chēng)。
參看:網(wǎng)頁(yè)鏈接
軟糖來(lái)回答羅。
“調(diào)用事件”有歧義,你的意思是不是下面兩種:
調(diào)用事件處理方法
直接調(diào)用對(duì)象名.方法名
'例如有這樣一個(gè)按鈕點(diǎn)擊事件處理程序
Private?Sub?Button1_Click(sender?As?Object,?e?As?EventArgs)?Handles?Button1.Click
秒表.Start()
End?Sub
'調(diào)用它直接用
Button1_Click(me,?new?EventArgs())
引發(fā)事件
Button1.Click.Invoke(me,?new?EventArgs())
另外?RaiseEvent 也可以引發(fā)事件,但不能使用 RaiseEvent?來(lái)引發(fā)派生窗體的控件事件,只有自己定義的類(lèi)的事件才能用它引發(fā)。
如滿(mǎn)意,請(qǐng)采納,謝謝。
TextBox1_TextChanged() 'TextBox1.text屬性改變時(shí)發(fā)生
?Label1_Click() 'Label1被鼠標(biāo)點(diǎn)擊時(shí)發(fā)生
?MenuItem1_Click() 'MenuItem1被鼠標(biāo)點(diǎn)擊時(shí)發(fā)生
?Label1_MouseDown() '鼠標(biāo)左鍵在Label1上按下時(shí)發(fā)生
?Label1_DoubleClick() '有點(diǎn)難我也不太清楚,在MSDN上查了下:
雙擊操作由用戶(hù)操作系統(tǒng)的鼠標(biāo)設(shè)置確定。用戶(hù)可以設(shè)置兩次單擊鼠標(biāo)按鈕之間的時(shí)間以便將這兩次單擊認(rèn)為是雙擊而不是兩次單擊。每當(dāng)雙擊控件時(shí),就會(huì)引發(fā) Click 事件。例如,如果您有 Form 的 Click 和 DoubleClick 事件的事件處理程序,則當(dāng)雙擊該窗體并同時(shí)調(diào)用這兩個(gè)方法時(shí),會(huì)引發(fā) Click 和 DoubleClick 事件。如果雙擊一個(gè)控件并且該控件不支持 DoubleClick 事件,則 Click 事件可能被引發(fā)兩次。
Label1_MouseUp() '鼠標(biāo)左鍵在Label1上放開(kāi)時(shí)發(fā)生,一般與Label1_MouseDown()搭配使用
?TextBox2_MouseMove() '鼠標(biāo)停留在TextBox2上時(shí)發(fā)生
?Form1_load() '加載窗體時(shí)發(fā)生
?Form1_click() '點(diǎn)擊窗體時(shí)發(fā)生
?Form1_Resize() '窗體調(diào)整大小后發(fā)生
Form1_KeyPress() '當(dāng)窗體有焦點(diǎn)鍵盤(pán)有操作時(shí)發(fā)生
?Form1_KeyDown() '當(dāng)窗體具有焦點(diǎn)并鍵盤(pán)有按鍵按下時(shí)發(fā)生
?Form1_KeyUp() '當(dāng)窗體焦點(diǎn)并鍵盤(pán)有按鍵放開(kāi)時(shí)發(fā)生