VB源碼 Excel表單（vb語言基本代碼Excel編程）

本篇文章給大家談談VB源碼 Excel表單，以及vb語言基本代碼excel編程對應的知識點，希望對各位有所幫助，不要忘了收藏本站喔。 今天給各位分享VB源碼 Excel表單的知識，其中也會對vb語言基本代碼Excel編程進行解釋，如果能碰巧解決你現在面臨的問題，別忘了關注本站，現在開始吧！

本文目錄一覽：

• 1、VB 操作EXCEL 源碼
• 2、怎樣在EXCEL中創建自定義菜單 vb源代碼
• 3、用VB制作excel表格

VB 操作EXCEL 源碼

'工程-引用-Microsoft Excel Object library(勾選此項)
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
'寫文件
Private Sub Command1_Click()
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add '新建EXCEL工件簿文件
Set xlSheet = xlBook.Worksheets(1)
For i = 1 To 10 '10行
For j = 1 To 10 '10列
xlSheet.Cells(i, j) = i * j
Next j
Next i
xlSheet.SaveAs "d:\test.xls" '按指定文件名存盤
xlApp.Quit '結束EXCEL對象
Set xlApp = Nothing '釋放xlApp對象
End Sub
'讀文件
Private Sub Command2_Click()
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Application.Workbooks.Open("d:\test.xls")
Set xlSheet = xlBook.Worksheets(1)
Dim s As String
For i = 1 To 10 '讀取10行
For j = 1 To 10 '讀取10列
s = s xlSheet.Cells(i, j) Space(5)
Next j
s = s vbNewLine '另起一行
Next i
Print s
xlApp.Quit '結束EXCEL對象
Set xlApp = Nothing '釋放xlApp對象
End Sub
兩個命令按鈕，先寫文件，再讀出來輸出到窗體，最簡單的讀寫操作。

怎樣在EXCEL中創建自定義菜單 vb源代碼

新建工具欄實例
Sub 新建工具欄()
Application.CommandBars.Add(Name:="我的工具欄").Visible = True '新建一個自定義工具欄，名為我的工具欄，并可見。
Application.CommandBars("我的工具欄").Controls.Add Type:=msoControlButton, ID:=3, Before:=1 '添加保存按鈕，在第一個位置
Application.CommandBars("我的工具欄").Controls.Add Type:=msoControlButton, ID:=1849, Before:=2 '添加查找按鈕，在第二個位置
Application.CommandBars("我的工具欄").Controls.Add Type:=msoControlButton, ID:=295, Before:=3 '添加插入單元格按鈕
Application.CommandBars("我的工具欄").Controls.Add Type:=msoControlButton, ID:=395, Before:=4 '添加貨幣樣式按鈕
End Sub

用VB制作excel表格

添加引用 Microsoft Excel 12.0 Object Library (視你的office版本不同有所差異)
然后就可以用這個來編程啦
Dim xlapp As Excel.Application ‘代表excel程序
Dim wkBook As Excel.Workbook '代表excelworkbook（也就是excel工作簿文件 .xls .xlsx)
Dim wkSheet As Excel.Worksheet '代表excel的工作頁
xlapp.Application.EnableEvents = False '禁止宏等提示的運行
Set wkBook = xlapp.Workbooks.Open(ExcelFileName)'wkBook對象,把ExcelFileName替換為你的真實文件 比如 app.path "\" "百家姓.xls"
Set wkSheet = wkBook.Worksheets(1) '選中某個sheet用工作頁名字(Sheet1,Sheet2...) or 序號

關于VB源碼 Excel表單和vb語言基本代碼Excel編程的介紹到此就結束了，不知道你從中找到你需要的信息了嗎 ？如果你還想了解更多這方面的信息，記得收藏關注本站。 VB源碼 Excel表單的介紹就聊到這里吧，感謝你花時間閱讀本站內容，更多關于vb語言基本代碼Excel編程、VB源碼 Excel表單的信息別忘了在本站進行查找喔。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。