如何将<em>excel</em>中的数据用<em>ADO</em>插入

1、首先打开SQL Server数据库，准备一个要导入的数据表，如下图所示，数据表中插入一些数据

2、接下来打开Excel软件，点击数据菜抄单，然后选择其他来源下面的来自SQL Server选项

3、然后会弹出数据库连接向导界面，在输入袭框里面输入服务器名称，也就是计算机名

4、接下来就会出现导入内容的具体设置界面了zhidao，我们选择要导入表，并且选择一个空白单元格位置作为数据的导入位置

5、最后点击确定按钮，我们就可以看到SQL Server中的数据就导入进Excel里了

给你一e68a84e8a2ade79fa5e98193337个例子，你参考一下就可以做出来了：
Sub 支出登记_Click()
Dim i As Integer, j As Integer, k As Integer, sht As Worksheet 'i,j,k为整数变量；sht 为excel工作表对象变量，指向某一工作表
Dim cn As New ADODB.Connection '定义数据链接对象 ，保存连接数据库信息；请先添加ADO引用
Dim rs As New ADODB.Recordset '定义记录集对象，保存数据表
Dim strCn As String, strSQL As String '字符串变量
Dim mdbFile As String

On Error GoTo add_err

mdbFile = ActiveWorkbook.Path & "\\生活数据库.mdb"

strCn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdbFile '定义数据库链接字符串
cn.Open strCn '与数据库建立连接，如果成功，返回连接对象cn

Set rs = New ADODB.Recordset
rs.Open "dbl支出登记表", cn, adOpenKeyset, adLockOptimistic

rs.AddNew

rs(1) = Cells(5, 3)

rs(2) = Cells(6, 3)

rs(3) = Cells(7, 3)

rs(4) = Cells(8, 3)

rs(5) = Cells(9, 4)

rs(6) = Cells(10, 4)

rs.Update

Cells(5, 3) = Date

Cells(6, 3) = ""

Cells(7, 3) = ""

Cells(8, 3) = ""

Cells(9, 3) = ""

Cells(10, 3) = ""

MsgBox "数据记录添加成功！", vbInformation
Cells(5, 4).Select
ActiveWorkbook.RefreshAll

add_exit:

Exit Sub
End If

add_err:

MsgBox Err() & vbCrLf & Error()

Resume add_exit
End Sub
如有不明白，可以QQ我：13764732
在通过ADO对Excel对象进行连接时（此时Excel则认为是一个数据源），需要配置对Excel数据源对应的连接串，这个连接串中包括了7a64e58685e5aeb9339Provider信息（其实类似对数据库进行连接操作时，都需要指定连接字符串），以下是一行连接串源代码： strConnString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strExcelFilePath & ";Extended Properties=Excel 12.0" 这里的Provider使用了Microsoft.ACE.OLEDB.12.0，其实除了Microsoft.ACE.OLEDB.12.0，还有Microsoft.Jet.OLEDB.4.0，它们俩者之间有什么联系和区别呢： 共同点：都是做为连接Excel对象的接口引擎 不同点： 对于不同的Excel版本，有两种接口可供选择：Microsoft.Jet.OLEDB.4.0（以下简称 Jet 引擎）和Microsoft.ACE.OLEDB.12.0（以下简称 ACE 引擎）。 Jet 引擎，可以访问 Office 97-2003，但不能访问 Office 2007。 ACE 引擎是随 Office 2007 一起发布的数据库连接组件，既可以访问 Office 2007，也可以访问 Office 97-2003。

在通过ADO对Excel对象进行连接时（此时Excel则认为是一个数据源），需要配置对Excel数据源对应的连接串，这个7a686964616fe58685e5aeb9333连接串中包括了Provider信息（其实类似对数据库进行连接操作时，都需要指定连接字符串），
以下是一行连接串源代码： strConnString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strExcelFilePath & ";Extended Properties=Excel 12.0" 这里的Provider使用了Microsoft.ACE.OLEDB.12.0，其实除了Microsoft.ACE.OLEDB.12.0，还有Microsoft.Jet.OLEDB.4.0，它们俩者之间有什么联系和区别呢： 共同点：都是做为连接Excel对象的接口引擎 不同点：
对于不同的Excel版本，有两种接口可供选择：Microsoft.Jet.OLEDB.4.0（以下简称 Jet 引擎）和Microsoft.ACE.OLEDB.12.0（以下简称 ACE 引擎）。 Jet 引擎，可以访问 Office 97-2003，但不能访问 Office 2007。 ACE 引擎是随 Office 2007 一起发布的数据库连接组件，既可以访问 Office 2007，也可以访问 Office 97-2003。