vb.net利用listbox控件与excel文件相结合统计数据

  Dim xlApp As Object = NothingDim xlBooks As Excel.Workbooks = NothingDim xlBook As Excel.Workbook = NothingDim xlSheets As Excel.Sheets = NothingDim xlSheet As Excel.Worksheet = NothingDim myrange As Excel.Range = NothingDim i, j As Integer '定义listbox1控件删除重复值变量Dim jshe, rows1 As Integer '定义SUMIF计数变量Dim strFilePath As String = "C:\Users\Dell\Desktop\数据可视化测试\认统计2020.3.20.xlsx"xlApp = New Excel.Application()xlBooks = xlApp.WorkbooksxlBook = xlBooks.Open(strFilePath)xlSheets = xlBook.WorksheetsxlSheet = xlSheets("Sheet1") '这里是你要读入数据的那个sheet页 '第一行第一列 myrange = xlSheet.Range("h2")' Dim a As String = myrange.ValueMsgBox(xlSheet.UsedRange.Rows.Count) '最大的使用行数。有记录的总行数。包括写过数据然后删除数据的空白行。要删除这样的行，必须整行删除掉。' MsgBox(xlSheet.UsedRange.Columns.Count) '最大的使用列数。TextBox1.Text = myrange.Text'MsgBox("暂停")''''''''''''''''''''''''''''''''''''将表格内容填加到Listbox1控件中'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''For i = 2 To xlSheet.UsedRange.Rows.CountIf xlSheet.Range("h" & i).Value = Nothing Then '判断如果表格为空数据，停止导出Exit ForEnd IfListBox1.Items.Add(xlSheet.Range("h" & i).Value)Next'''''''''''''''''''''''''''''''''''将Listbox1控件中重复数据去重''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''For i = 0 To ListBox1.Items.Count - 1For j = ListBox1.Items.Count - 1 To i + 1 Step -1If ListBox1.Items(i) = ListBox1.Items(j) Then ListBox1.Items.RemoveAt(j) '使用remove 不能删除NextNext'''''''''''''''''''''''''''''''''''根据listbox控件内容计算数值'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''rows1 = xlSheet.UsedRange.Rows.Count '表格内所有行数jshe = xlSheets.Application.WorksheetFunction.SumIf(xlSheet.Range("h2:h" & rows1), ListBox1.Items.Item(0), xlSheet.Range("d2:d" & rows1)) '求和 参数1：条件序列为H列，参数2：以h2列第一行数据为条件，参数3：在D列中符合条件数据进行相加。TextBox1.Text = jsheMsgBox(rows1)xlBook.Close(True) '关闭工作簿xlApp.Quit '结束EXCEL对象

vb.net利用listbox控件与excel文件相结合统计数据相关推荐

VB.net小技巧——VB中利用TreeView控件和Box控件做知识备忘
提示:文章写完后,目录可以自动生成,如何生成可参考右边的帮助文档 VB.net小技巧--VB中利用TreeView控件和Box控件做知识备忘这里不涉及代码的展示,主要是为了阐述一种做笔记的思想. 为 ...
C#下使用第三方开源控件读取Excel文件的内容
使用了两个开源控件读取Excel文件的内容,不需要安装Excel或Office,开发环境可能需要vs2008(2005没测试过) NPOI, 读取xls文件(Excel2003及之前的版本 ...
JQuery专栏之十五————利用文件框控件file实现文件的上传
15. 利用文件框控件file实现文件的上传. 文件上传的方法有很多,jQuery也有许多文件上传控件.本例采用最基本的HTML文件框(<input type='file')实现文件上传,不限制 ...
VB.NET基于ReportViewer控件显示RDLC文件学习总结。
最近一直在学习VB.NET中的ReportViewer控件绑定RDLC文件显示的内容,VB.NET对于这一块的教程并不如C#多,所以好多时候需要模仿C#,今天特地写一个总结,供后边的学习者以供借鉴(本 ...
VB中利用ListView控件来制作表格
ListView控件是由ColumnHeader和ListItem对象所组成的,其中ColumnHeader对象的个数决定了控件的列数,而ListItem对象的个数则决定了控件的行数. 下面介绍一下L ...
使用GemBox.Spreadsheet控件操作Excel文件
最近在给cc帮忙做一个客户账单处理的小工具,需要打开xls编辑处理后再另存自定义样式的新xls文件,无意间发现了GemBox的这个控件,简直不能好用更多啊,就一个dll导入后不管目标机器上是否安装Ex ...
active控件读取服务器文件,Delphi下利用ActiveX控件读取PDF文件
首先,要找到这个控件,安装Acrobat Reader程序也就同时得到了这个控件. 这个控件位于它的 ActiveX 子目录下,名字可能因版本不同而稍有不同.如 3.0 版的名字叫 pdf42.ocx ...
excel日历弄到html,如何在Excel中利用日历控件来快速输入日期
给大家分享了一个利用日历控件在Excel单元格中输入日期的小窍门.大家知道,物流和会计行业的报表,经常需要手工输入一些日期,例如发货日期,在途时间.到达配送中心日期.签收日期等,如果手工输入,难免出错 ...
html中listbox效果,listbox控件的使用
VB的listbox控件怎么使用每次我点击一个图片时,怎么让listbox.list加载一个数字如我点4张它的假设Listbox控件名字是List1: List1.Clear '清空列表中所有元 ...

vb.net利用listbox控件与excel文件相结合统计数据

vb.net利用listbox控件与excel文件相结合统计数据相关推荐

最新文章

热门文章