关于汇集各个文件夹下的工作簿的数据

andyclh2013

各位大侠好,路见不平,请下重手:
我想在总表中,点一个按钮,就可以把人员里面的各个子夹下的"周会数据",统一汇集会总表中.....
有人出招吗,在等你们了.....................

wzsy2_mrf

不难，论坛中有大把例子。

andyclh2013

wzsy2_mrf 发表于 2014-8-24 08:57
不难，论坛中有大把例子。

我不懂,烦请给个现成的吧,谢谢了

小花鹿

“其它”文件夹有什么用处？

小花鹿

给你一小段代码，你自己继续往下写吧：
Sub test()
Dim f, p
p = ThisWorkbook.Path
f = Dir(p & "\人员\*.*", 16)
Do While f <> ""
    If InStr(f, ".") = 0 Then
        MsgBox f
    End If
    f = Dir
Loop
End Sub

wzsy2_mrf

andyclh2013 发表于 2014-8-24 11:49
我不懂,烦请给个现成的吧,谢谢了

空口白话的“谢谢”有何用？要现成，找版主去吧，或者有些版主会认为提供现成答案是理所当然的。

wzsy2_mrf

这问题的第一步就是将各子文件夹的“周会数据"工作薄的完全名搜出来，这可以参考文件搜索；第二步方法更多，可以用getobject、workbooks.open等打开后用数组或者直接copy均可，更省事的办法是用sql。

andyclh2013

看来就是有人说,没有动下手了,哎！

、不想了

1. Sub test1()
   
2.     Dim fso As New filesystemobject, mysubfolder, k&, st$, filename$, wb As Workbook, x&
   
3.     ThisWorkbook.Sheets(1).Range("a2:g1048576") = ""
   
4.     st = ThisWorkbook.Path & "" & "人员"
   
5.     For Each mysubfolder In fso.GetFolder(st).SubFolders
   
6.         filename = Dir(mysubfolder & "\周会数据.xlsx")
   
7.         Set wb = Workbooks.Open(mysubfolder & "" & filename)
   
8.         x = ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1
   
9.         With wb
   
10.                 .Sheets(1).Range("a1").CurrentRegion.Offset(1, 0).Copy ThisWorkbook.Sheets(1).Cells(x, 1)
    
11.                 .Close
    
12.             End With
    
13.         filename = Dir
    
14.     Next mysubfolder
    
15. End Sub

复制代码

、不想了

也是才学习vba的新手 求各位大神多提意见。。。