用什么開發工具，用什么開發模式來實現所要求的功能呢？公司內暫時只有tuenhai自己運用，要實現的功能也不多，在一開始并沒有必要用復雜的大型數據庫系統。為方便信息共享，tuenhai決定用VB.NET調用Excel來實現功能模塊。

為什么用VB.NET而不用C#，因為Excel中有個VBA，其語法和VB.NET是近似的。而且，VB.NET和C#的區別主要是語法，而非功能。tuenhai現在只要求實現用程序自動安排《自制件生產計劃》,這個功能不用VB.NET，單用VBA也能輕易實現。但是，考慮到以后可能的功能擴充、升級，還是用VB.NET。VB.NET是面向一代的開發工具，功能強大，而且VB.NET調用Excel也很方便。不推薦用VB6,VB.NET的入門及初級應用并不難，為何還要去用早期版本，而不用最新版本,掌握最新技術呢！

用VB.NET調用Excel排生產計劃

軟件構思是這樣的：

先在Excel里定制好《自制件生產計劃》的樣表（模板），保存為自制件生產計劃.xls，其中只有一個sheet:樣表。在樣表中設置好各種格式，填寫好固定項。再新建一空白workbook,保存為2004年自制件生產計劃.xls。

新建一VB.NET應用程序，命名為生產計劃報表。在窗體上放很少幾個控件，如：幾個文本框，用來輸入產品數量;checkbox用來先選擇是正式生產計劃還是增補生產計劃;另外用二個文本框用來輸入計劃時間和計劃編號。

點擊button，程序打開自制件生產計劃.xls和2004年自制件生產計劃.xls，把樣表copy到2004年自制件生產計劃.xls,并自動在目標sheet中填寫各自制件需要生產的數量。

下面是實現代碼及詳細注釋。注意，要先添加com引用Microsoft Excel Object Library，tuenhai的是office 2003，引用Microsoft Excel 11.0 Object Library。

Private Sub producePlan()  
Call killEXCEL() '調用殺死EXCEL進程過程  
 
'以下代碼判斷用戶填寫信息是否完整,如不完整則提示信息并退出.  
If chkFormal.Checked = False And chkSubjoin.Checked = False Then  
MsgBox("是正式計劃還是增補計劃??", MsgBoxStyle.Critical, "請先選擇計劃性質")  
Exit Sub  
End If  
If txtDay.Text = "2004年月" Then  
MsgBox("什么月份的生產計劃???", MsgBoxStyle.Critical, "請填寫計劃時間")  
Exit Sub  
End If  
If txt703.Text = Nothing Or txt909.Text = Nothing Or txt931.Text = Nothing Or txt932.Text = Nothing Then  
MsgBox("請填寫計劃臺數!", MsgBoxStyle.Critical, "計劃臺數填寫不全")  
Exit Sub  
End If  
If chkFormal.Checked = True And chkSubjoin.Checked = True Then  
MsgBox("正式和增補兩者只能選一!", MsgBoxStyle.Critical, "請重新選擇計劃性質")  
Exit Sub  
End If  
 
'以下代碼即是計算各自制件的數量,用中文來命名是免去代碼注釋  
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  
 
'定義一個數組,方便在EXCEL中循環寫入數字，也可以放在EXCEL的VBA中實現  
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 '自制件生產計劃.xls  
Dim excelbook2004 As Excel.Workbook '2004自制件生產計劃.xls  
Dim excelWorksheet As Excel.Worksheet  
Dim planProperty As String '計劃性質,是正式計劃還是增補計劃  
 
Try '建議用try方式捕捉錯誤,處理錯誤  
 
excelBook = excelApp.Workbooks.Open(Application.StartupPath & "\自制件生產計劃.xls")  
 
excelbook2004 = excelApp.Workbooks.Open(Application.StartupPath & "\2004年自制件生產計劃.xls")  
excelWorksheet = CType(excelBook.Worksheets("樣表"), Excel.Worksheet)  
excelWorksheet.Copy(After:=excelbook2004.Sheets("sheet1"))  
'把樣表copy到<2004年自制件生產計劃>workbook中sheet1的后面  
 
excelApp.Visible = True '設置工作薄為可視  
 
If chkFormal.Checked = True Then  
planProperty = "正式" 
ElseIf chkSubjoin.Checked = True Then  
planProperty = "增補" 
End If  
 
With excelbook2004.ActiveSheet '用with 簡化代碼  
.Range("D1").Value = txtDay.Text '計劃時間  
.Range("C2").Value = "laoban公司" & txtDay.Text & planProperty & "采購計劃" '計劃依據  
.Range("C25").Value = Now.Date.Today.ToShortDateString '這就是制表日期  
.Range("F2").Value = txtNO.Text '計劃編號  
 
End With  
For i As Integer = 0 To 18 '共19種自制件  
excelbook2004.ActiveSheet.cells(4 + i, 4) = allNum(i) '4+i是行號,第二個４是列號  
Next '循環把各自制件數填入<2004年自制件生產計劃>中的活動工作表相應位置  
 
Catch ex As Exception '捕捉錯誤,并回收資源,顯示錯誤  
excelBook = Nothing 
excelbook2004 = Nothing 
excelWorksheet = Nothing 
excelApp = Nothing 
GC.Collect(0)  
MsgBox(ex.ToString) '顯示錯誤信息,以查找定位  
Exit Sub '出錯就退出  
Finally '這里的代碼一定會被執行到  
excelBook = Nothing 
excelbook2004 = Nothing 
excelWorksheet = Nothing 
excelApp = Nothing 
GC.Collect(0)  
End Try  
MsgBox("已排好自制件生產計劃,請查看")  
 
excelBook = Nothing 
excelbook2004 = Nothing 
excelWorksheet = Nothing 
excelApp = Nothing 
GC.Collect(0)  
 
End Sub 

【編輯推薦】

1. 概括VB.NET使用OracleTransaction
2. 五分鐘了解VB.NET類構造
3. 討論奇妙的VB.NET屬性
4. 詳談VB.NET編碼規范經驗
5. 自己動手實現VB.NET控件數組