建站
咨詢
售后
建站咨詢
新聞中心
用什么開發(fā)工具，用什么開發(fā)模式來實(shí)現(xiàn)所要求的功能呢？公司內(nèi)暫時(shí)只有tuenhai自己運(yùn)用，要實(shí)現(xiàn)的功能也不多，在一開始并沒有必要用復(fù)雜的大型數(shù)據(jù)庫系統(tǒng)。為方便信息共享，tuenhai決定用VB.NET調(diào)用Excel來實(shí)現(xiàn)功能模塊。
紫金ssl適用于網(wǎng)站、小程序/APP、API接口等需要進(jìn)行數(shù)據(jù)傳輸應(yīng)用場景，ssl證書未來市場廣闊！成為成都創(chuàng)新互聯(lián)的ssl證書銷售渠道，可以享受市場價(jià)格4-6折優(yōu)惠！如果有意向歡迎電話聯(lián)系或者加微信：18980820575（備注：SSL證書合作）期待與您的合作！
為什么用VB.NET而不用C#，因?yàn)镋xcel中有個(gè)VBA，其語法和VB.NET是近似的。而且，VB.NET和C#的區(qū)別主要是語法，而非功能。tuenhai現(xiàn)在只要求實(shí)現(xiàn)用程序自動(dòng)安排《自制件生產(chǎn)計(jì)劃》,這個(gè)功能不用VB.NET，單用VBA也能輕易實(shí)現(xiàn)。但是，考慮到以后可能的功能擴(kuò)充、升級，還是用VB.NET。VB.NET是面向一代的開發(fā)工具，功能強(qiáng)大，而且VB.NET調(diào)用Excel也很方便。不推薦用VB6,VB.NET的入門及初級應(yīng)用并不難，為何還要去用早期版本，而不用最新版本,掌握最新技術(shù)呢！
用VB.NET調(diào)用Excel排生產(chǎn)計(jì)劃
軟件構(gòu)思是這樣的：
先在Excel里定制好《自制件生產(chǎn)計(jì)劃》的樣表（模板），保存為自制件生產(chǎn)計(jì)劃.xls，其中只有一個(gè)sheet:樣表。在樣表中設(shè)置好各種格式，填寫好固定項(xiàng)。再新建一空白workbook,保存為2004年自制件生產(chǎn)計(jì)劃.xls。
新建一VB.NET應(yīng)用程序，命名為生產(chǎn)計(jì)劃報(bào)表。在窗體上放很少幾個(gè)控件，如：幾個(gè)文本框，用來輸入產(chǎn)品數(shù)量;checkbox用來先選擇是正式生產(chǎn)計(jì)劃還是增補(bǔ)生產(chǎn)計(jì)劃;另外用二個(gè)文本框用來輸入計(jì)劃時(shí)間和計(jì)劃編號。
點(diǎn)擊button，程序打開自制件生產(chǎn)計(jì)劃.xls和2004年自制件生產(chǎn)計(jì)劃.xls，把樣表copy到2004年自制件生產(chǎn)計(jì)劃.xls,并自動(dòng)在目標(biāo)sheet中填寫各自制件需要生產(chǎn)的數(shù)量。
下面是實(shí)現(xiàn)代碼及詳細(xì)注釋。注意，要先添加com引用Microsoft Excel Object Library，tuenhai的是office 2003，引用Microsoft Excel 11.0 Object Library。
- Private Sub producePlan()
- Call killEXCEL() '調(diào)用殺死EXCEL進(jìn)程過程
- '以下代碼判斷用戶填寫信息是否完整,如不完整則提示信息并退出.
- If chkFormal.Checked = False And chkSubjoin.Checked = False Then
- MsgBox("是正式計(jì)劃還是增補(bǔ)計(jì)劃??", MsgBoxStyle.Critical, "請先選擇計(jì)劃性質(zhì)")
- Exit Sub
- End If
- If txtDay.Text = "2004年月" Then
- MsgBox("什么月份的生產(chǎn)計(jì)劃???", MsgBoxStyle.Critical, "請?zhí)顚懹?jì)劃時(shí)間")
- Exit Sub
- End If
- If txt703.Text = Nothing Or txt909.Text = Nothing Or txt931.Text = Nothing Or txt932.Text = Nothing Then
- MsgBox("請?zhí)顚懹?jì)劃臺(tái)數(shù)!", MsgBoxStyle.Critical, "計(jì)劃臺(tái)數(shù)填寫不全")
- Exit Sub
- End If
- If chkFormal.Checked = True And chkSubjoin.Checked = True Then
- MsgBox("正式和增補(bǔ)兩者只能選一!", MsgBoxStyle.Critical, "請重新選擇計(jì)劃性質(zhì)")
- Exit Sub
- End If
- '以下代碼即是計(jì)算各自制件的數(shù)量,用中文來命名是免去代碼注釋
- Dim 涂氟龍面板703 As Integer = CType(txt703.Text, Integer)
- Dim 鈦金面板909 As Integer = CType(txt909.Text, Integer)
- Dim 油磨不銹鋼面板931 As Integer = CType(txt931.Text, Integer)
- Dim 油磨不銹鋼面板932 As Integer = CType(txt932.Text, Integer)
- Dim 底盤24 As Integer = 涂氟龍面板703
- Dim 底盤22 As Integer = 鈦金面板909
- Dim 底盤41A As Integer = 油磨不銹鋼面板931
- Dim 底盤41B As Integer = 油磨不銹鋼面板931
- Dim 水盤25 As Integer = 涂氟龍面板703
- Dim 水盤24 As Integer = 涂氟龍面板703
- Dim 水盤22 As Integer = 鈦金面板909 * 2
- Dim 中心支架2 As Integer = 涂氟龍面板703 + 鈦金面板909
- Dim 長支架931 As Integer = (油磨不銹鋼面板931 + 油磨不銹鋼面板932) * 2
- Dim 支架931U As Integer = 油磨不銹鋼面板931 * 2
- Dim 支架932U As Integer = 油磨不銹鋼面板932 * 2
- Dim 磁頭抱攀 As Integer = (鈦金面板909 + 油磨不銹鋼面板931 + 油磨不銹鋼面板932) * 2
- Dim 電池抱攀 As Integer = (涂氟龍面板703 + 鈦金面板909 + 油磨不銹鋼面板931 + 油磨不銹鋼面板932) * 2
- Dim 三通抱攀 As Integer = 電池抱攀 / 2
- Dim 爐頭墊片 As Integer = 電池抱攀 * 3
- '定義一個(gè)數(shù)組,方便在EXCEL中循環(huán)寫入數(shù)字，也可以放在EXCEL的VBA中實(shí)現(xiàn)
- Dim allNum() As Integer = _
- {涂氟龍面板703, 鈦金面板909, 油磨不銹鋼面板931, 油磨不銹鋼面板932, _
- 底盤24, 底盤22, 底盤41A, 底盤41B, _
- 水盤25, 水盤24, 水盤22, _
- 中心支架2, 長支架931, 支架931U, 支架932U, _
- 磁頭抱攀, 電池抱攀, 三通抱攀, 爐頭墊片}
- Dim excelApp As New Excel.Application
- Dim excelBook As Excel.Workbook '自制件生產(chǎn)計(jì)劃.xls
- Dim excelbook2004 As Excel.Workbook '2004自制件生產(chǎn)計(jì)劃.xls
- Dim excelWorksheet As Excel.Worksheet
- Dim planProperty As String '計(jì)劃性質(zhì),是正式計(jì)劃還是增補(bǔ)計(jì)劃
- Try '建議用try方式捕捉錯(cuò)誤,處理錯(cuò)誤
- excelBook = excelApp.Workbooks.Open(Application.StartupPath & "\自制件生產(chǎn)計(jì)劃.xls")
- excelbook2004 = excelApp.Workbooks.Open(Application.StartupPath & "\2004年自制件生產(chǎn)計(jì)劃.xls")
- excelWorksheet = CType(excelBook.Worksheets("樣表"), Excel.Worksheet)
- excelWorksheet.Copy(After:=excelbook2004.Sheets("sheet1"))
- '把樣表copy到<2004年自制件生產(chǎn)計(jì)劃>workbook中sheet1的后面
- excelApp.Visible = True '設(shè)置工作薄為可視
- If chkFormal.Checked = True Then
- planProperty = "正式"
- ElseIf chkSubjoin.Checked = True Then
- planProperty = "增補(bǔ)"
- End If
- With excelbook2004.ActiveSheet '用with 簡化代碼
- .Range("D1").Value = txtDay.Text '計(jì)劃時(shí)間
- .Range("C2").Value = "laoban公司" & txtDay.Text & planProperty & "采購計(jì)劃" '計(jì)劃依據(jù)
- .Range("C25").Value = Now.Date.Today.ToShortDateString '這就是制表日期
- .Range("F2").Value = txtNO.Text '計(jì)劃編號
- End With
- For i As Integer = 0 To 18 '共19種自制件
- excelbook2004.ActiveSheet.cells(4 + i, 4) = allNum(i) '4+i是行號,第二個(gè)４是列號
- Next '循環(huán)把各自制件數(shù)填入<2004年自制件生產(chǎn)計(jì)劃>中的活動(dòng)工作表相應(yīng)位置
- Catch ex As Exception '捕捉錯(cuò)誤,并回收資源,顯示錯(cuò)誤
- excelBook = Nothing
- excelbook2004 = Nothing
- excelWorksheet = Nothing
- excelApp = Nothing
- GC.Collect(0)
- MsgBox(ex.ToString) '顯示錯(cuò)誤信息,以查找定位
- Exit Sub '出錯(cuò)就退出
- Finally '這里的代碼一定會(huì)被執(zhí)行到
- excelBook = Nothing
- excelbook2004 = Nothing
- excelWorksheet = Nothing
- excelApp = Nothing
- GC.Collect(0)
- End Try
- MsgBox("已排好自制件生產(chǎn)計(jì)劃,請查看")
- excelBook = Nothing
- excelbook2004 = Nothing
- excelWorksheet = Nothing
- excelApp = Nothing
- GC.Collect(0)
- End Sub
【編輯推薦】
- 概括VB.NET使用OracleTransaction
- 五分鐘了解VB.NET類構(gòu)造
- 討論奇妙的VB.NET屬性
- 詳談VB.NET編碼規(guī)范經(jīng)驗(yàn)
- 自己動(dòng)手實(shí)現(xiàn)VB.NET控件數(shù)組
網(wǎng)頁題目：講述VB.NET調(diào)用Excel的好處
當(dāng)前地址：http://m.5511xx.com/article/cciecod.html
