Sql in VBA 之 排序

排序

数据如下表：

代码：

desc：降序、asc：升序，不写则默认升序

Sub 排序()
    Dim cnn As Object, rst As Object
    Dim Mypath As String, Str_cnn As String, Sql As String
    Dim i As Long, start
    start = Timer
    Set cnn = CreateObject("adodb.connection")
    
    Mypath = ThisWorkbook.FullName
    If Application.Version < 12 Then
        Str_cnn = "Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & Mypath
    Else
        Str_cnn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & Mypath
    End If
    cnn.Open Str_cnn
    
    
'    Sql = "select 月份,生产量 from [产品表$] order by 生产量"
'    'Sql语句 生产量升序

'    Sql = "select 月份,生产量,销售量 from [产品表$] order by 生产量 desc,销售量 asc"
'    'Sql语句 先生产量降序、后销售量升序
    
'    Sql = "select 月份,生产量 from [产品表$] order by instr('五月,四月,三月,二月,一月',月份)"
'    'Sql语句 自定义排序

    Sql = "select top 3 月份,生产量 from [产品表$] order by 生产量 desc"
    'Sql语句 生产量降序

    Set rst = cnn.Execute(Sql)

    [k:l].ClearContents
    For i = 0 To rst.Fields.Count - 1
        Cells(1, i + 11) = rst.Fields(i).Name
    Next
    Range("k2").CopyFromRecordset rst
   
    cnn.Close
    Set cnn = Nothing
    
    MsgBox Format(Timer - start, "0.00s")

End Sub