2022年2022年经典VBA_SQL语 .pdf

《2022年2022年经典VBA_SQL语 .pdf》由会员分享，可在线阅读，更多相关《2022年2022年经典VBA_SQL语 .pdf（3页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、D、根据本文件夹下其他工作簿多个表区域的单列区域查询求和sub 本文件夹下其他工作簿的每个工作簿的第4 列 30 行查询求和Dim cn As Object, f$, arr&(1 To 30), i% Application.ScreenUpdating = False Set cn = CreateObject(adodb.connection) f = Dir(ThisWorkbook.Path & *.xls) Do While f If f ThisWorkbook.Name Then cn.Open provider=microsoft.jet.oledb.4.0;extended

2、 properties=excel 8.0;hdr=no;data source= & ThisWorkbook.Path & & f Range(d5).CopyFromRecordset cn.Execute(select f4 from 基表 1$a5:d65536) cn.Close For i = 1 To 30 arr(i) = arr(i) + Range(d & i + 4) Next i End If f = Dir Loop Range(d5).Resize(UBound(arr), 1) = WorksheetFunction.Transpose(arr) Applica

3、tion.ScreenUpdating = True End Sub * E、根据本文件夹下其他工作簿多个表区域的多列区域查询求和sub 本文件夹下其他工作簿的每个工作簿的第BCD 列 25 行查询求和Dim cn As Object, f$, arr&(1 To 25, 1 To 3), i% Application.ScreenUpdating = False Set cn = CreateObject(adodb.connection) f = Dir(ThisWorkbook.Path & *.xls) Do While f If f ThisWorkbook.Name Then cn

4、.Open provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;hdr=no;data source= & ThisWorkbook.Path & & f Range(b6).CopyFromRecordset cn.Execute(select f2,f3,f4 from 基表 3$a6:e65536) cn.Close For i = 1 To 25 For j = 1 To 3 arr(i, j) = arr(i, j) + Cells(i + 5, j + 1) Next j Next i End If f =

5、Dir Loop Range(b6).Resize(UBound(arr), 3) = arr 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 3 页 - - - - - - - - - Application.ScreenUpdating = True End Sub * F、其他相关知识整理 用 excel SQL 方法conn 是建立的连接对象，用open 打开 通过 CreateObject(ADODB.Connection) 这一句建立了一个数据库连接对象con

6、n 在工程中就不再需要引用“Microsot ActiveX Data Objects 2.0 Library“ 对象设置对象conn 为一个新的ADO 链接实例 ,也可以用set conn = New ADODB.Connection。- conn.Close表示关闭 conn 连接 Set conn = Nothing 是把连接对象conn 置空，不然你退出了文件，但数据库还没有关闭conn.Open dsn=excel files;dbq= & ThisWorkbook.Path & 001.xls能把这段含义具体解释一下吗? 这里的 dbq 的作用 ? - dsn 是缩写， data

7、source name数据库名是 excel file dbq 也是缩写， data base query 意思是数据库查询，后接源库文件名001.xls - 代码中长单词怎么记住的? 比如 copyfromrecordset可以拆开记忆，copy 、from 、recordset 这三个单词意思知道吧，就是“ 复制、从、记录集”- Sql = select sum(分数) from sheet1$这里加 分数 两字什么作用 ? SQL 一般结构是select 字段from 表，意思是从指定的表中查询字段，字段的理解可以是：表中的列名分数 是 001.xls 文件的 sheet1 第一行 A

8、列的字段名， SQL 一般以字段来识别每列数据- 为什么要用复制的对象引用过来计算呢？因为 Sql 语句只是对源数据库的字段找到了符合条件的的数据，但不会自动复制到汇总表来，所以需要复制copy 注意 这里的sheet1$ ， 001 文件的数据存放地上sheet1 表，应当用方括号并加上$ 如果源数据文件001 不是 excel ，而是 Access ，则引用表时，不需要加方括号，也不要$ - 还有 ,这里 Execute 表示什么作用 ? Execute 是执行 SQL 查询语句的意思- 如果不要字段也可以，那么在打开语句中加上：hdr=no 这样没有分数字段也可实现SQL 语句我换了形式

9、，而且加上了hdr=no ，即无需字段，而且我在SQL 中用了 sum(f1) ，f1 表示第一列数据sheet1$a1:a10 是只求 a1:a10 区域的和 EXCEL(VBA)SQL 经典写法范本汇集(二)2008-05-10 11:21一) 选择供应商和选择月份记录的查询原创 :小爪 日期 :2008-5-10 Private Sub CommandButton1_Click() Range(a5:k1000).ClearContents Set conn = CreateObject(ADODB.Connection) 名师资料总结 - - -精品资料欢迎下载 - - - - - -

10、 - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 3 页 - - - - - - - - - conn.Open provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;imex=1;data source= & ThisWorkbook.FullName If Range(b3) = 全部 And Range(d3) = 全部 Then Sql = select * from 数据源 $a3:i1000 GoTo 100 End If If Range(b3) =

11、全部 Then Sql = select * from 数据源 $a3:i1000 where month(日期 ) = & d3 & GoTo 100 End If If Range(d3) = 全部 Then Sql = select * from 数据源 $a3:i1000 where 供应商 = & b3 & GoTo 100 End If If Range(d3) 全部 And Range(d3) 全部 Then i = Range(d3) Sql = select * from 数据源 $a3:i1000 where (供应商 = & b3 & ) and (month(日期 )

12、= & i & ) GoTo 100 End If 100: Sheets( 统计 ).Range(a5).CopyFromRecordset conn.Execute(Sql) conn.Close: Set conn = Nothing End Sub -*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 3 页 - - - - - - - - -