EXCEL(VBA~SQL 经典写法范本汇集.docVIP

EXCEL(VBA)~SQL 经典写法范本汇集（转） 2008-11-27 10:41 需引用 microsoft activeX Data Objects 2.8 library 1.sql = select 构件名称,构件代号,横长度,横数量,竖长度,竖数量,比重,相应工艺 from [参数$B2:K1916]where (大样代码= DYDH ) and (内外框=WKXC) 2.sql = select 构件名称,构件代号,横长度,横数量,竖长度,竖数量,比重,相应工艺 from [参数$B2:K CSMaxrow ] where (大样代码= DYDH ) and (内外框=WKXC) **************************************************************** A、根据本工作簿的1个表查询求和写法范本 Sub 查询方法一()Set CONN = CreateObject(ADODB.Connection)CONN.Open provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source= ThisWorkbook.FullNamesql = select 区域,存货类, sum(代销仓入库数量),sum(代销仓出库