作者：绿色风
分类：
时间：2022-08-17
浏览：211
楼主
嘉昆2011 |
问题陈述：
如何汇总最近交易日工作的相关信息？
问题症结：
问题求助者利用三张辅助表分别汇总了各个交易所的相关信息，另外一张代码-名称的参照表；而其中又使用大量的易失性函数，如Today和Indirect；在查询建立对照关系时，再利用VLookup效率不是很高的查询函数；汇总时又利用If函数嵌套判断，使工作表运行缓慢，查询汇总效率不高。
解决思路：
1，SQL语句
通过观察发现：最近交易日工作表与所需要汇总的信息存在的字段对应关系，利用SQL联合查询语句(UNION ALL)可以快速查询汇总：- SELECT [沪市代码Code in Shanghai] AS 代码, [沪市名称Name in Shanghai ] AS 名称, "SH" AS 别所, [计算收益率(%)Yield(%)], [剩余年限 Remain Years],[债券评级 Credit Level]
- FROM [130419$] WHERE [沪市代码Code in Shanghai] <> ""
- UNION ALL
- SELECT [深市代码Code in Shenzhen] AS 代码, [深市名称Name in Shenzhen] AS 名称, "SZ" AS 别所, [计算收益率(%)Yield(%)], [剩余年限 Remain Years],[债券评级 Credit Level]
- FROM [130419$] WHERE [深市代码Code in Shenzhen] <> ""
- UNION ALL
- SELECT [银行间代码Code In inter-Bank] AS 代码, [银行间名称Name in inter-Bank] AS 名称, "YH" AS 别所, [计算收益率(%)Yield(%)], [剩余年限 Remain Years],[债券评级 Credit Level]
- FROM [130419$] WHERE [银行间代码Code In inter-Bank] <> ""
2，函数
然而SQL语句无法动态反映最近交易日工作表"[130419$]"，通过函数查询建立最近工作表与最近日期的对应关系- =TEXT(LOOKUP(TODAY(),表32[日期]),"YYMMDD")
3，VBA
最后利用ADO，将两者组合，即可建立简单的查询汇总工作表- Sub iQuery()
- Dim cnn As ADODB.Connection
- Dim rs As ADODB.Recordset
- Dim sSQL As String
- On Error Resume Next
- Set cnn = CreateObject("ADODB.Connection")
- Set rs = CreateObject("ADODB.Recordset")
- cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
-
- sSQL = Sheet1.Range("E10")
-
- With Sheet4
- .Range("A1:F1") = Array("代码", "名称", "别所", "计算收益率(%)Yield(%)", "剩余年限 Remain Years", "债券评级 Credit Level")
- .Range("A2:F65536").Clear
- .Range("A2").CopyFromRecordset cnn.Execute(sSQL)
- End With
-
- rs.Close
- cnn.Close
- Set rs = Nothing
- Set cnn = Nothing
- End Sub
４，最终效果：最近交易日工作表的查询汇总
附件：
 整理B.rar
|
2楼
peterchen |
感谢嘉昆大侠的耐心解答，小菜基础太差，一个VBA已经绕不出来了，再加上一个SQL，整个晕菜了，呵呵！
小菜看有时间还不行，还得有一定天赋，大侠的解决方案太强大了，速度非常快，效率比我原先的方案高太多了，佩服佩服！ |
3楼
eliane_lei |
太高深了，需要慢慢消化！ |
4楼
eliane_lei |
太高深了，需要慢慢消化！ |
5楼
dgxsdr |
学习ADO |
6楼
rongjun |
感谢分享！ |
7楼
海洋之星 |
学习 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一