前沿拓展：

order by

select * from table where id >=10 and id<=15 order by id desc

忘了between … and …是否包括邊界了。

ORDER BY的語句使用對于ORDER BY 語句而言，默認值是升序排列，通常是不指定它。但升序的關(guān)鍵詞為ASC,降序為DESC。 語法結(jié)構(gòu)如下：：

SELECT 列字段名 FROM [工作表名稱$] ORDER BY 指定列字段名 升序(降序)

使用實例說明：

源數(shù)據(jù)：

查詢內(nèi)容

對英語成績進行降序排列：

對英語成績進行升序排列：

代碼運行的結(jié)果如下：

代碼如下:

Sub FuYun_Sql_paixu()
Dim cnn As Object, rst As Object
Dim Mypath As String, Str_cnn As String, Sql As String
Dim i As Long
Set cnn = CreateObject(“adodb.connection”)
‘以上是第一步，后期綁定ADO

Mypath = ThisWorkbook.FullName
‘以上獲取當(dāng)前工作簿的路徑及名稱

If Application.Version < 12 Then
‘格式為.xls,調(diào)用下述語句
Str_cnn = “Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=” & Mypath
Else
‘格式為.xlsx,調(diào)用下述語句
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 英語 asc ”
‘Sql語句，查詢所有數(shù)據(jù)，并按照英語成績進行排序
[f2:i1000].ClearContents
‘清空[e1:i1000]區(qū)域內(nèi)容
Range(“f2”).CopyFromRecordset cnn.Execute(Sql)
‘Execute語句先執(zhí)行SQL語句
‘使用單元格對象的CopyFromRecordset方法將SQL查詢到的內(nèi)容**到D2單元格為左上角的單元格區(qū)域
‘以上是第三步，執(zhí)行SQL語句并將數(shù)據(jù)讀入表格指定區(qū)域
cnn.Close
‘關(guān)閉鏈接
Set cnn = Nothing
‘釋放內(nèi)存
End Sub
代碼解析

代碼我放了一個例子，大部分的代碼是一致的，只有SQL的句子不一樣。

如果需要兩列排序的SQL語句如下：

Sql = “SELECT * FROM [成績單$] ORDER BY 英語 asc，數(shù)學(xué) asc
點擊關(guān)注可以更方便的查看Excel VBA的案例文章私信 SQL 可以獲取SQL代碼的Excel文件私信 視頻 可以獲取54集VBA入門視頻私信 VBA或 vba 可以獲取文章中含VBA代碼的Excel文件

拓展知識：

前沿拓展：

order by

select * from table where id >=10 and id<=15 order by id desc

忘了between … and …是否包括邊界了。

ORDER BY的語句使用對于ORDER BY 語句而言，默認值是升序排列，通常是不指定它。但升序的關(guān)鍵詞為ASC,降序為DESC。 語法結(jié)構(gòu)如下：：

SELECT 列字段名 FROM [工作表名稱$] ORDER BY 指定列字段名 升序(降序)

使用實例說明：

源數(shù)據(jù)：

查詢內(nèi)容

對英語成績進行降序排列：

對英語成績進行升序排列：

代碼運行的結(jié)果如下：

代碼如下:

Sub FuYun_Sql_paixu()
Dim cnn As Object, rst As Object
Dim Mypath As String, Str_cnn As String, Sql As String
Dim i As Long
Set cnn = CreateObject(“adodb.connection”)
‘以上是第一步，后期綁定ADO

Mypath = ThisWorkbook.FullName
‘以上獲取當(dāng)前工作簿的路徑及名稱

If Application.Version < 12 Then
‘格式為.xls,調(diào)用下述語句
Str_cnn = “Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=” & Mypath
Else
‘格式為.xlsx,調(diào)用下述語句
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 英語 asc ”
‘Sql語句，查詢所有數(shù)據(jù)，并按照英語成績進行排序
[f2:i1000].ClearContents
‘清空[e1:i1000]區(qū)域內(nèi)容
Range(“f2”).CopyFromRecordset cnn.Execute(Sql)
‘Execute語句先執(zhí)行SQL語句
‘使用單元格對象的CopyFromRecordset方法將SQL查詢到的內(nèi)容**到D2單元格為左上角的單元格區(qū)域
‘以上是第三步，執(zhí)行SQL語句并將數(shù)據(jù)讀入表格指定區(qū)域
cnn.Close
‘關(guān)閉鏈接
Set cnn = Nothing
‘釋放內(nèi)存
End Sub
代碼解析

代碼我放了一個例子，大部分的代碼是一致的，只有SQL的句子不一樣。

如果需要兩列排序的SQL語句如下：

Sql = “SELECT * FROM [成績單$] ORDER BY 英語 asc，數(shù)學(xué) asc
點擊關(guān)注可以更方便的查看Excel VBA的案例文章私信 SQL 可以獲取SQL代碼的Excel文件私信 視頻 可以獲取54集VBA入門視頻私信 VBA或 vba 可以獲取文章中含VBA代碼的Excel文件

拓展知識：

前沿拓展：

order by

select * from table where id >=10 and id<=15 order by id desc

忘了between … and …是否包括邊界了。

ORDER BY的語句使用對于ORDER BY 語句而言，默認值是升序排列，通常是不指定它。但升序的關(guān)鍵詞為ASC,降序為DESC。 語法結(jié)構(gòu)如下：：

SELECT 列字段名 FROM [工作表名稱$] ORDER BY 指定列字段名 升序(降序)

使用實例說明：

源數(shù)據(jù)：

查詢內(nèi)容

對英語成績進行降序排列：

對英語成績進行升序排列：

代碼運行的結(jié)果如下：

代碼如下:

Sub FuYun_Sql_paixu()
Dim cnn As Object, rst As Object
Dim Mypath As String, Str_cnn As String, Sql As String
Dim i As Long
Set cnn = CreateObject(“adodb.connection”)
‘以上是第一步，后期綁定ADO

Mypath = ThisWorkbook.FullName
‘以上獲取當(dāng)前工作簿的路徑及名稱

If Application.Version < 12 Then
‘格式為.xls,調(diào)用下述語句
Str_cnn = “Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=” & Mypath
Else
‘格式為.xlsx,調(diào)用下述語句
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 英語 asc ”
‘Sql語句，查詢所有數(shù)據(jù)，并按照英語成績進行排序
[f2:i1000].ClearContents
‘清空[e1:i1000]區(qū)域內(nèi)容
Range(“f2”).CopyFromRecordset cnn.Execute(Sql)
‘Execute語句先執(zhí)行SQL語句
‘使用單元格對象的CopyFromRecordset方法將SQL查詢到的內(nèi)容**到D2單元格為左上角的單元格區(qū)域
‘以上是第三步，執(zhí)行SQL語句并將數(shù)據(jù)讀入表格指定區(qū)域
cnn.Close
‘關(guān)閉鏈接
Set cnn = Nothing
‘釋放內(nèi)存
End Sub
代碼解析

代碼我放了一個例子，大部分的代碼是一致的，只有SQL的句子不一樣。

如果需要兩列排序的SQL語句如下：

Sql = “SELECT * FROM [成績單$] ORDER BY 英語 asc，數(shù)學(xué) asc
點擊關(guān)注可以更方便的查看Excel VBA的案例文章私信 SQL 可以獲取SQL代碼的Excel文件私信 視頻 可以獲取54集VBA入門視頻私信 VBA或 vba 可以獲取文章中含VBA代碼的Excel文件

拓展知識：

前沿拓展：

order by

select * from table where id >=10 and id<=15 order by id desc

忘了between … and …是否包括邊界了。

ORDER BY的語句使用對于ORDER BY 語句而言，默認值是升序排列，通常是不指定它。但升序的關(guān)鍵詞為ASC,降序為DESC。 語法結(jié)構(gòu)如下：：

SELECT 列字段名 FROM [工作表名稱$] ORDER BY 指定列字段名 升序(降序)

使用實例說明：

源數(shù)據(jù)：

查詢內(nèi)容

對英語成績進行降序排列：

對英語成績進行升序排列：

代碼運行的結(jié)果如下：

代碼如下:

Sub FuYun_Sql_paixu()
Dim cnn As Object, rst As Object
Dim Mypath As String, Str_cnn As String, Sql As String
Dim i As Long
Set cnn = CreateObject(“adodb.connection”)
‘以上是第一步，后期綁定ADO

Mypath = ThisWorkbook.FullName
‘以上獲取當(dāng)前工作簿的路徑及名稱

If Application.Version < 12 Then
‘格式為.xls,調(diào)用下述語句
Str_cnn = “Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=” & Mypath
Else
‘格式為.xlsx,調(diào)用下述語句
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 英語 asc ”
‘Sql語句，查詢所有數(shù)據(jù)，并按照英語成績進行排序
[f2:i1000].ClearContents
‘清空[e1:i1000]區(qū)域內(nèi)容
Range(“f2”).CopyFromRecordset cnn.Execute(Sql)
‘Execute語句先執(zhí)行SQL語句
‘使用單元格對象的CopyFromRecordset方法將SQL查詢到的內(nèi)容**到D2單元格為左上角的單元格區(qū)域
‘以上是第三步，執(zhí)行SQL語句并將數(shù)據(jù)讀入表格指定區(qū)域
cnn.Close
‘關(guān)閉鏈接
Set cnn = Nothing
‘釋放內(nèi)存
End Sub
代碼解析

代碼我放了一個例子，大部分的代碼是一致的，只有SQL的句子不一樣。

如果需要兩列排序的SQL語句如下：

Sql = “SELECT * FROM [成績單$] ORDER BY 英語 asc，數(shù)學(xué) asc
點擊關(guān)注可以更方便的查看Excel VBA的案例文章私信 SQL 可以獲取SQL代碼的Excel文件私信 視頻 可以獲取54集VBA入門視頻私信 VBA或 vba 可以獲取文章中含VBA代碼的Excel文件

拓展知識：