前沿拓展：

order by

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

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

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

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

使用實(shí)例說明：

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

查詢內(nèi)容

對(duì)英語成績(jī)進(jìn)行降序排列：

對(duì)英語成績(jī)進(jìn)行升序排列：

代碼運(yùn)行的結(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 [成績(jī)單$] ORDER BY 英語 asc ”
‘Sql語句，查詢所有數(shù)據(jù)，并按照英語成績(jī)進(jìn)行排序
[f2:i1000].ClearContents
‘清空[e1:i1000]區(qū)域內(nèi)容
Range(“f2”).CopyFromRecordset cnn.Execute(Sql)
‘Execute語句先執(zhí)行SQL語句
‘使用單元格對(duì)象的CopyFromRecordset方法將SQL查詢到的內(nèi)容**到D2單元格為左上角的單元格區(qū)域
‘以上是第三步，執(zhí)行SQL語句并將數(shù)據(jù)讀入表格指定區(qū)域
cnn.Close
‘關(guān)閉鏈接
Set cnn = Nothing
‘釋放內(nèi)存
End Sub
代碼解析

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

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

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

拓展知識(shí)：

前沿拓展：

order by

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

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

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

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

使用實(shí)例說明：

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

查詢內(nèi)容

對(duì)英語成績(jī)進(jìn)行降序排列：

對(duì)英語成績(jī)進(jìn)行升序排列：

代碼運(yùn)行的結(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 [成績(jī)單$] ORDER BY 英語 asc ”
‘Sql語句，查詢所有數(shù)據(jù)，并按照英語成績(jī)進(jìn)行排序
[f2:i1000].ClearContents
‘清空[e1:i1000]區(qū)域內(nèi)容
Range(“f2”).CopyFromRecordset cnn.Execute(Sql)
‘Execute語句先執(zhí)行SQL語句
‘使用單元格對(duì)象的CopyFromRecordset方法將SQL查詢到的內(nèi)容**到D2單元格為左上角的單元格區(qū)域
‘以上是第三步，執(zhí)行SQL語句并將數(shù)據(jù)讀入表格指定區(qū)域
cnn.Close
‘關(guān)閉鏈接
Set cnn = Nothing
‘釋放內(nèi)存
End Sub
代碼解析

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

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

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

拓展知識(shí)：

前沿拓展：

order by

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

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

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

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

使用實(shí)例說明：

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

查詢內(nèi)容

對(duì)英語成績(jī)進(jìn)行降序排列：

對(duì)英語成績(jī)進(jìn)行升序排列：

代碼運(yùn)行的結(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 [成績(jī)單$] ORDER BY 英語 asc ”
‘Sql語句，查詢所有數(shù)據(jù)，并按照英語成績(jī)進(jìn)行排序
[f2:i1000].ClearContents
‘清空[e1:i1000]區(qū)域內(nèi)容
Range(“f2”).CopyFromRecordset cnn.Execute(Sql)
‘Execute語句先執(zhí)行SQL語句
‘使用單元格對(duì)象的CopyFromRecordset方法將SQL查詢到的內(nèi)容**到D2單元格為左上角的單元格區(qū)域
‘以上是第三步，執(zhí)行SQL語句并將數(shù)據(jù)讀入表格指定區(qū)域
cnn.Close
‘關(guān)閉鏈接
Set cnn = Nothing
‘釋放內(nèi)存
End Sub
代碼解析

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

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

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

拓展知識(shí)：

前沿拓展：

order by

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

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

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

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

使用實(shí)例說明：

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

查詢內(nèi)容

對(duì)英語成績(jī)進(jìn)行降序排列：

對(duì)英語成績(jī)進(jìn)行升序排列：

代碼運(yùn)行的結(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 [成績(jī)單$] ORDER BY 英語 asc ”
‘Sql語句，查詢所有數(shù)據(jù)，并按照英語成績(jī)進(jìn)行排序
[f2:i1000].ClearContents
‘清空[e1:i1000]區(qū)域內(nèi)容
Range(“f2”).CopyFromRecordset cnn.Execute(Sql)
‘Execute語句先執(zhí)行SQL語句
‘使用單元格對(duì)象的CopyFromRecordset方法將SQL查詢到的內(nèi)容**到D2單元格為左上角的單元格區(qū)域
‘以上是第三步，執(zhí)行SQL語句并將數(shù)據(jù)讀入表格指定區(qū)域
cnn.Close
‘關(guān)閉鏈接
Set cnn = Nothing
‘釋放內(nèi)存
End Sub
代碼解析

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

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

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

拓展知識(shí)：