button里執行
我們一直強調成都網站設計、成都網站建設對于企業的重要性,如果您也覺得重要,那么就需要我們慎重對待,選擇一個安全靠譜的網站建設公司,企業網站我們建議是要么不做,要么就做好,讓網站能真正成為企業發展過程中的有力推手。專業網站設計公司不一定是大公司,成都創新互聯公司作為專業的網絡公司選擇我們就是放心。
sleep 5000 '等5秒
call xxxx '另外的過程代碼
即可。
Public ClassForm1 Private Sub Button1_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click ‘button1按下時的代碼 End Sub Private Sub Form1_Load(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load Button1_Click(sender, e) End SubEnd Class/p
一定要先在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") '創建EXCEL對象
Set xlBook = xlApp.Workbooks.Open(FileName) '打開已經存在的EXCEL工件簿文件
……
xlBook.Close (True) '保存并關閉工作簿
xlApp.Quit '結束EXCEL對象
Set xlApp = Nothing '釋放xlApp對象
end sub
網頁題目:vb點虐
執行按鈕 vbnet adodb
文章URL:http://www.yijiale78.com/article20/ddjoojo.html
成都網站建設公司_創新互聯,為您提供ChatGPT、企業建站、網站維護、定制開發、Google、自適應網站
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯