ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 691|回复: 10

[求助] VBA用SQL怎么遍历多个查询结果

[复制链接]

TA的精华主题

TA的得分主题

发表于 2024-7-8 23:21 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
image.png
如图,想查找退步和进步的以及前4名放在一个单元格里,但是显示的不完整

Sub JK()
Dim SQL As String, MN%
Dim strconn As String
Dim CNN As Object
Set CNN = CreateObject("ADODB.Connection")
MN = Month(Date)
CY = CDate(Date - 1)


With CNN
.Provider = "Microsoft.ACE.OLEDB.12.0; Extended Properties=Excel 12.0;Data Source="
CNN.Open strconn & ThisWorkbook.FullName

End With


sql1 = "SELECT 班级,ID FROM[维度$] where 评价='进步' "
sql3 = "SELECT TOP 4 [ID] FROM[维度$] order by [分数] desc "
sql2 = "SELECT 班级,ID FROM[维度$] where 评价='退步'"

Set rs1 = CNN.Execute(sql1)
Set rs2 = CNN.Execute(sql2)
Set rs3 = CNN.Execute(sql3)
With Sheets("维度") '引用Sheet2工作表
    .[A10].ClearContents '清除C7单元格原有内容
    iRow = 1 '初始化行数(假设从第7列的第一行开始写入)
    Do While Not rs1.EOF '遍历记录集直到结束
        strResult = strResult & rs1("班级") & rs1("ID") & ", "   '将姓名添加到结果字符串中,并使用逗号分隔
         rs1.MoveNext
        strResult1 = strResult1 & rs2("班级") & rs2("ID") & ", "
        rs2.MoveNext '移动到下一条记录
        strResult2 = strResult2 & rs3("ID") & ", "
    rs3.MoveNext
    Loop
    .[A10].Value = Left(strResult, Len(strResult) - 2) & Chr(10) & Left(strResult1, Len(strResult1) - 2) & Chr(10) & Left(strResult2, Len(strResult2) - 2) '去除最后一个多余的逗号和空格,并将最终结果写入C7单元格

End With

End Sub

新建 Microsoft Excel 工作表1.rar

24.12 KB, 下载次数: 9

TA的精华主题

TA的得分主题

发表于 2024-7-9 08:03 | 显示全部楼层
Sub JK()
    Dim SQL As String, MN%
    Dim strconn As String
    Dim CNN As Object, i&
    Set CNN = CreateObject("ADODB.Connection")
    MN = Month(Date)
    CY = CDate(Date - 1)
    With CNN
        .Provider = "Microsoft.ACE.OLEDB.12.0; Extended Properties=Excel 12.0;Data Source="
        CNN.Open strconn & ThisWorkbook.FullName
    End With
    Dim arr
    sql1 = "SELECT 班级,ID FROM[维度$] where 评价='进步' "
    sql3 = "SELECT TOP 4 [ID] FROM[维度$] order by [分数] desc "
    sql2 = "SELECT 班级,ID FROM[维度$] where 评价='退步'"
    arr = CNN.Execute(sql1).getRows
    For i = 0 To UBound(arr, 2)
        strResult = strResult & arr(0, i) & arr(1, i) & ", " '
    Next
    arr = CNN.Execute(sql3).getRows
    strResult = strResult & vbLf
    For i = 0 To UBound(arr, 2)
        strResult = strResult & arr(0, i) & ","
    Next
    arr = CNN.Execute(sql2).getRows
    strResult = strResult & vbLf
    For i = 0 To UBound(arr, 2)
        strResult = strResult & arr(0, i) & arr(1, i) & ", "
    Next
    strResult = Left(strResult, Len(strResult) - 1)
    [A10].Value = strResult
    Set CNN = Nothing
    Set rs1 = Nothing
End Sub

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2024-7-9 08:05 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

TA的精华主题

TA的得分主题

发表于 2024-7-9 10:13 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
不用那么麻烦,一次查询就可以了

Book1.zip

27.78 KB, 下载次数: 31

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-7-9 19:34 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
Yalishanda30 发表于 2024-7-9 10:13
不用那么麻烦,一次查询就可以了

谢谢但是看不懂点运行好像也没跑出来结果

TA的精华主题

TA的得分主题

发表于 2024-7-9 21:14 | 显示全部楼层
满大人 发表于 2024-7-9 19:34
谢谢但是看不懂点运行好像也没跑出来结果

看你会点代码,拼接一下数组也不会吗?

Book1.zip

27.24 KB, 下载次数: 11

TA的精华主题

TA的得分主题

发表于 2024-7-10 08:41 | 显示全部楼层

很长时间没有看到魂断蓝桥老师回帖了

TA的精华主题

TA的得分主题

发表于 2024-7-12 12:30 | 显示全部楼层
是的啊,很长时间没有看到魂断蓝桥老师回帖了。

TA的精华主题

TA的得分主题

发表于 2024-7-12 12:31 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
魂断蓝桥老师是大神中的大神,老师的字典帖子写的真的非常好。

TA的精华主题

TA的得分主题

发表于 2024-7-16 15:12 | 显示全部楼层
学习一下。。。。。。。。。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-18 03:26 , Processed in 0.051227 second(s), 13 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表