求助！！！！！！！如何从其他几个表中取需要汇总的数据到汇总表里面

hnzcz

求助！！！！！！！如何从其他几个表中取需要汇总的数据到汇总表里面，而且随着项目表中的数据调整而调整。

duquancai

求助还用这么多的感叹号吗？求助又不具有特权！论坛搜索一下吧！有类似的代码，改改就能用。

abc123281

1. Sub 提取数据123()
   
2. Dim wb As Workbook
   
3. Dim brr(1 To 4, 1 To 100)
   
4. Dim mypath$, myname$
   
5. Application.DisplayAlerts = False
   
6. Application.ScreenUpdating = False
   
7. mypath = ThisWorkbook.Path & ""
   
8. myname = Dir(mypath & "*.xl*")
   
9.   Do While myname <> ""
   
10.     If myname <> ThisWorkbook.Name Then
    
11.         n = n + 1
    
12.         Set wb = GetObject(mypath & myname)
    
13.           With wb
    
14.             With .Worksheets("sheet1")
    
15.                brr(1, n) = Split(wb.Name, ".")(0)
    
16.                brr(2, n) = .[d2]
    
17.                brr(3, n) = .[d5]
    
18.                brr(4, n) = .[d8]
    
19.              End With
    
20.              wb.Close False
    
21.           End With
    
22.       End If
    
23.     myname = Dir()
    
24.   Loop
    
25. With ThisWorkbook.Worksheets("sheet1")
    
26.   .[b1].Resize(4, n) = brr
    
27. End With
    
28. Application.DisplayAlerts = True
    
29. Application.ScreenUpdating = True
    
30. MsgBox "数据提取完成！"
    
31. End Sub

复制代码

abc123281

提取数据123.rar (43.22 KB, 下载次数: 10)

2018-4-4 23:36 上传

点击文件名下载附件

hnzcz

感谢abc123281，我是vba新手先消化消息，谢谢！！！

hnzcz

我看了这句，是固定从D2,D5,D8取数据，因为我没有解释清楚，我实际数据有几百行，我要的目的是根据汇总表A列和项目A列中相同的D列数据取到汇总表里面

With .Worksheets("sheet1")
               brr(1, n) = Split(wb.Name, ".")(0)
               brr(2, n) = .[d2]
               brr(3, n) = .[d5]
               brr(4, n) = .[d8]
             End With

hnzcz

我看了这句，With .Worksheets("sheet1")
               brr(1, n) = Split(wb.Name, ".")(0)
               brr(2, n) = .[d2]
               brr(3, n) = .[d5]
               brr(4, n) = .[d8]
             End With

是固定从D2,D5,D8取数据，因为我没有解释清楚，我实际数据有几百行，我要的目的是根据汇总表A列和项目A列中相同的D列数据取到汇总表里面

hnzcz

abc123281 发表于 2018-4-4 23:36

With .Worksheets("sheet1")
               brr(1, n) = Split(wb.Name, ".")(0)
               brr(2, n) = .[d2]
               brr(3, n) = .[d5]
               brr(4, n) = .[d8]
             End With
是固定从D2,D5,D8取数据，
因为我没有解释清楚，我实际数据有几百行，我要的目的是根据汇总表A列和项目A列中相同的D列数据取到汇总表里面