上一篇我們已經(jīng)試過用Excel?自帶的索引完成了一次SQL檢索的操作，今天小編帶你用VBA實現(xiàn)SQL檢索，并實現(xiàn)相同項求和的功能

SELECT 字段名1,SUM(字段名2) FROM [原始數(shù)據(jù)$]) GROUP BY 字段名1 ORDERBY 字段名3

廢話不多說，先看效果

附上代碼：

Sub total() Dim Sql$, line&, i& Application.ScreenUpdating = False '關(guān)閉屏幕更新 Set xx =CreateObject("adodb.connection") '設置對象 With xx .Open"Provider=Microsoft.Ace.oledb.12.0;extended properties='excel12.0;HDR=yes';data source=" & ThisWorkbook.FullName Sql = "select 品號,sum(數(shù)量),sum(金額),類型 from [明細$] group by品號,品名,類型 order by 品號,類型 desc" [統(tǒng)計!A2].CopyFromRecordset.Execute(Sql) '放置查詢結(jié)果的起始位置 End With Application.ScreenUpdating = True End?Sub

今天重點就是這個SQL語句了

Sql ="select 品號,sum(數(shù)量),sum(金額),類型 from [明細$] group by 品號,品名,類型 order by 品號,類型 desc" SELECT 字段名1，字段名2，字段名3

表示在該字段名下的列進行檢索操作，檢索后的結(jié)果將也是以字段名1，字段名2，字段名3?的順序排列

FROM [表名$區(qū)域]

表名：指出檢索的字段所在的表格位置，可以使跨表格操作

區(qū)域：指出檢索的字段所在的表格中具體的位置，如果列的名稱從第一行開始，就可以不用填，如下圖所示：

SELECT?SUM(字段名2)?FROM?[原始數(shù)據(jù)$])?GROUP?BY?字段名1?可求出原始數(shù)據(jù)表中字段名2根據(jù)字段名1的分類求和值

例如：select 品號,sum(數(shù)量),sum(金額)…group by 品號,品名,類型

表示找出品號,品名,類型?都相同的元素，將數(shù)量和金額相加。

ORDER BY 品號,類型 desc

將查找的結(jié)果按“品號”為主要關(guān)鍵字和“品名”為次要關(guān)鍵字的順序排列，Desc?意思為降序排列

轉(zhuǎn)載請聯(lián)系授權(quán)(微信ID：Cxx-011)

---

源文件下載地址

鏈接：https://pan.baidu.com/s/1Ct7BMCSVcbJik_Mm7yt2ug

提取碼：cxx1

---

---

總結(jié)

以上是生活随笔為你收集整理的sql 列求和_Excel VBA高级编程SQL检索（二）合并相同项并求和的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。