[字典嵌套][三维数组]对结构基本相同、同名工作表列项目不同的多个工作簿按表名汇总

zhaogang1960 · 发表于 2009-9-23 15:41

非常赞同侠圣的思路
有一点还困扰着我，就是“行”和“列”分别与“工作表名”相关，它们两者好像不相关
如果使用一个字典dic(工作表名)(行)(列)，我就分不清“行”和“列”分别与“工作表名”的关系了，还请侠圣赐教，谢谢！

lizg007 · 发表于 2009-10-12 09:03

谢谢楼主，虽然我看不懂，但我知道很有用。

thtfzhaobo · 发表于 2009-10-13 09:53

用什么不重要，关键是达到效果，效率可以接受，此类用法早有发表，我自己是写了个dll，作为功能使用，目前看功能比你的多点，无非加了一些适用性

[ 本帖最后由 thtfzhaobo 于 2009-10-13 09:56 编辑 ]

exvba · 发表于 2010-1-3 14:53

learn

3abc · 发表于 2010-1-3 16:42

共有60个学校，每个学校有两个表，一个是《中学数据表》，一个是《小学数据表》，每个表的数据都在第D列，现要把60个学校两表的第D列数据自动导到《汇总表》中《中学数据表》和《小学数据表》各单位的相应列进行汇总，恳请楼主帮忙，非常感谢。
附件：

劳动统计.rar (45.86 KB, 下载次数: 163)

zhaogang1960 · 发表于 2010-1-3 17:54

请测试：
Sub Macro1()
Dim myPath$, myFile$, wb As Workbook, sh As Worksheet, m&
Set wb = ThisWorkbook
myPath = ThisWorkbook.Path & "\分表\"
myFile = Dir(myPath & "*.xls")
Application.ScreenUpdating = False
Do While myFile <> ""
      m = m + 1
      With GetObject(myPath & myFile)
         For Each sh In .Sheets
            wb.Sheets(sh.Name).Cells(1, m + 3).Resize(77).Value = sh.Range("D1:D77").Value
            wb.Sheets(sh.Name).Cells(2, m + 3) = m
         Next
         .Close  False
      End With
   myFile = Dir
Loop
Application.ScreenUpdating = True
MsgBox "ok"
End Sub

3abc · 发表于 2010-1-4 10:16

谢谢你，帮了我一大忙。我试过好用。

3abc · 发表于 2010-1-4 11:05

我很笨，恳请你解释一下代码，如果分表的数据在sheet2和sheet3，sheet1不列入统计，如何修改代码？恳请指点。

3abc · 发表于 2010-1-4 21:07

谢谢！我试下

3abc · 发表于 2010-1-4 20:45

老师：我上传附件你看一下，原实际还多几个表，表太多我怕别人不理我，所以删少了。
附件：

劳动统计.rar (150.25 KB, 下载次数: 19)

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

[原创] [字典嵌套][三维数组]对结构基本相同、同名工作表列项目不同的多个工作簿按表名汇总

回复 21楼 lj1226189 的帖子

回复 26楼 3abc 的帖子

回复 27楼 zhaogang1960 的帖子

回复 27楼 zhaogang1960 的帖子