EXCEL Vba 连接SQL SERVER问题

是不是引用的版本不对， 引用 2.5 试试

或者再试试， 创建对象的方法：

把Dim cn As New ADODB.Connection 这句删了 换成

Set cn = CreateObject("adodb.connection") '创建ado对象

====================================================================

'引用法

'工具--引用---Microsoft Activex..D...O"

'引用后再声明: Dim conn As New Connection 声明链接对象

' Dim rst As New Recordset声明记录集对象

'创建法

'使用CreateObject函数创建

Set cn = CreateObject("adodb.connection") '创建ado对象

Set rst = CreateObject("ADODB.recordset") '创建记录集

1、基本上所有的数据库都有对应的写法（有些数据库是要装连接驱动才能连），比如"Provider=Microsoft.Jet.OLEDB.4.0（用来连接access）或者provider =MSDASQL，而且每种数据库也可能会有多种连接方法（Provider意即数据库引擎），常见的有下面这些

Provider 代码 Provider

ADSDSOObject Active Directory Services

Microsoft.Jet.OLEDB.4.0 Microsoft Jet databases

MSDAIPP.DSO.1 Microsoft Internet Publishing

MSDAORA Oracle databases

MSDAOSP Simple text files

MSDASQL Microsoft OLE DB provider for ODBC

MSDataShape Microsoft Data Shape

MSPersist Locally saved files

SQLOLEDB Microsoft SQL Server

2、参见http://www.w3school.com.cn/ado/met_conn_open.asp#connectoptionenum

3、这样就可以对book1.xlsx中的数据使用sql语法进行 *** 作

4、当你需要返回结果的，比如说你要查询数据库符合某个条件的有几条记录，或者说取出数据库中符合条件的一批记录的时候就要用数据集，单一的conn.execute只能执行 *** 作，不能返回数据，必须配合结果集使用才可取回数据。

---