求助：如何将多个工作簿的数据合并到一张工作表上

wcf9746

   我有31张工作表，格式都是一样的。现在想将数据按照日期顺序将合计那栏的数据合并到一张工作表上。求助各位高手指点

grf1973

1. Sub 导入文件()   '从当前文件夹下不同表导入数据
   
2.     Dim Filename$, fn$, dq$, wb As Workbook, sh As Worksheet
   
3.     Application.ScreenUpdating = False
   
4.     Application.DisplayAlerts = False
   
5.     Dim brr(1 To 1000, 1 To 2)
   
6.     Filename = Dir(ThisWorkbook.Path & "\门诊\*.*")
   
7.     [a2:b1000] = ""
   
8.     Do While Filename <> ""
   
9.             fn = ThisWorkbook.Path & "\门诊" & Filename
   
10.             Set wb = Workbooks.Open(fn)
    
11.             Set sh = wb.Sheets(1)
    
12.             n = n + 1
    
13.             Cells(n + 1, 1) = "'" & Filename: Cells(n + 1, 2) = sh.[d2]
    
14.             wb.Close False
    
15.         Filename = Dir
    
16.     Loop
    
17.     Application.DisplayAlerts = True
    
18.     Application.ScreenUpdating = True
    
19. End Sub
    

复制代码