经典Excel_VBA_SQL语句

《经典Excel_VBA_SQL语句》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、EXCEL(VBA)~SQL经典写法范本汇集2008年03月30日星期日下午07:21EXCEL(VBA)~SQL经典写法范本汇集****************************************************************A、根据本工作簿的1个表查询求和写法范本Sub查询方法一()SetCONN=CreateObject("ADODB.Connection")CONN.Open"provider=microsoft.jet.oledb.4.0;extendedpropert

2、ies=excel8.0;datasource="&ThisWorkbook.FullNamesql="select区域,存货类,sum(代销仓入库数量),sum(代销仓出库数量),sum(日报数量)from[sheet4$a:i]where区域='"&[b3]&"'andmonth(日期)='"&Month(Range("F3"))&"'groupby区域,存货类"Sheets("sheet2").[A5].CopyFromRecordsetCONN.Execute(sql)CONN.Close:SetCO

3、NN=NothingEndSub-----------------Sub查询方法二()SetCONN=CreateObject("ADODB.Connection")CONN.Open"dsn=excelfiles;dbq="&ThisWorkbook.FullNamesql="select区域,存货类,sum(代销仓入库数量),sum(代销仓出库数量),sum(日报数量)from[sheet4$a:i]where区域='"&[b3]&"'andmonth(日期)='"&Month(Range("F3"))&

4、"'groupby区域,存货类"Sheets("sheet2").[A5].CopyFromRecordsetCONN.Execute(sql)CONN.Close:SetCONN=NothingEndSub**************************************************************************************************B、根据本工作簿2个表的不同类别查询求和写法范本Sub根据入库表和回款表的区域名和月份分别求存货类发货数量和本

5、月回款数量查询()Setconn=CreateObject("adodb.connection")conn.Open"provider=microsoft.jet.oledb.4.0;"&_"extendedproperties=excel8.0;datasource="&ThisWorkbook.FullNameSheet3.ActivateSql="selecta.存货类,a.fh,b.hkfrom(select存货类,sum(本月发货数量)"_&"asfhfrom[入库$]where存货类isnotnu

6、lland区域='"&[b2]_&"'andmonth(日期)="&[d2]&"groupby存货类)asa"_&"leftjoin(select存货类,sum(数量)ashkfrom[回款$]where存货类"_&"isnotnulland区域='"&[b2]&"'andmonth(开票日期)="&[d2]&""_&"groupby存货类)asbona.存货类=b.存货类"Range("a5").CopyFromRecordsetconn.Execute(Sql)EndSub****************

7、***************************************************C、根据本文件夹下其他工作簿1个表区域的区域求和Sub在工作表1汇总本文件夹下001工作薄的表1分数列查询汇总()Setconn=CreateObject("ADODB.Connection")conn.Open"dsn=excelfiles;dbq="&ThisWorkbook.Path&"01.xls"sql="selectsum(分数)from[sheet1$]"Sheets(1).[a2].Cop

8、yFromRecordsetconn.Execute(sql)conn.Close:Setconn=NothingEndSub---------------------Sub在工作表1汇总本文件夹下001工作薄的表1A1:A10查询汇总()Setconn=CreateObject("ADODB.Connection")conn.Open"provider=microsoft.jet.oledb.4.