快上网专注成都网站设计 成都网站制作 成都网站建设
成都网站建设公司服务热线:028-86922220

网站建设知识

十年网站开发经验 + 多家企业客户 + 靠谱的建站团队

量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决

vb.net读excel的简单介绍

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

第一步,新建项目。

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

1

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

2

新建成功。

END

第二步,添加引用。

1

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

2

添加Microsoft Excel 14.0 Object Library。

END

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

1

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

2

添加成功。

END

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

1

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

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

2

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

3

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

END

第五步,编写程序。

1

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

END

第六步,运行程序。

1

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

2

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

END

第七步,保存程序。

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

2

选好自己要保存的位置。

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

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

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怎么访问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关闭宏

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


新闻名称:vb.net读excel的简单介绍
文章源于:http://6mz.cn/article/hocsod.html

其他资讯