关于vb.net读取xls的信息

关于VB.net中读取Excel数据存入数组后的再读取问题

因为Excel表的左上角的单元格都是以第一行第一列

MsgBox(LBound(arr, 1)) '一维最小下标

测试：用上面函数（LBound）得到的结果都是1

vb.net 如何读出excel,并把数据插入oracle数据库中.

用FORMULA

,一个开源框架；里面有个JBook可以取到EXCEL中的数据；然后你在根据JBook将数据存到数据库

答案补充

导入的时候打开一个JFileChooser用来让用户选择要读的excel文件；然后JBook

WorkBook

=

new

JBook();WorkBook.read(fileName,

0,

0);这就将excel中的数据读入JBook中了,int

EndRow

WorkBook.getLastRow();//

总行数int

EndCol

WorkBook.getLastCol();//

总列数WorkBook.getNumber(row,col);

或者getText(row,col)活的excel中的数据；将这些数据从JBOOK提取出来,然后自己封装成自己需要的类型,再存到数据库就行了；说起来好像挺繁琐的,做做试试；去网上下个FORMULA

的jar包我现在是在java的CS模式下用的；

vb.net如何与excel建立连接,并从里面查询并读取数据?

①新建一张表格,在表格中导入学生的成绩表,如图所示,将建立一个按钮,通过它来实现查找.

Sub 查找()

Dim jieguo As String, p As String, q As String

Dim c As Range

If jieguo = "False" Or jieguo = "" Then Exit Sub

Application.ScreenUpdating = False

Application.DisplayAlerts = False

With ActiveSheet.Cells

? ? Set c = .Find(jieguo, , , xlWhole, xlByColumns, xlNext, False)

? ? If Not c Is Nothing Then

? ? ? ? p = c.Address

? ? ? ? Do

? ? ? ? ? ? q = q c.Address vbCrLf

? ? ? ? ? ? Set c = .FindNext(c)

? ? ? ? Loop While Not c Is Nothing And c.Address p

? ? End If

End With

MsgBox "查找数据在以下单元格中：" vbCrLf vbCrLf _

? ? q, vbInformation ◆ vbOKOnly, "查找结果"

? Application.ScreenUpdating = True

? Application.DisplayAlerts = True

End Sub

以上就是土嘎嘎小编为大家整理的关于vb.net读取xls的信息相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦！！