VBA与数据库——简化程序编写-排序

在Excel里对数据排序是非常简单的一个操作，只需要选中数据，点击菜单-数据-排序，然后选择相应的字段和排序方式即可。

如果是要在VBA里对Excel数据进行排序，直接使用Range的Sort方法即可，也非常的简单。

但是Range的Sort方法具体是如何实现的，我们根本不知道！当然使用过程中也不需要去知道它的具体实现方法。

如果想在VBA里对一个数组进行排序，也可以将数组的数据先输出到Excel单元格，然后调用Range的Sort方法进行排序，排序完成后再读取到数组中。

如果想在数组中对数据直接进行排序，就需要实现一个排序的算法，像冒泡排序、插入排序、快速排序之类的。

如果仅仅是对Excel单元格数据进行排序，除了Range的Sort方法，也可以使用ADO来实现：

Sub ADOSortData()
    Dim AdoConn As Object
    Set AdoConn = VBA.CreateObject("ADODB.Connection")
    
    '打开数据库
    AdoConn.Open "Provider =Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=YES"";"
    Range("D2").CopyFromRecordset AdoConn.Execute("select * from [Sheet1$A1:B5] order by 数据 asc", , 1)

    AdoConn.Close
    Set AdoConn = Nothing
End Sub

代码和前面的汇总数据、查找数据一样，仅仅是修改了sql语句，order by关键字按照指定的列对数据进行排序，默认是asc升序，也可以使desc用进行降序，实现起来非常的方便。