首页 > 经典Excel_VBA_SQL语句

经典Excel_VBA_SQL语句

发布时间：2023-02-24 03:18:17 来源：文档文库

小中大

字号：

手机查看

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;extendedproperties=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(sqlCONN.Close:SetCONN=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"&"'groupby区域,存货类"Sheets("sheet2".[A5].CopyFromRecordsetCONN.Execute(sqlCONN.Close:SetCONN=NothingEndSub**************************************************************************************************B、根据本工作簿2个表的不同类别查询求和写法范本Sub根据入库表和回款表的区域名和月份分别求存货类发货数量和本月回款数量查询(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存货类isnotnulland区域='"&[b2]_

本文来源：https://www.2haoxitong.net/k/doc/e580236e58fafab069dc029b.html