急高分！怎样用vb把excel表中的数据导入数据库中。该怎么处理
急！高分！怎样用vb把excel表中的数据导入数据库中。
我想把excel表中的数据导入到sql server 数据库中（用vb实现）。不知道可不可以实现！请高手赐教！谢谢！
------解决方案--------------------
试试用两个连接对象，一个连接EXCEL，一个连接SQL，最简单的方法是建两个记录集，一个是EXCEL的，读入，一个是SQL的，用
Set SQL_RS = EXCEL_RS
转移记录集，然后执行 sql_rs.update.
没试过，仅提个建议而已。
一般都是直接在SQL上导入，考虑你可能是用VB做客户端，不能直接由SQL访问你的硬盘。
------解决方案--------------------
楼上的不失为一种好方法
此外还有一种方法，那就是用Excel对象读取Excel的内容，然后在将其插入目标数据库中。
------解决方案--------------------
VBA
------解决方案--------------------
楼主的这个问题说的太泛泛了。
在我看来，VB 无所不能，因为有很多很多的 COM 为它服务。它可以访问 Exchange Server，因为有 CDO；它可以访问 SQL Server/Oracle/DB2...，因为有 ADO；当然它也可以访问 Excel/Word，因为有 Excel Object Library(EXCEL.EXE)/Microsoft Word Object Library(MSWORD.OLB) 等等。
这里所说的访问一般就是指的操作其对象数据，能够达到大部分你手工能做到的事情。比如，它能功过 ADO 访问 SQL Server，就意味着从通常的连接数据库、执行查询、删除数据、调用存储过程，到复杂的创建数据库、创建表等等操作都能做到。对于 Excel 来说，它能打开指定的 Excel 文件、读取工作表的数据、创建新的工作表、向指定的单元格中写入想要的数据等等。。。。。。
------解决方案--------------------
把excel表当做外部数据库用sql语句导入就行了，网上一搜一片。
------解决方案--------------------
’经实际测试，以下代码数据库和Excel之间互相导入导出，完全成功！
Private Sub Command1_Click()
'access导出到excel
Dim db As New ADODB.Connection
Dim sPath As String
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Temp\Test\db1.mdb Persist Security Info=False"
sPath = App.Path + "\backup.xls"
If Dir(sPath) <> "" Then
Kill sPath
Else
Call db.Execute("select * into [Sheet1$] In '" & sPath & "' 'excel 8.0;' from 表1")
MsgBox "导出成功", vbOKOnly, "提示"
End If
db.Close
Set db = Nothing
End Sub
Private Sub Command2_Click()
'从excel导出到 access
Dim db As New ADODB.Connection
Dim sPath As String
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Temp\Test\db1.mdb;Persist Security Info=False"
sPath = App.Path + "\backup.xls"
Call db.Execute("select * into Table4 From [Sheet1$] In '" & sPath & "' 'excel 8.0;'")
db.Close
Set db = Nothing
End Sub
------解决方案--------------------
DoCmd.TransferSpreadsheet acExport, 8, "tmp_fabric", excel_path & "\XLS\output to Excel\fabric_details", True, "" *****tmp_fabric为表名，后边跟着的是相对路径；
我想把excel表中的数据导入到sql server 数据库中（用vb实现）。不知道可不可以实现！请高手赐教！谢谢！
------解决方案--------------------
试试用两个连接对象，一个连接EXCEL，一个连接SQL，最简单的方法是建两个记录集，一个是EXCEL的，读入，一个是SQL的，用
Set SQL_RS = EXCEL_RS
转移记录集，然后执行 sql_rs.update.
没试过，仅提个建议而已。
一般都是直接在SQL上导入，考虑你可能是用VB做客户端，不能直接由SQL访问你的硬盘。
------解决方案--------------------
楼上的不失为一种好方法
此外还有一种方法，那就是用Excel对象读取Excel的内容，然后在将其插入目标数据库中。
------解决方案--------------------
VBA
------解决方案--------------------
楼主的这个问题说的太泛泛了。
在我看来，VB 无所不能，因为有很多很多的 COM 为它服务。它可以访问 Exchange Server，因为有 CDO；它可以访问 SQL Server/Oracle/DB2...，因为有 ADO；当然它也可以访问 Excel/Word，因为有 Excel Object Library(EXCEL.EXE)/Microsoft Word Object Library(MSWORD.OLB) 等等。
这里所说的访问一般就是指的操作其对象数据，能够达到大部分你手工能做到的事情。比如，它能功过 ADO 访问 SQL Server，就意味着从通常的连接数据库、执行查询、删除数据、调用存储过程，到复杂的创建数据库、创建表等等操作都能做到。对于 Excel 来说，它能打开指定的 Excel 文件、读取工作表的数据、创建新的工作表、向指定的单元格中写入想要的数据等等。。。。。。
------解决方案--------------------
把excel表当做外部数据库用sql语句导入就行了，网上一搜一片。
------解决方案--------------------
’经实际测试，以下代码数据库和Excel之间互相导入导出，完全成功！
Private Sub Command1_Click()
'access导出到excel
Dim db As New ADODB.Connection
Dim sPath As String
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Temp\Test\db1.mdb Persist Security Info=False"
sPath = App.Path + "\backup.xls"
If Dir(sPath) <> "" Then
Kill sPath
Else
Call db.Execute("select * into [Sheet1$] In '" & sPath & "' 'excel 8.0;' from 表1")
MsgBox "导出成功", vbOKOnly, "提示"
End If
db.Close
Set db = Nothing
End Sub
Private Sub Command2_Click()
'从excel导出到 access
Dim db As New ADODB.Connection
Dim sPath As String
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Temp\Test\db1.mdb;Persist Security Info=False"
sPath = App.Path + "\backup.xls"
Call db.Execute("select * into Table4 From [Sheet1$] In '" & sPath & "' 'excel 8.0;'")
db.Close
Set db = Nothing
End Sub
------解决方案--------------------
DoCmd.TransferSpreadsheet acExport, 8, "tmp_fabric", excel_path & "\XLS\output to Excel\fabric_details", True, "" *****tmp_fabric为表名，后边跟着的是相对路径；