Worksheets(i).Name <> "汇总"
可以改为
Worksheets(i).Name <= "9月份"
因为文本也可以比较大小
Sql = "select * from [" & myWorkName & "$] where 报刊资料>0"
可以改为
Sql = "select * from [" & myWorkName & "$] where " & [G3] & ">0"
把原文件到我的邮箱中,顺便把这个问题内容,在表格内加以说明
524189206@qq.com
尝试一下,68170927@qq.com