[已解决]合并sheet

zzb181

一个文件夹命名"材料"下面，有20个excel表，每个excel表里面的sheet名字相同，第一个sheet命名a,第二个sheet命名b,第三个sheet命名c，求把这20个excel表里面的名字为b的sheet从第8行开始进行合并到一个excel表的一个sheet里面。谢谢！

最佳答案

月排行榜 / 总排行榜

dsmch

2014-3-25 19:39

………………

跳转到最佳答案楼层

yuan1987

给个附件吧

dsmch

1. Sub Macro1()
   
2. Dim wb As Workbook, mypath$, wj$
   
3. Dim n&, h&, l&
   
4. mypath = ThisWorkbook.Path & ""
   
5. wj = Dir(mypath & "*.xls")
   
6. n = 1
   
7. Application.ScreenUpdating = False
   
8. Do While wj <> ""
   
9.     If wj <> ThisWorkbook.Name Then
   
10.         Set wb = GetObject(mypath & wj)
    
11.         With wb.Sheets("b")
    
12.             h = .UsedRange.Rows.Count
    
13.             l = .UsedRange.Columns.Count
    
14.             .Range(.Cells(8, 1), .Cells(h, l)).Copy Cells(n, 1)
    
15.             n = Range("a65536").End(xlUp).Row + 1
    
16.         End With
    
17.         wb.Close 0
    
18.     End If
    
19.     wj = Dir
    
20. Loop
    
21. Application.ScreenUpdating = True
    
22. End Sub
    

复制代码

dsmch

………………

蓝粆

收藏~~