小编sat*_*sat的帖子

我有下面的VBA代码，当我必须嵌入一个简单的查询（例如Select * from table1）时，可以成功地将数据从SQL数据库获取到Excel工作表中，但是该代码无法正常工作并显示

编译错误：未定义用户定义的类型。

当我有复杂而漫长的查询时：

 Sub ConnectSqlServer()

        Dim conn As ADODB.Connection
        Dim rs As ADODB.Recordset
        Dim sConnString As String

        ' Create the connection string.
        sConnString = "Provider=SQLOLEDB;Data Source=vrsqladhoc;" & _
                      "Initial Catalog=TACT_REV;" & _
                      "Integrated Security=SSPI;"


        ' Create the Connection and Recordset objects.
        Set conn = New ADODB.Connection
        Set rs = New ADODB.Recordset

        ' Open the connection and execute.
        conn.Open sConnString
        Set rs = conn.Execute("select distinct column1 from table1;")

        ' Check we have data.
        If Not rs.EOF …