「代码更正」SQL查询汇总EXCEL表数据：出入库统计增加上年库存统计并按名称排序

文摘教育 2024-11-08 21:58 江苏

点【关于本公众号】了解一下，欢迎关注，谢谢！

快速浏览

实用案例

|日期控件 ||简单的收发存||收费管理系(Access改进版)|

|电子发票管理助手||电子发票登记系统(Access版)|

|文件合并 ||表格拆分 ||审计凭证抽查底稿|

|中医诊所收费系统(Excel版)||中医诊所收费系统(Access版)||银行对账单自动勾对|

|印章使用登记系统|

收费使用项目

|财务管理系统||工资薪金和年终奖个税筹划||新税法下工资表模版|

内容提要

SQL查询汇总EXCEL表数据|完整代码「更正」

1、在工作表“名单表”里，命令按钮点击事件，调用mySum 过程：

Private Sub CmdSum_Click()    Call mySumEnd Sub

2、在myModule模块里，mySum过程，查询汇总数据：

第一部分，定义变量，建立数据库连接，编写SQL查询语句等：

Sub mySum()    '//经过AI整理、添加注释    Dim sql1 As String, sql2 As String, sql3 As String, sql As String, tbl As String, dbs As String    Dim ws As Worksheet, rng As Range    Dim conn As Object, rs As Object, strConn As String    Dim currYear As Integer        'On Error Resume Next    '获取用户输入的查询年份，默认为当前年份    currYear = InputBox("请输入查询年份：", "输入", Year(Date))        '设置数据库和表名    dbs = ThisWorkbook.FullName    tbl = "[出入库明细$]"        '创建数据库连接和记录集对象    Set conn = CreateObject("ADODB.Connection")    Set rs = CreateObject("ADODB.Recordset")    strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & dbs        sql = "SELECT 名称, SUM(IIF(YEAR(日期) < " & currYear & ", 入库 - 出库, 0)) AS 上年库存 ," _        & "SUM(IIF(YEAR(日期) = " & currYear & ", 入库 , 0)) AS 入库, " _        & "SUM(IIF(YEAR(日期) = " & currYear & ", 出库 , 0)) AS 出库, " _        & "SUM(IIF(YEAR(日期) <= " & currYear & ", 入库 - 出库, 0)) AS 本年库存  " _        & "FROM " & tbl & " " _        & "WHERE YEAR(日期) <= " & currYear & " " _        & "GROUP BY 名称 ORDER BY 名称 "        '计算合计    sql3 = "SELECT '合计' AS 名称, SUM(上年库存) AS 上年库存, " & _        "SUM(入库) AS 入库, SUM(出库) AS 出库, " & _        "SUM(本年库存) AS 本年库存 " & _        "FROM (" & sql & ")"        sql = sql & " UNION ALL " & sql3

第二部分，执行查询，把记录集对象存入目标工作表，设置单元格格式：

    '打开连接并执行查询    conn.Open strConn    rs.CursorType = 3    rs.Open sql, conn        '设置输出工作表    Set ws = ThisWorkbook.Sheets("库存汇总表")    With ws        '清除旧数据        .Range("F3").Resize(.UsedRange.Rows.Count - 2, 5).Cells.Clear                '设置结果输出范围        Set rng = .Range("F3").Resize(rs.RecordCount, 5)        With rng            .CopyFromRecordset rs  ' 从记录集中复制数据            .Columns(1).HorizontalAlignment = xlCenter  ' 设置列对齐方式            .Borders.LineStyle = 1  ' 添加边框            .Rows(.Rows.Count).Interior.Color = RGB(255, 160, 122)  ' 设置最后一行颜色            .Rows(.Rows.Count).Font.Bold = True  ' 设置最后一行字体加粗            .Cells(.Rows.Count, 3).Offset(1) = "上次统计时间：" & Format(Date, "yyyy年m月d日")  ' 添加统计时间        End With    End With        '关闭记录集和连接    rs.Close    conn.Close    Set rs = Nothing    Set conn = Nothing        MsgBox "Done!"End Sub

~~~~~~End~~~~~~

	安利小店安利的牙膏非常不错，用了以后就不想再用其他的了；洗洁精、洗衣液也是日常必备，用过都说好！
	合谷医疗合谷医疗专攻各种疑难杂症，尤其擅长腰颈椎疾病、儿童神经发育异常、多动症、自闭孤独症治疗，可谓神乎其技！体验过的直呼早点来就好了！
	我的付费知识星球：Excel活学活用帮助VBA初学者提高VBA编程水平，欢迎加入！

喜欢就点个赞、点在看、留言评论、分享一下呗！感谢支持！

Excel问题，请在文章下面留言讨论！或者加入我的付费交流群提问！
如需案例文件，请按当天另一篇文章末尾案例文件分享说明操作！

http://mp.weixin.qq.com/s?__biz=MzIwMjIzMzI1OA==&mid=2247489464&idx=3&sn=163947fec7429fd91a463e8950511234

VBA编程实战

Excel应用案例、Excel VBA、公式函数使用技巧分享，思路解读...... 这里有鲜活案例、实用的技巧......

最新文章

想知道你对哪些食物过敏吗？食物特异性抗体IgG4检测试剂盒（蛋白芯片法）

「案例更正」SQL查询汇总EXCEL表数据：出入库统计增加上年库存统计并按名称排序

「代码更正」SQL查询汇总EXCEL表数据：出入库统计增加上年库存统计并按名称排序

财务审计业务，往来科目重分类，数组、字典综合应用

「代码」财务审计业务，往来科目重分类，数组、字典综合应用

「案例更新」客户销售额查询分析：ComboBox下拉列表，模糊搜索；统计查看表数据按不同方式排序

「代码更新」客户销售额查询分析：ComboBox下拉列表，模糊搜索；统计查看表数据按不同方式排序

EXCEL VBA操作ACCESS数据库，操作表(创建、修改、删除)，ADO的OpenSchema方法，获取所有表名【扩展篇】

「代码」EXCEL VBA操作ACCESS数据库表(创建、修改、删除)，ADO的OpenSchema方法，获取所有表名【扩展篇】

EXCEL VBA操作ACCESS数据库，获取表头字段，SQL查询语句自定义函数【提高篇】

「代码」EXCEL VBA操作ACCESS数据库，获取表头字段，SQL查询语句自定义函数【提高篇】

客户销售额查询分析：ComboBox下拉列表，数组字典综合应用

「代码」客户销售额查询分析：ComboBox下拉列表，数组字典综合应用

SQL查询汇总EXCEL表数据：出入库统计增加上年库存统计并按名称排序

「代码」SQL查询汇总EXCEL表数据：出入库统计增加上年库存统计并按名称排序

「案例更新」VBA操作Word表格：把运动员名单表按指定格式导出到Word文档

「代码」（更新1）VBA操作Word表格：把运动员名单表按指定格式导出到Word文档

「代码」（更新2）VBA操作Word表格：把运动员名单表按指定格式导出到Word文档

代替VLOOKUP函数，用Application.Match怎么样？结果却大大出乎我的意料！

「代码」代替VLOOKUP函数，用Application.Match怎么样？结果却大大出乎我的意料！

提取各科成绩第一名的记录，Application.Index函数提取数组整行整列

「代码」「数组法」提取各科成绩第一名的记录，Application.Index函数提取数组整行整列

「代码」「SQL法」提取各科成绩第一名的记录

数组动态扩展、字典综合应用：订单金额达标插入赠品！

【代码】数组动态扩展、字典综合应用：订单金额达标插入赠品！

EXCEL VBA操作ACCESS数据库，实现增删改查【基础篇】（免费）！

【代码】EXCEL VBA操作ACCESS数据库，实现增删改查【基础篇】（免费）！

往来账清账勾对，字典实例详解，把多个单元格区域组合装入字典

【代码】往来账清账勾对，字典实例详解，把多个单元格区域组合装入字典

有人想付费学习字典，我觉得没啥必要，再谈字典Dictonary（免费）！

别再炒股啦，去南极终极探险吧！

VBA批量循环打印奖状：根据原表数据和奖状模板，逐份打印所有学生奖状，数组、字典应用

【代码】VBA批量循环打印奖状：根据原表数据和奖状模板，逐份打印所有学生奖状，数组、字典应用

VBA自定义函数：考试多项选择题判分；山东高考数学多选题判分解决方法

【代码】VBA自定义函数：考试多项选择题判分；山东高考数学多选题判分解决方法

更新：科目余额表逐级汇总，工作表Change事件，自动刷新汇总数据；Application.EnableEvents属性

【代码】更新：科目余额表逐级汇总，工作表Change事件，自动刷新汇总数据；Application.EnableEvents属性

逐级汇总（数组、字典）：财务同学看过来，科目余额表逐级汇总

【代码】逐级汇总（数组、字典）：财务同学看过来，科目余额表逐级汇总

这个功能有点强悍！合并工作表：按指定字段合并文件夹下所有Excel文件、CSV文件，包含所有子文件夹

【代码】这个功能有点强悍！合并工作表：按指定字段合并文件夹下所有Excel文件、CSV文件，包含所有子文件夹

教师工作量统计：有点晕！我要这样做，四级嵌套字典，逐级拼接成一个字符串，设置单元格内指定文本的格式

【代码】教师工作量统计：有点晕！我要这样做，四级嵌套字典，逐级拼接成一个字符串，设置单元格内指定文本的格式

数据匹配：不用字典，如何查找日期相同、数值相近的数据？

【代码】数据匹配：不用字典，如何查找日期相同、数值相近的数据？

举一反三，简单的案例「复杂化」，这样学习VBA效果杠杠的！查询时间最近的记录：如何提取所有车牌号最近时间的手机号

【代码1】数据查询「方法1」：字典+SortedList，查询最近时间手机号

【代码2】数据查询「方法2」：工作表排序+字典，查询最近时间手机号

【代码3】数据查询「方法3」：ADO对象+SQL，查询最近时间手机号

分类

时事

民生

政务

教育

文化

科技

财富

体娱

健康

情感

旅行

百科

职场

楼市

企业

乐活

学术

汽车

时尚

创业

美食

幽默

美体

文摘

原创标签

时事社会财经军事教育体育科技汽车科学房产搞笑综艺明星音乐动漫游戏时尚健康旅游美食生活摄影宠物职场育儿情感小说曲艺文化历史三农文学娱乐电影视频图片新闻宗教电视剧纪录片广告创意壁纸头像心灵鸡汤星座命理教育培训艺术文化金融财经健康医疗美妆时尚餐饮美食母婴育儿社会新闻工业农业时事政治星座占卜幽默笑话独立短篇连载作品文化历史科技互联网

发布位置

广东北京山东江苏河南浙江山西福建河北上海四川陕西湖南安徽湖北内蒙古江西云南广西甘肃辽宁黑龙江贵州新疆重庆吉林天津海南青海宁夏西藏香港澳门台湾美国加拿大澳大利亚日本新加坡英国西班牙新西兰韩国泰国法国德国意大利缅甸菲律宾马来西亚越南荷兰柬埔寨俄罗斯巴西智利卢森堡芬兰瑞典比利时瑞士土耳其斐济挪威朝鲜尼日利亚阿根廷匈牙利爱尔兰印度老挝葡萄牙乌克兰印度尼西亚哈萨克斯坦塔吉克斯坦希腊南非蒙古奥地利肯尼亚加纳丹麦津巴布韦埃及坦桑尼亚捷克阿联酋安哥拉