Excel VBA调用sql语句使用distinct函数无法去重问题

gtxing

我用VBA调用sql语句使用distinct函数无法去重，不知道是什么原因，具体如附件，求大神们帮忙解决下，谢谢

1. Sub 去重()
   
2. Dim cnn As Object, sql$
   
3. Set cnn = CreateObject("adodb.connection")
   
4. cnn.Open "Provider = Microsoft.ACE.Oledb.12.0;Extended Properties=excel 12.0;Data Source =" & ThisWorkbook.FullName
   
5. sql = "select distinct md,dq from [Sheet1$A:B]"
   
6. Sheets("Sheet1").[H1].CopyFromRecordset cnn.Execute(sql)
   
7. cnn.Close
   
8. Set cnn = Nothing
   
9. End Sub
   

复制代码

yeminqiang

没发觉有啥问题？

gtxing

yeminqiang 发表于 2016-8-11 20:02
没发觉有啥问题？

你的运行结果不是这样吗？

ychexcel

试试改成这样：

1. sql = "select distinct md,dq from [Sheet1$]

复制代码

zhaogang1960

去掉工作表后面的区域A:B，否则仅会将65536行以内的数据作为数据源

SQL速度太慢，使用数组+字典很快：

Sub 字典法()
    Dim arr, brr(), i&, m&, s$, d As Object
    Set d = CreateObject("scripting.dictionary")
    arr = [a1].CurrentRegion
    ReDim brr(1 To UBound(arr), 1 To 2)
    For i = 2 To UBound(arr)
        s = arr(i, 1) & "," & arr(i, 2)
        If Not d.Exists(s) Then
            d(s) = ""
            m = m + 1
            brr(m, 1) = arr(i, 1)
            brr(m, 2) = arr(i, 2)
        End If
    Next
    [h:i] = ""
    [h1].Resize(m, 2) = brr
End Sub

gtxing

ychexcel 发表于 2016-8-13 21:05
试试改成这样：

谢谢，这样可以，sql = "select distinct md,dq from [Sheet1$A:B]"是不是2003版的写法的原因

gtxing

zhaogang1960 发表于 2016-8-13 21:32
去掉工作表后面的区域A:B，否则仅会将65536行以内的数据作为数据源

SQL速度太慢，使用数组+字典很快：

谢谢大神，果然快很多。但是实际中我需要设置select条件和按某一字段排序的呢，比如：
sql = "select distinct md,dq from [Sheet1$] where md='" & Sheets("表格").[E2] & "' and dq in ('A','B','C') order by md"
这个用字典能实现吗？

ftfox

order by instr(dp,'ABC')

ning84

以前会用SQL ，怎么又不会用了。

1. 
   
2. Private Sub SqlNoRepeat()
   
3.     Dim Cn As ADODB.Connection
   
4.     Dim Rs As ADODB.Record
   
5.     Dim SqlStr, CnStr, oPath
   
6.       
   
7.         Set Cn = New ADODB.Connection
   
8.         Set Rs = New ADODB.Record
   
9.         Cn.Open "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
   
10. 
    
11.         SqlStr = "Select Distinct  Pp From [Sheet1$]"
    
12.         Set Rs = Cn.Execute(SqlStr)
    
13.         Stop
    
14.         Stop
    
15. End Sub
    

复制代码