用callbyname,以下請(qǐng)參考;用變量值做作被調(diào)用的過(guò)程或者函數(shù)的名稱;
創(chuàng)新互聯(lián)建站是一家集成都做網(wǎng)站、成都網(wǎng)站設(shè)計(jì)、網(wǎng)站頁(yè)面設(shè)計(jì)、網(wǎng)站優(yōu)化SEO優(yōu)化為一體的專業(yè)的建站公司,已為成都等多地近百家企業(yè)提供網(wǎng)站建設(shè)服務(wù)。追求良好的瀏覽體驗(yàn),以探求精品塑造與理念升華,設(shè)計(jì)最適合用戶的網(wǎng)站頁(yè)面。 合作只是第一步,服務(wù)才是根本,我們始終堅(jiān)持講誠(chéng)信,負(fù)責(zé)任的原則,為您進(jìn)行細(xì)心、貼心、認(rèn)真的服務(wù),與眾多客戶在蓬勃發(fā)展的市場(chǎng)環(huán)境中,互促共生。
Sub?FT1()
Dim?T1?As?Integer
Dim?T2?As?Integer
Dim?T3?As?Integer
T1?=?2
T2?=?3
T3?=?T1?+?T2
Debug.Print?T3
End?Sub
Private?Sub?Command1_Click()
Dim?F?As?String
F?=?"FT1"
CallByName?Me,?F,?VbMethod
End?Sub
一定要先在VB中添加excel引用。
在工程中引用Microsoft Excel類型庫(kù): 從"工程"菜單中選擇"引用"欄;選擇Microsoft Excel 11.0 Object Library(EXCEL2003),然后選擇"確定"。表示在工程中要引用EXCEL類型庫(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)的工作簿路徑名稱
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
軟糖
來(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ā)派生窗體的控件事件,只有自己定義的類的事件才能用它引發(fā)。
如滿意,請(qǐng)采納,謝謝。