[已解决]从多个Excel提取数据并合并

carloguan

小弟这里有很多个excel文件，已通过批处理分别完成运算，并将结果显示在了每个excel的最后一行。
现在我想要将这些结果汇总在一个新的excel文档中，即提取每个excel最后一行数据，合并在新的excel中。
请问如何用VBA进行编程？论坛新人，VBA初学，希望和大家共同学习，一起进步！

最佳答案

月排行榜 / 总排行榜

dsmch

2014-4-3 12:34

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

复制代码

跳转到最佳答案楼层

dsmch

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

复制代码

dsmch

………………

carloguan

dsmch 发表于 2014-4-3 12:34

非常感谢！