已解决【不知出现“用户定义类型未定义”如何解决？】

296293105

danhanqing 发表于 2017-11-14 11:55
有些老师把咱们都当成高手了呵呵，我也是新手！
方法如下：
1、进入代码编辑窗口（VBA窗口）

引用 无法点开怎么办？

意网琴声

Sub 如何使用VBA实现多数据库查询()
    Dim AdoConn As New ADODB.Connection
    Dim strConn As String
    Dim strSQL As String
    '设置连接字符串
    strConn = "Provider=SQLOLEDB.1;" & _
              "Data Source=192.168.16.2\MSSQLSERVER;" & _
              "Initial Catalog=DATA_001_2017;" & _
              "User ID=sa;" & _
              "Password=123456;"
              ";Extended Properties=""Excel 12.0;HDR=YES"";"
    '设置SQL查询语句
    strSQL = "Select SUM(数量) FROM [Sheet1$A1:A3] B Left Join" & _
             "[DATABASE=" & ThisWorkbook.Path & Application.PathSeparator & _
             "DATA_001_2017.sz_zk_aaa A on B.日期=A.日期 Group By 日期"
    '打开数据库链接
    AdoConn.Open strConn
    '执行查询，并将结果输出到当前表格B2
    Sheets("Sheet1").Range("B2").CopyFromRecordset AdoConn.Execute(strSQL)
    '关闭数据库连接
    AdoConn.Close
End Sub
你好能帮我看下我错在哪了吗？总是提示“用户定义类型未定义的错误”