《VB.Net中Excel设计统计生产报表的方法》由会员分享，可在线阅读，更多相关《VB.Net中Excel设计统计生产报表的方法（10页珍藏版）》请在金锄头文库上搜索。
1、VB.Net中Excel设计统计生产报表的方法作者：tuenhai 来源：天极网 更新时间：2007-11-10 用EXCEL做企业生产报表的理由 Excel表格生成和公式设置十分强大便利，是一个强有力的信息分析与处理工具。特别是EXCEL的公式、函数、VBA语言，功能极其强大。我试用过其他电子表格软件，在功能上和EXCEL根本没有可比性。Visual Studio .NET也同样是MicroSoft的产品，Visual Studio .NET调用EXCEL做企业报表十分方便。证明当时我选Visual Studio .NET作为首选开发工具是正确的。 软件构思先在EXCEL里定制好名为统计表的
2、样表（模版），在样表中设置好各种格式，填写好固定项。在窗体上放很三个控件，两个DateTimePicker控件，用来选择开始统计时间和结束统计时间。一个Button以启动程序。软件欲实现的功能是：点击Button1，自动查找符合日期符合日期范围的生产计划工作表，然后利用SortedList统计各个办事处的计划数量和未完成数量，及各个产品型号的计划数量和未完成数量。再把SortedList的数据读出写到统计表中。这里要注意的是，各个生产报表格式必须规范统一，因为程序是按照固定单元格位置读取数据的。SortedList类除了具备VB.NET调用EXCEL的基础知识外，本例主要用到SortedLis
3、t类。SortedList类表示键/值对的集合，这些键和值按键排序并可按照键和索引访问。SortedList 是 Hashtable 和 Array 的混合。当使用 Item 索引器属性按照元素的键访问元素时，其行为类似于 Hashtable。当使用 GetByIndex 或 SetByIndex 按照元素的索引访问元素时，其行为类似于 Array。SortedList 在内部维护两个数组以将数组存储到列表中；即，一个数组用于键，另一个数组用于相关联的值。每个元素都是一个可作为 DictionaryEntry 对象进行访问的键/值对。键不能为空引用（Visual Basic 中为 Nothin
4、g），但值可以。SortedList 的容量是列表可拥有的元素数。随着向 SortedList 中添加元素，容量通过重新分配按需自动增加。可通过调用 TrimToSize 或通过显式设置 Capacity 属性减少容量。SortedList 的元素将按照特定的 IComparer 实现（在创建 SortedList 时指定）或按照键本身提供的 IComparable 实现并依据键来进行排序。不论在哪种情况下，SortedList 都不允许重复键。VB.NET结合EXCEL统计生产报表以下是实现代码，供参考。为方便初学者，部份地方加以注释。Private Sub Form1_Load(ByVal
5、 sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load DateTimePicker1.MaxDate = Date.NowDateTimePicker1.MinDate = #1/1/2004#DateTimePicker2.MaxDate = Date.NowDateTimePicker2.MinDate = #1/1/2004#End SubPrivate Sub 灶具分析统计() Call killEXCEL()Dim excelApp As New Excel.ApplicationDim 佳尼2004灶
6、具生产计划 As Excel.WorkbookDim 行号 As Integer = 1Dim 列号 As Integer = 1Dim 办事处计划数统计 As New SortedListDim 办事处完成数统计 As New SortedListDim 型号计划数统计 As New SortedListDim 型号完成数统计 As New SortedListDim 统计表 As Excel.Worksheet Try佳尼2004灶具生产计划 = excelApp.Workbooks.Open(E:my documents生产计划佳尼2004灶具生产计划.xls)统计表 = CType(佳
7、尼2004灶具生产计划.Worksheets(统计表), Excel.Worksheet)统计表.Cells(1, 3).value = DateTimePicker1.Value.ToShortDateString 统计开始日期统计表.Cells(1, 7).value = DateTimePicker2.Value.ToShortDateString 统计结束日期统计表.Range(c4:z6).Value = 先清空统计表中原来有关数据统计表.Range(c9:z11).Value = Dim 生产计划表 As Excel.WorksheetFor Each 生产计划表 In 佳尼200
8、4灶具生产计划.Worksheets 遍历生产计划表If Strings.Left(生产计划表.Name, 1) = 0 Or Strings.Left(生产计划表.Name, 1) = 1 Then 如果是0或1开头的表名，因生产计划表名是0或1开头MsgBox(生产计划表.Name)行号 = 4 生产计划表中生产数据从第四行开始列号 = 14 第14列是计划下发日期。从计划下发日期判断是否是所要数据Dim 临时行号 As Integer = 4 求得工作表中最后一行所在的行号，从第四行开始往下计算While 生产计划表.Cells(临时行号, 列号).value NothingMsgBox
9、(生产计划表.Cells(行号, 列号).value, , 行号)临时行号 += 1End While临时行号 -= 1 得到生产计划表中，最后数据行所在的行号 MsgBox(临时行号)For 行号 = 4 To 临时行号 生产计划标准格式行号从4开始，到工作表中最后一行 If (CDate(DateTimePicker1.Value.ToShortDateString) = CDate(生产计划表.Cells(行号, 列号).value) Then 如果日期在规定范围内灶具各城市分布情况Dim 城市 As String = 生产计划表.Cells(行号, 3).value 第3列是城市名称D
10、im 计划数 As Decimal = CType(生产计划表.Cells(行号, 7).value, Decimal) 第7列是计划数Dim 完成数 As Decimal = CType(生产计划表.Cells(行号, 11).value, Decimal) 第11列是实际完成数Dim 未完成数 As Decimal = 0 用Decimal是因为后面要加小数If 完成数 计划数 Then 如果没有完成未完成数 = 计划数 - 完成数End IfIf 城市 ThenIf InStr(城市, 沈阳) 0 Or InStr(城市, 鞍山) 0 Or InStr(城市, 哈尔滨) 0 Or InS
11、tr(城市, 葫芦岛) 0 ThenIf 办事处计划数统计.Contains(沈阳) Then办事处计划数统计.Item(沈阳) += 计划数Else办事处计划数统计.Add(沈阳, 计划数)End IfIf 办事处完成数统计.Contains(沈阳) Then办事处完成数统计.Item(沈阳) += 未完成数Else办事处完成数统计.Add(沈阳, 未完成数)End IfElseIf 办事处计划数统计.Contains(城市) Then办事处计划数统计.Item(城市) += 计划数Else办事处计划数统计.Add(城市, 计划数)End IfIf 办事处完成数统计.Contains(城市)
12、 Then办事处完成数统计.Item(城市) += 未完成数Else办事处完成数统计.Add(城市, 未完成数)End IfEnd IfElseMsgBox(生产计划表.Name & 没有城市名称, MsgBoxStyle.Critical, 生产计划中要有城市名称)excelApp.Visible = True生产计划表.Activate()生产计划表.Select()End If以下计算灶具型号分布情况Dim 型号 As String = Strings.Left(生产计划表.Cells(行号, 2).value, 3) 灶具型号在第3列If 型号计划数统计.Contains(型号) Th
13、en型号计划数统计.Item(型号) += 计划数Else型号计划数统计.Add(型号, 计划数)End IfIf 型号完成数统计.Contains(型号) Then型号完成数统计.Item(型号) += 未完成数Else型号完成数统计.Add(型号, 未完成数)End IfEnd IfNextEnd IfNextDim 城市数 As Integer = 办事处计划数统计.CountDim 城市数clone As Integer = 办事处计划数统计.Count行号 = 4依计划数大小排序Dim 办事处计划数统计副本 As New SortedListDim asa As Decimal = 0.001 加上此数是为了防止键值的重复，在工作表中可选不显示小数Dim 办事处计划数Enum As IDictionaryEnumer
