VBA实现多个工作簿的汇总 如何做

laoau138

VBA实现多个工作簿的汇总  如何做

有若干个工作簿和一个汇总工作簿，，保存在文件夹中，它们的数据存放格式完全相同


把每个数据工作簿的第一和第二个工作表数据分别汇总到      汇总工作簿的第一和第二个工作表中

grf1973

1. Sub 导入文件()
   
2.     Application.ScreenUpdating = False
   
3.     Dim Filename, wb As Workbook
   
4.     Filename = Dir(ThisWorkbook.Path & "\*.xls")
   
5.     Do While Filename <> ""
   
6.         If Filename <> ThisWorkbook.Name Then
   
7.             fn = ThisWorkbook.Path & "" & Filename
   
8.             Set wb = Workbooks.Open(fn)
   
9.             For j = 1 To 2
   
10.                 r = ThisWorkbook.Sheets(j).[a1].CurrentRegion.Rows.Count + 1
    
11.                 wb.Worksheets(j).[a1].CurrentRegion.Offset(1).Copy ThisWorkbook.Sheets(j).Cells(r, 1)
    
12.             Next
    
13.             wb.Close False
    
14.         End If
    
15.         Filename = Dir
    
16.     Loop
    
17.     Application.ScreenUpdating = True
    
18. End Sub
    

复制代码

laoau138

grf1973 发表于 2016-11-7 13:29

如何做

http://www.excelpx.com/thread-425511-1-1.html