按老板要求汇总数据

jymxys · 发表于 2009-9-8 16:18

kankan

xiaoni · 发表于 2009-9-8 18:44

gggggggggggg

hyz00001 · 发表于 2009-9-9 09:44

00

hyz00001 · 发表于 2009-9-9 09:56

新建一个VBA模块，然后插入这个东西，然后运行就可以了。Sub text()     Application.ScreenUpdating = False     Set cnn = CreateObject("adodb.connection")     cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName     sqlstr = "select Customer,sum([Sales])as Sum_sales from [Sheet1$] group by Customer having sum([Sales])>1000000"     Range("d1").CopyFromRecordset cnn.Execute(sqlstr)     cnn.Close: Set cnn = Nothing     Application.ScreenUpdating = True End Sub

liyh67 · 发表于 2009-9-9 13:39

<a href="http://www.excelpx.com/dispbbs.asp?ID=87175&replyID=1080805&boardid=160&skin=1" target="_blank">查看最佳答案</a>

Hersheys · 发表于 2009-9-9 13:44

游客，如果您要查看本帖隐藏内容请回复

scdjy168 · 发表于 2009-9-11 19:00

thank you!

tyghgood1978 · 发表于 2009-9-11 21:08

我也来试下

zqb_317 · 发表于 2009-9-11 21:18

学习一下

ZJ新用户 · 发表于 2009-9-12 22:00

		自动登录	找回密码
密码			注册

按老板要求汇总数据

浏览过的版块