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

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

创新互联-专业网站定制、快速模板网站建设、高性价比澄迈网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式澄迈网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖澄迈地区。费用合理售后完善，十多年实体公司更值得信赖。

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

MsgBox(LBound(arr, 2)) '二维最小下标

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

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

用FORMULA

1

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

答案补充

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

WorkBook

=

new

JBook();WorkBook.read(fileName,

new

ReadParams(JBook.eFileExcel97));WorkBook.setSheet(0);WorkBook.setSelection(0,

0,

0,

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

EndRow

=

WorkBook.getLastRow();//

总行数int

EndCol

=

WorkBook.getLastCol();//

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

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

1

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

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

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

2.单击菜单栏中的“开发工具”——插入——表单控件——按钮，在出现的十字箭头上拖住画出一个按钮，如图所示。

3.在弹出的查找红对话框中选择“录制”，在弹出的“录制新宏”对话框中，修改宏名称为“查找”，单击确定。

4. 单击“开发工具”——查看代码，打开VBA编辑器，如图所示。

5.现在输入代码：

Sub 查找()

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

Dim c As Range

jieguo = Application.InputBox(prompt:="请输入要查找的值：", Title:="查找", Type:=2)

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

          c.Interior.ColorIndex = 4

          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

6.现在回到EXCEL表格，右击按钮，选择“编辑文字”，修改按钮名称为“查找按钮”。

7. 现在单击查找按钮，出现对话框“请输入要查找的值”，在方框中输入“男”，单击确定，出现对话框“查找数据在一下单元格中”，单击确定，对应单元格就变成了亮色。

当前标题：关于vb.net读取xls的信息
路径分享：http://chengdu.cdxwcx.cn/article/heceoi.html