[VB.NET]在VB.NET怎样动态读取EXCEL单元格的值?

大佬教程收集整理的这篇文章主要介绍了[VB.NET]在VB.NET怎样动态读取EXCEL单元格的值?，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

在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 __________________________________________________________________________

大佬总结

以上是大佬教程为你收集整理的[VB.NET]在VB.NET怎样动态读取EXCEL单元格的值?全部内容，希望文章能够帮你解决[VB.NET]在VB.NET怎样动态读取EXCEL单元格的值?所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。