vb读取excel数据的教程

在Excle中录入好数据以后，可扰扮能会需要用VB进行读取Excle数据，具体该如何读取数据呢?下面是我带来的关于vb读取excel数据的教程，希望阅读过后对你有所启发!

vb读取excel数据的教程：

Private Sub Form_Load()

Text1.Text = App.Path &"\123.xls"

斗斗Text2.Text = App.Path &"\123.mdb"缓销灶

Text3.Text = "sheet1"

Text4.Text = "sheet1"

Data1.DatabaseName = App.Path &"\123.mdb"

End Sub

Private Sub Command1_Click()

Dim db As Database

Dim sheet As String, excelpath As String, AccessPath As String, AccessTable As String

AccessPath = Text2.Text '数据库路径

excelpath = Text1.Text '电子表格路经

AccessTable = Text4.Text '数据库内表格

sheet = Text3.Text '电子表格内工作表

Set db = OpenDatabase(excelpath, True, False, " Excel 5.0") '打开电子表格文件

SQL = ("Select * into [database=" &AccessPath &"]." &AccessTable &" FROM [" &sheet &"$]")

db.Execute (SQL) '将电子表格导入数据库

Data1.RecordSource = "sheet1"

Data1.Refresh

DBGrid1.Refresh '显示电子表格导入到数据库的数据

End Sub

上面的是把EXCEL读取到数据库中,你做点修改就行了.一个Data控件.

Visual Basic开发工具模式可以直接从Excel表格中进入，不需要另外打开。

具体步骤：

1、在电脑上桌面上找到Excel表格图标，双击打开。

2、打开Excel软件后，点清缺简击左上角按钮。

3、点击后会d出一个菜单，在菜单中点击Excel选项按钮。

4、然后在d出的对话框中勾选自定义功能区中的“开发工具”。

5、然后点击右下方确定按钮。

6、点击确定后，会返回Excel页面。

7、然后在Excel上方的导航栏中点击开答裤发工具按钮。

8、然后在开发工具页面，点击Visual Basic选项。扮首

9、点击后就会进入Visual Basic开发模式。

10、点击左侧导航栏中的Excel中的sheet表格，就可以在Visual Basic中打开了。

读写EXCEL表：

1、在工程中引用Microsoft Excel类型库：

从"工程"菜单中选择"引用"栏；选择Microsoft Excel 12.0 Object Library（EXCEL2007），然后选择"确定"。表示在工程中缓毁要引用EXCEL类型库。

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

Dim xlApp As Excel.Application

Dim xlBook As Excel.WorkBook

Dim xlSheet As Excel.Worksheet

3、在程序中 *** 作EXCEL表常用命令：

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

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

Set xlBook = xlApp.Workbooks.Add("文件名") '创建新的EXCEL工件簿文件

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

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

for i=1 to 100

　for j=1 to 50

numArr(j,i)=xlSheet.Cells(j, i) '......................................

　next

next

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

xlApp.Quit '结束EXCEL对象

Set xlApp = Nothing '释放xlApp对象

---