本文目录一览：
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控件.
vb 数据怎么写入excel?
'在工程中添加对Excel的引用
Dim xlsApp As Excel.Application
Dim xlsBook As Excel.Workbook
Private Sub Command1_Click()
Dim I As Integer
Set xlsApp = Excel.Application
xlsApp.Visible = False
Set xlsBook = xlsApp.Workbooks.Open("D:/11.xls")
I = 1
Do While xlsApp.Sheets(1).cells(I, 1) ""
I = I + 1
Loop
xlsApp.Sheets(1).cells(I, 1) = Text1.Text
xlsBook.Close (True)
xlsApp.Quit
Set xlsApp = Nothing
MsgBox "数据写入成功！"
End Sub
方法一：可以试着用VB书写一段调用SQL Server数据库DTS的代码，然后就可以像直接使用DTS进行数据导入一样就行Excel与SQL Server数据之间的迁移了。
方法二：可以用VB来操作EXCEL，然后一条数据一条数据的插入到数据库中，这种方法不推荐使用，因为VB操作EXCEL是非常慢的，如果数据量太大，很有可能会造成机。
用VB编写一个导入EXCEL文件数据到SQL2000数据库中的程序，怎么编写的
操作方法如下：
1、导入Excel数据，同时创建表:
select * into 表名 FROMopenrowset( 'Microsoft.Jet.OLEDB.4.0','EXCEL 8.0;HDR=YES;IMEX=1;DATABASE=文件路径','select* from [Excel表名(默认为Sheet1)$]')。
2、在表中插入Excel数据：
insert into 表名 select * fromopenrowset( 'Microsoft.Jet.OLEDB.4.0','EXCEL 8.0;HDR=YES;IMEX=1; DATABASE=文件路径','select * from [Excel表名(默认为Sheet1)$]')。
3、导出数据到Excel中：
insert into openrowset('Microsoft.Jet.OLEDB.4.0','EXCEL 8.0;HDR=YES;IMEX=0; DATABASE=文件路径','select* from [Excel表名(默认为Sheet1)$]') select * from 表名；需要创建Excel文件并指定列名后才可以导出。