vba汇总-将文件夹内表格在汇总表里面建立分表，并汇总

lsc900707

把两个表直接移动过来可以吗？

761680941

lsc900707 发表于 2016-10-31 21:33
把两个表直接移动过来可以吗？

也可以表格整页复制，但保留原格式和框架，数据选择性粘贴，谢谢

761680941

LMY123 发表于 2016-10-26 15:21
参考:

你的这个代码无法使用啊

LMY123

761680941 发表于 2016-11-5 07:49
你的这个代码无法使用啊

1. Sub 程序放在人员文件夹外()
   
2.    Dim w As Workbook, sh As Worksheet, MyPath As String, MyName  As String
   
3.       Application.ScreenUpdating = False
   
4.       Set d = CreateObject("scripting.dictionary")
   
5.     For Each sh In Sheets
   
6.       d(sh.Name) = ""
   
7.       sh.Cells.ClearComments
   
8.     Next
   
9.     MyPath = ThisWorkbook.Path & "\人员"
   
10.     MyName = Dir(MyPath & "*.xlsx")
    
11.   Do While MyName <> ""
    
12.      If MyName <> ThisWorkbook.Name Then
    
13.         With ThisWorkbook
    
14.             Set w = CreateObject(MyPath & "" & MyName)
    
15.           For Each sh In w.Worksheets
    
16.              If d.Exists(sh.Name) Then _
    
17.                sh.Range("B8:D10").Copy .Worksheets(sh.Name).[a65536].End(3)(1, 1)
    
18.           Next
    
19.              Windows(w.Name).Visible = True
    
20.              w.Close False
    
21.        End With
    
22.      End If
    
23.          MyName = Dir
    
24.    Loop
    
25.      Set d = Nothing
    
26.      Set w = Nothing
    
27.    ActiveWorkbook.RemovePersonalInformation = False
    
28.     Application.ScreenUpdating = True
    
29.     MsgBox "数据处理完毕。"
    
30. End Sub

复制代码

761680941

LMY123 发表于 2016-11-5 12:17

你试过了吗

lwx228

简单的方法，谢谢！

lrh788

收藏！！！！