[已解决]怎么把同一目录下汇总到一个表格中。

jinhuaxj

怎么用VBA提取同一目录下excel文件中某行数据汇总到汇总表



测试.zip (6.94 KB, 下载次数: 13)

2014-3-20 17:14 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2014-3-26 14:21

………………

跳转到最佳答案楼层

jinhuaxj

就像我测试数据这样

dsmch

jinhuaxj 发表于 2014-3-20 17:15
就像我测试数据这样

汇总哪行数据？，模拟结果看不明白

jinhuaxj

dsmch 发表于 2014-3-21 18:07
汇总哪行数据？，模拟结果看不明白

只要第2行数据，汇总到总表  不求和

dsmch

1. Sub Macro1()
   
2. Dim wb As Workbook, mypath$, wj$, s&
   
3. mypath = ThisWorkbook.Path & ""
   
4. wj = Dir(mypath & "*.xls")
   
5. Application.ScreenUpdating = False
   
6. ActiveSheet.UsedRange.Clear
   
7. Do While wj <> ""
   
8.     If wj <> ThisWorkbook.Name Then
   
9.         s = s + 1
   
10.         Set wb = GetObject(mypath & wj)
    
11.         wb.Sheets(1).Cells(2, 1).Resize(1, 27).Copy Cells(s, 1)
    
12.         wb.Close 0
    
13.     End If
    
14.     wj = Dir
    
15. Loop
    
16. Application.ScreenUpdating = True
    
17. End Sub
    

复制代码

dsmch

………………

jinhuaxj

dsmch 发表于 2014-3-25 18:34
………………

汇总页表头没有了

jinhuaxj

dsmch 发表于 2014-3-25 18:34
………………

还有我要复制2行 怎么改代码

dsmch

jinhuaxj 发表于 2014-3-26 11:00
还有我要复制2行 怎么改代码

用我的附件模拟一下结果，并用附件说明问题

薄荷语冰

VBA都看不懂。