Simoneexcel vb
的有关信息介绍如下：
使用SQL数据库查询方式
给你个参考程序，你稍微修改下
1、[日报表$A:AI]，修改为存放每天工资的那个表名和表格列的范围
2、'2016年8月'，修改为你的窗体combox2
3、Sheets("sheet3")，把sheet3修改为第二张图片的那个表格的名称
4、sheet3的表头可以提前写好，程序中只导出的数据
Sheets("sheet3").[a2:e1048576] = ""
Set conn = CreateObject("adodb.connection")
conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
Sql = "select 姓名,部门,sum(日工资),sum(产量),sum(超产金额) from [日报表$A:AI] where 年月='2016年8月' group by 姓名,部门 order by 部门"
Sheets("sheet3").[a2].CopyFromRecordset conn.Execute(Sql)
conn.Close: Set conn = Nothing
你的附件我下不了
