遍历指定文件夹多个excel文件，读取文件名和文件中某几个位置的数据到汇总表

szqhb · 发表于 2010-11-15 00:03

另见求助链接
http://club.excelhome.net/thread-564510-1-1.html

hupanshan · 发表于 2010-11-15 08:34

我的格言：方法固然重要，但更重要的是目的。过程固然重要，但更重要的是结果。
不知道折腾半天要达到什么目的。比如：“将登记表的时间改为第二单元”就不如“复制时间为第二单元的登记表”。

szqhb · 发表于 2010-11-15 11:54

原帖由 hupanshan 于 2010-11-15 08:34 发表
我的格言：方法固然重要，但更重要的是目的。过程固然重要，但更重要的是结果。
不知道折腾半天要达到什么目的。比如：“将登记表的时间改为第二单元”就不如“复制时间为第二单元的登记表”。

谢谢关注
我的目的就是对文件夹内相同格式的Ecxcel文件进行进行相同设置
比如，我要在各年级各班的I1单元格都输入2010年11月，怎样弄？

[ 本帖最后由 szqhb 于 2010-11-15 12:01 编辑 ]

hupanshan · 发表于 2010-11-15 12:41

你应该考虑彻底改变原来数据的存储方法。每个年级一个文件夹，每个班一个文件，不如改为所有的年级、所有的班都放在一个表里。

szqhb · 发表于 2010-11-16 00:28

原帖由 hupanshan 于 2010-11-15 12:41 发表
你应该考虑彻底改变原来数据的存储方法。每个年级一个文件夹，每个班一个文件，不如改为所有的年级、所有的班都放在一个表里。

终于找到一个解决方法了

moretop · 发表于 2011-3-5 15:26

膜拜 hupanshan 高人

laoshu168 · 发表于 2011-3-24 19:53

膜拜中..... HU高人也

tiger12310 · 发表于 2011-4-21 17:26

高人啊~~~~拜摸~

noonex · 发表于 2011-4-24 19:01

http://club.excelhome.net/viewth ... p;extra=&page=1
---------------------------------------------------------------------
MyPath = ThisWorkbook.Path & ""
MyName = Dir(MyPath & "*.xls")
Application.ScreenUpdating = False
[a1].CurrentRegion.Offset(1).ClearContents
Do While MyName <> ""
      If MyName <> ThisWorkbook.Name Then
         With GetObject(MyPath & MyName)
            arr = .Sheets(1).[a1].CurrentRegion
            .Close False
         End With
         For i = 2 To UBound(arr)
            If d.Exists(arr(i, 3)) Then
                  m = m + 1
                  For j = 1 To 4
                     brr(m, j) = arr(i, j)
                  Next
            End If
         Next
      End If
      MyName = Dir
Loop

jhzghua · 发表于 2011-6-27 13:58

留个记号，好好学习

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

[求助] 遍历指定文件夹多个excel文件，读取文件名和文件中某几个位置的数据到汇总表

遍历文件