VBA精粹131页不同工作簿的工作表汇总到同一个工作表

yujuan366 · 发表于 2010-3-3 16:48

VBA精粹131页不同工作簿的工作表汇总到同一个工作表。
Sub consolidateworkbook()
Dim rangearray() As String
Dim sht As Worksheet
Dim wbcount As Integer
Dim i As Integer
wbcount = Workbooks.Count
ReDim rangearray(1 To wbcount - 1)
For Each bk In Workbooks '在所有工作簿中循环
If Not bk Is ThisWorkbook Then '非代码所在工作簿
Set sht = bk.Worksheets(1) '引用工作簿的第一个工作表
i = i + 1
rangearray(i) = "'[" & bk.Name & "]" & sht.Name '!"&_sht.range("a1").currentregion.address(referencestyle:=X1R1C1)
End If
Next
Worksheets(1).Range("a1").Consolidate rangearray, xlSum, True, True
Set sht = Nothing
End Sub
并不能实现工作簿的汇总。即是像这种表头固定，而内容不同的工作表如何汇总。请高手赐教。谢谢！（买了一本VBA精粹，像看天书。难懂！

）

hupanshan · 发表于 2010-3-4 12:38

123.rar (64.24 KB, 下载次数: 315)

kszcs · 发表于 2010-3-4 13:52

你好,你看看这个问题怎么解决,谢谢

将工作表名填充到各自工作表A列的有效数据范围内

hupanshan · 发表于 2010-3-4 16:41

将工作表名填充到各自工作表A列的有效数据范围内.rar (8.59 KB, 下载次数: 139)

yujuan366 · 发表于 2010-3-4 16:48

大侠,谢谢了,真是侠骨心肠!!!感动得要

yujuan366 · 发表于 2010-3-4 17:53

大侠,在表格数据区左上角单元格输入上方分类的行数和左边分类的列数，例如“2*3”表示上方2行分类，左边3列分类。回车后按“汇总”钮。我在表格数据区左上角单元格A1输入,不能汇总呀

kszcs · 发表于 2010-3-4 18:57

谢谢你
你的宏无法执行,在打开工作表的时候自动运行,数字的名称每打开一次A列就增加列
可以把你的宏修改一下吗,使打开工作表的时候不要自动运行,而是在执行宏时,才在整个工作簿中同时在各个工作表上运行,不需要一一打开工作表时运行

ydbrVBA · 发表于 2010-3-4 21:18

请问当工作表名称为数值时，会无限制地增加列，请问怎么修正？

hupanshan · 发表于 2010-3-5 07:39

原帖由 ydbrVBA 于 2010-3-4 21:18 发表
请问当工作表名称为数值时，会无限制地增加列，请问怎么修正？

将工作表名填充到各自工作表A列的有效数据范围内.rar (8.19 KB, 下载次数: 80)

hupanshan · 发表于 2010-3-5 07:44

原帖由 kszcs 于 2010-3-4 18:57 发表
谢谢你
你的宏无法执行,在打开工作表的时候自动运行,数字的名称每打开一次A列就增加列
可以把你的宏修改一下吗,使打开工作表的时候不要自动运行,而是在执行宏时,才在整个工作簿中同时在各个工作表上运行,不需要一一 ...

宏的运行需要“事件”的触发，例如按一个按钮或其他操作。我是把宏放在打开工作簿和打开工作表两个事件中，如果你认为不妥，需要你明确采用什么事件，例如按一个按钮。

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

[已解决] VBA精粹131页不同工作簿的工作表汇总到同一个工作表

原来搞过一个通用程序，正好可派上用场

回复 2楼 hupanshan 的帖子

回复 4楼 hupanshan 的帖子