vb.net读excel的简单介绍

vb.net如何调用打开外部excel文档

第一步，新建项目。

创新互联专业为企业提供紫云网站建设、紫云做网站、紫云网站设计、紫云网站制作等企业网站建设、网页设计与制作、紫云企业网站模板建站服务，十载紫云做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。

打开vb.net，也就是打开Microsoft visual studio 2010，第一次使用的时候设置为basic语言就行。新建项目--打开excel。

新建成功。

END

第二步，添加引用。

“项目”--“添加引用”。

添加Microsoft Excel 14.0 Object Library。

END

第三步，添加打开文件对话框工具。

工具箱--对话框--openfiledialog。

添加成功。

END

第四步，添加命令按钮控件。

工具箱--公共控件--button。

在控件上右击鼠标，进入属性设置。

text属性设置为“打开excel”。

name属性也设置为“打开excel”。

END

第五步，编写程序。

鼠标双击命令按钮，进入编程界面，编写程序。

END

第六步，运行程序。

鼠标单击启动调式图标，程序开始运行。

单击打开excel命令按钮，调用打开文件对话框，选择自己要打开的excel文件。

END

第七步，保存程序。

第一次程序运行完，关闭程序，出现关闭项目提示，选择保存。

选好自己要保存的位置。

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

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

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

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

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

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

用FORMULA

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

答案补充

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

WorkBook

new

JBook();WorkBook.read(fileName,

new

ReadParams(JBook.eFileExcel97));WorkBook.setSheet(0);WorkBook.setSelection(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建立连接，并从里面查询并读取数据？

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

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怎么访问excel表格

我的是2007版本，其它类似

1.在工程中引用Microsoft Excel 12.0 Object Library

2、在通用对象的声明过程中定义EXCEL对象：

Dim xlApp As Excel.Application

Dim xlBook As Excel.WorkBook

Dim xlSheet As Excel.Worksheet

3、在程序中操作VB.NET EXCEL常用命令：

Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象

Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件

xlApp.Visible = True '设置EXCEL对象可见（或不可见）

Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表

xlSheet.Cells(row, col) =值 '给单元格（row,col）赋值

xlSheet.PrintOut '打印工作表

xlBook.Close (True) '关闭工作簿

xlApp.Quit '结束EXCEL对象

Set xlApp = Nothing '释放xlApp对象

xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏 xlBook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏

还有很多，这个要自己慢慢摸索