Question

用vb.net读取指定单元格的值到变量

用vb.net读取指定单元格的值到变量我的是vs2010,需要从表格中读取内容到变量，表格中的内容有字符型也有数字，需要引用什么内容或添加什么都希望可以补充下，谢谢，

最好是从打开文件，到读取第一行第一列的值给变量str,确能解决的，私下发红包哦

我感觉这个不难，只是调试不出来

Answer 1

引用  microsoft excel 14.0 object library (office2010)

Dim app As New Microsoft.Office.Interop.Excel.Application
Dim wb As Microsoft.Office.Interop.Excel.Workbook
Try
  wb = app.Workbooks.Open(path) '打开文件
  Dim ws As Microsoft.Office.Interop.Excel.Worksheet = wb.Worksheets(SheetNumber)'需打开第几个sheet
  Dim str As String = nothing
  str = ws.Cells(1, 1) '得到第1行第1列的值
                
Catch ex As Exception
  MsgBox(ex.Message)
Finally
  wb.Close()
  app.Quit()
End Try

追问

亲，我先试试

有报错诶

你看是不是还需要引用什么内容？

imports些内容？

追答

好像还有 microsoft Office 14.0 object library

追问

我引用了呀

等下

要引用两个是吧

追答

哦 microsoft excel 14.0 object library这个是不用的，只引用microsoft Office 14.0 object library

追问

删了，但报错还在

追答

我测试了一下，应该是只引用microsoft excel 14.0 object library，没有问题。用的是vs2013但是这里应该是一样的。

追问

还剩两个……

我这次是新建的，只放了一个按钮

这个path是不是要我自己写一下路径

追答

当然了，是你要打开文件的路径。

追问

还剩一个

追答

sheetnumber 是个变量，表示你表格里的第几个sheet，第一个sheet就把它换成 0

追问

选第一个后

选第二个后

第三个和第二个一样

追答

文件路径要有斜杠 f:\xxx.xls，调试一下，看看倒底是哪行出的错误。

追问

大哥能不能把你调试好的发给我看看

我把表格里的东西改为汉字还是这样

大哥这么辛苦，我先采纳了

追答

ws.cells(1，1).value

追问

大哥，我可以给你发红包吗

追答

不用，问题解决了就行

追问

这应该没啥问题吧

追答

声明wb的时候忘了new了，dim wb as new xxxx

追问

大哥，其实我还有个小问题，此处能不能用openfiledialog,这样就可以自由选择表格了

追答

当然可以，把path改为openfiledialog的filename就行

追问

大哥真乃男神级的存在，只可惜这不能发表情包，不然肯定把我的膝盖献给你

还有，dim的时候加上new会报错诶，不过即使把它注释掉也不影响，

http://jingyan.baidu.com/article/5d368d1e1db7bc3f60c05700.html

大哥有生成过dxf文件吗

这个我直接复制过去也是不能用

追答

我用的是vs2003，和你的不一样。

追问

大哥，我现在已经可以打开表格并获取单元格的值了，

现在我希望获取表格的行数，可以吗

追答

ws.usedrange.rows.count

追问

谢谢大哥，比我写的循环好多了

拖了一个dataset控件到窗体，通过dataset的table属性创建了一张表，名为 学生成绩表 ，图中学号，姓名，成绩分别为整型，字符型，单精度型。并放了3个textbox通过Databinding链接到对应的列，现在只差向按钮里填写代码了。
这个是我把需求简化后的问题……大哥可以帮下不？

大恩不言谢，请收下我的膝盖

如何通过textbox对datatable进行编辑

追答

用私信发给你了

追问

大哥说的是邮箱吗

追答

百度知道右上角