[VB.NET]在VB.NET怎样动态读取EXCEL单元格的值?
发布时间：2020-12-16 23:43:05 所属栏目：大数据 来源：网络整理
导读：在VB.NET怎样动态读取EXCEL单元格的值? 各位高手帮忙看一下 我想用VB.NET动态读取每个单元格的值,在LISTBOX显示出来,不知怎样用变量,请各位帮帮忙? Dim objExcelFile As Excel.Application Dim objWorkBook As Excel.Workbook Dim objImportSheet As Excel.W
|
在VB.NET怎样动态读取EXCEL单元格的值? 各位高手帮忙看一下 我想用VB.NET动态读取每个单元格的值,在LISTBOX显示出来,不知怎样用变量,请各位帮帮忙? Dim objExcelFile As Excel.Application Dim objWorkBook As Excel.Workbook Dim objImportSheet As Excel.Worksheet objExcelFile = New Excel.Application objWorkBook = objExcelFile.Workbooks.Open(strFileName) objImportSheet = objWorkBook.Sheets.items(1) listbox.items.add() 如下EXCEL表. dept itemcede 10 000001 10 123458 10 124478 12 346798 12 789425 __________________________________________________________________________ 用Range对象!!! __________________________________________________________________________ 用Cells对象也可以! 例如: listbox.items.add(objImportSheet.Range( "B1 ")) listbox.items.add(objImportSheet.Rows(1).Cells(2).Text) __________________________________________________________________________ 这样也不行，假如我的EXCEL表有300的行这样的数据，不是要写300行。而且每次处理的行数都不一样。我就是想实现能自动判断单元格的行值有多少行，然后在LISTBOX中显示出来 __________________________________________________________________________ objImportSheet.UsedRange.Rows.Count 就是表的最大行数 __________________________________________________________________________ 要不先把ＥＸＣＥＬ里的数据读到dataset里再listbox.items.add(dataset.table(0).row(i)( "字段名 ")) __________________________________________________________________________ 也可用做个循环.来读取(找一个必有列eg:第一列) dim i as int64 do until Trim(objImportSheet.Cells(i,1).value) = " " .............. ''赋值 ........... loop __________________________________________________________________________ private ds as new dataset() Private sub Form1_Load() dim cn as new oledb.oledbconnection() dim da as new oledb.oledbdataadapter() dim c as new oledb.oledbcommand() '' '' '' '' ''接续设定HDR 有标题的时候Yes 否则No cn.connectionstring= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/sampl.xls; " & _ "Extended Properties= " "Excel 8.0;HDR=Yes " " " with c .commandtext= "Select * From [Sheet1$] " .connection=cn end with da.selectCommand=c da.fill(ds) TextBox1.databindings.add( "Text ",ds.tables(0),"dept ") TextBox2.databindings.add( "Text ","itemcede ") end sub 剩下的自己研究一下吧！ __________________________________________________________________________ 还是不行 __________________________________________________________________________ 前面不是有人说了如何获取最大行数吗？ for n=1 to exSheet.UsedRange.Rows.Count itm=new listviewitem itm.text=exSheet.Cells(n,1).value listview.add itm next __________________________________________________________________________ （编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |