十年網站開發(fā)經驗 + 多家企業(yè)客戶 + 靠譜的建站團隊
量身定制 + 運營維護+專業(yè)推廣+無憂售后,網站問題一站解決
第一步,新建項目。
網站建設哪家好,找成都創(chuàng)新互聯公司!專注于網頁設計、網站建設、微信開發(fā)、微信小程序開發(fā)、集團企業(yè)網站建設等服務項目。為回饋新老客戶創(chuàng)新互聯還提供了和布克賽爾蒙古免費建站歡迎大家使用!
1
打開vb.net,也就是打開Microsoft visual studio 2010,第一次使用的時候設置為basic語言就行。新建項目--打開excel。
2
新建成功。
END
第二步,添加引用。
1
“項目”--“添加引用”。
2
添加Microsoft Excel 14.0 Object Library。
END
第三步,添加打開文件對話框工具。
1
工具箱--對話框--openfiledialog。
2
添加成功。
END
第四步,添加命令按鈕控件。
1
工具箱--公共控件--button。
在控件上右擊鼠標,進入屬性設置。
2
text屬性設置為“打開excel”。
3
name屬性也設置為“打開excel”。
END
第五步,編寫程序。
1
鼠標雙擊命令按鈕,進入編程界面,編寫程序。
END
第六步,運行程序。
1
鼠標單擊啟動調式圖標,程序開始運行。
2
單擊打開excel命令按鈕,調用打開文件對話框,選擇自己要打開的excel文件。
END
第七步,保存程序。
第一次程序運行完,關閉程序,出現關閉項目提示,選擇保存。
2
選好自己要保存的位置。
一定要先在VB中添加excel引用。
在工程中引用Microsoft Excel類型庫: 從"工程"菜單中選擇"引用"欄;選擇Microsoft Excel 11.0 Object Library(EXCEL2003),然后選擇"確定"。表示在工程中要引用EXCEL類型庫。
調用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" '打開的工作簿路徑名稱
SheetName = "sheet1" '命令按鈕所在的工作表名
Set xlApp = CreateObject("Excel.Application") '創(chuàng)建EXCEL對象
Set xlBook = xlApp.Workbooks.Open(FileName) '打開已經存在的EXCEL工件簿文件
……
xlBook.Close (True) '保存并關閉工作簿
xlApp.Quit '結束EXCEL對象
Set xlApp = Nothing '釋放xlApp對象
end sub
軟糖
來回答羅。
“調用事件”有歧義,你的意思是不是下面兩種:
調用事件處理方法
直接調用對象名.方法名
'例如有這樣一個按鈕點擊事件處理程序
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
秒表.Start()
End Sub
'調用它直接用
Button1_Click(me, new EventArgs())引發(fā)事件
Button1.Click.Invoke(me, new EventArgs())另外 RaiseEvent
也可以引發(fā)事件,但不能使用
RaiseEvent 來引發(fā)派生窗體的控件事件,只有自己定義的類的事件才能用它引發(fā)。
如滿意,請采納,謝謝。
用callbyname,以下請參考;用變量值做作被調用的過程或者函數的名稱;
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