Sub Select_Group1()
Dim cnn As New ADODB.Connection '创建Connection对象，该对象代表了Excel与后面指定数据库的连接
Dim rst As ADODB.Recordset '创建Recordset对象，该对象用来保存执行SQL语句后生成的数据集
Dim SQL As String
Dim i As Integer
Dim mypath As String
On Error GoTo ErrMsg '
mypath = ThisWorkbook.FullName
cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & mypath '使用Connection对象的Open方法来连接指定数据库与数据表的位置
SQL = "SELECT RS,逾期天数 ,SUM(逾期金额) As 金额,COUNT(*) As 名下账户 FROM [sheet1$] GROUP BY 逾期天数,RS"
Set rst = cnn.Execute(SQL) '执行SQL语句
Worksheets(2).Select
Cells.ClearContents ‘在Excel中放置数据
For i = 0 To rst.Fields.Count - 1
Cells(1, i + 1) = rst(i).Name
Range("a2").CopyFromRecordset rst
rst.Close
cnn.Close
Set rst = Nothing
Set cnn = Nothing
Exit Sub
ErrMsg:
MsgBox Err.Description, , "Description of Error"
End Sub
在使用的数据源是excel表的第一个表，表名为【sheet1】，数据如下：
要先在【工具】-【引用】中引用两个库，Microsoft ActiveX Data Object 2.8 Library 与 Microsoft ADO Ext.2.8 for DDL and Security 库。不同的操作系统ADO(active data object，动态数据对象)的版本会有所不同。
在使用这个方法之前，要确定excel的原表中是否有空的记录，如果有的则要删除，否则有一定概率会把空的记录也统计到结果中。
在Excel这边，需要先在VBE中启动数据库连接支持。按下Alt+F11打开VBE，在菜单栏选择“工具”－“引用”，在弹出的引用窗口中，找到"Microsoft ActiveX Data Objects 6.1 Library"和"Microsoft ActiveX Data Objects Recordset 2.8 Library"，把前面的框勾选上，点击确定即可。 （如果不是这两个版本，则选择一个版本号最高的勾选即可，如果是需要分享给office2003版的用户，建议勾选版本最低的）
打开tool的参
Dim Conn As Object, Rst As Object
Dim strConn As String, strSQL As String
Dim i As Integer, PathStr As String
Set Conn = CreateObject(“ADODB.Connection”)
Set Rst = CreateObject(“ADODB.Recordset”)
PathStr = ThisWorkbook.Ful
https://edu.csdn.net/course/detail/36074
Python实战量化交易理财系统
https://edu.csdn.net/course/detail/35475
每每提到Excel办公自动化，我们脑海里能想到的就是公式、数据透视表、宏、VBA，这也是我们大部分人数据分析的进阶之路。当我们对于常用VBA技巧已经相当熟练后，往往会有一种“我的VBA知识够用啦”的错觉，其实那只是因为我们收到的实际需求还不够复杂和多样化。
一旦哪天碰
大家好，我是知了。上一篇简单了解了ADO与SQL。今天给大家介绍一下在VBA中使用SQL的方法。这里只有两部分内容：一、建立ADO对数据源的链接；二、用ADO执行SQL语句，完成查询。—01.建立链接—在VBA中使用ADO的方式有两种：「引用法」和「创建法」。也可以叫做：「前期绑定」和「后期绑定」。还可以叫做：「静态绑定」和「动态绑定」……1.引用法/前期绑定/静态绑定引用...
哈罗，我是星光。有朋友发消息问能否用代码实现多表合并计算的功能，刚好很多年前写过一篇……嗯，先说下什么是“合并计算”。它是Excel自带的一个功能，位于【数据】选项卡下的【数据工具组】中。它的主要功能是根据指定的多个(单表或多表甚至多工作簿)单元格区域进行合并计算，一般常用于多表数据统计。比如下面这个小动画，5秒即可搞定多表数据统计。嘿~！是不是很简便又很实用~我们现在的问题是，如何...
Excel VBA 可以通过 ADODB 对象库来使用 SQL 语句。
首先，需要在 VBA 编辑器中打开“工具”菜单，选择“引用”并勾选“Microsoft ActiveX Data Objects x.x Library”(x.x 为版本号，通常为最新版本)。
接下来，可以使用 ADODB 对象来连接数据库、执行 SQL 查询、更新数据库等操作。下面是一个示例代码，演示如何使用 SQL 查询获...
Dim Cnn As Object, MyCat As Object, rst As Object, sql$, SheetName$, f$, ph$, r&, strConn$
ph = ThisWorkbook.Path & "\": f = Dir(ph & "*.xls?") '注意写法，创建路径
strConn = "Pr...
问题描述: 科目余额表已知各科目与报表项目的对应关系已知同一会计年度当中，由于企业业务性质变更，经常会增加新的会计科目，并且内部管理会计汇总归类与财务会计标准不一致，因此需要灵活兼顾不同要求并且具有易拓展性所需输出成果:符合企业标准样式的报表示例数据如下科目余额表报表科目对应关系(Mapping)当下的财务软件虽功能强大，定制功能也足够应对多种业务场景，但是应对企业财务“最后一公里”的高度差异化的...
