在线等待急急急！！！！！！！！

zangma · 发表于 2008-12-17 09:04

下面的很多单位都填报这张表，然后放在一个文件夹下面。能否用SQL语言，把那些原始工作薄作为数据源，汇总累加统计，在不打开那些表的请款下，也就是从后台操作。麻烦高手赐教详细代码！不胜感激。模板表见附件。

cboy2006 · 发表于 2008-12-17 13:06

起码给两个单位的数据来吧不然怎么写SQL

Dim cnn As New ADODB.Connection

Dim strsql As String
cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=no';data source=" & ActiveWorkbook.FullName
strsql = "select * from [数据表$] where 单位=‘" & Range("c2") & "’'"

Range("c5:x65536").ClearContents
Range("c5").CopyFromRecordset CNN.Execute(strsql )

cnn.Close
Set cnn = Nothing

zangma · 发表于 2008-12-17 13:39

数据就麻烦你随便填几个测试一下就行

zangma · 发表于 2008-12-17 13:41

再复制几张一样的表就可以测试了。麻烦了

zangma · 发表于 2008-12-17 13:47

就是要累加汇总到汇总表里。有公式的地方不要汇总。谢谢

zangma · 发表于 2008-12-17 13:50

上面的代码好像是合并吧，不是累加汇总

Renco · 发表于 2008-12-17 14:03

EXCEL的问题请到EXCLE版区,比较多人会帮你的.

cboy2006 · 发表于 2008-12-17 15:51

按你的要求做个例子给你！

zangma · 发表于 2008-12-17 17:40

我的要求就是汇总表与别的表都在一个文件夹里，并是相互单独的工作薄。要累加汇总到汇总表里去

cboy2006 · 发表于 2008-12-17 20:58

你要的应该是这个东西

http://club.excelhome.net/viewth ... =1187655&skin=0

不过我建议你还是把数据全部方到一个工作表！

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

[求助] 在线等待急急急！！！！！！！！

加上有数据的表格

淡淡的