EXCEL vba SQL.doc

EXCEL 里使用 SQL 的方法(欢乐小爪原创) 急用 EXCEL 的 SQL 用法,抄来欢乐小爪几篇文章,支持原创,留下小爪印: http://hi./huanhuanxiaozhua/blog EXCEL(VBA)~SQL 经典写法范本汇集(一) 2007-12-10 21:20 编前话:为了更系统的学习 sql 语句,小爪首次系统的汇集 sql 需引用 microsoft activeX Data Objects library = "select 构件名称, 构件代号, 横长度, 横数量, 竖长度, 竖数量, 比重, 相应工艺 from [ 参数$B2:K1916]where ( 大样代码='" & DYDH & "') and ( 内外框='WKXC')" = "select 构件名称, 构件代号, 横长度, 横数量, 竖长度, 竖数量, 比重, 相应工艺 from [ 参数$B2:K" & CSMaxrow & "] where ( 大样代码='" & DYDH & "') and ( 内外框='WKXC')" **************************************************************** A 、根据本工作簿的 1 个表查询求和写法范本 Sub 查询方法一() Set CONN = CreateObject("") "provider=;extended properties=excel ;data source=" & sql = "select 区域, 存货类, sum( 代销仓入库数量),sum( 代销仓出库数量),sum( 日报数量)from [sheet4$a:i] where 区域='" & [b3] & "' and month( 日期)='" & Month(Range("F3")) & "' group by 区域, 存货类" Sheets("sheet2").[A5].CopyFromRecordset (sql) : Set CONN = Nothing End Sub ----------------- Sub 查询方法二() Set CONN = CreateObject("") "dsn=excel files;dbq=" & sql = "select 区域, 存货类, sum( 代销仓入库数量),sum( 代销仓出库数量),sum( 日报数量)from [sheet4$a:i] where 区域='" & [b3] & "' and month( 日期)='" & Month(Range("F3")) & "' group by 区域, 存货类" Sheets("sheet2").[A5].CopyFromRecordset (sql) : Set CONN = Nothing End Sub **