Excel 如何同一文件夹中多个不同名字excel单元格数据提取

hnycy001

同一文件夹内，名称不同的excel文件内不同工作表中的单元格取数。 一个文件夹下最多有100多个文件，
从（XX决算表）中相同的位置（需要的数据我表黄了）提取出的数据都汇入（取数表）相应的位置。
自己瞎弄了一下，只能提取决算表中（名字叫封面的2个，还有一个工作表中数据就是无法提取，提取出来就显示#VALUE!）
所以就不写了，求请大侠们帮帮忙。。。帮我写一个。。

duquancai

这么一丁点儿困难，所以就不写了？

abc123281

1. Sub 提取数据()
   
2. Dim wb As Workbook
   
3. Dim brr(1 To 1000, 1 To 4)
   
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("封面")
    
15.                brr(n, 1) = .[c6]
    
16.                brr(n, 2) = .[c8]
    
17.              End With
    
18.              With .Worksheets("01-4（配网）")
    
19.                brr(n, 3) = .[g15]
    
20.                brr(n, 4) = .[g16]
    
21.              End With
    
22.              wb.Close False
    
23.           End With
    
24.       End If
    
25.     myname = Dir()
    
26.   Loop
    
27. With ThisWorkbook.Worksheets("sheet1")
    
28.   .[a3].Resize(n, 4) = brr
    
29. End With
    
30. Application.DisplayAlerts = True
    
31. Application.ScreenUpdating = True
    
32. MsgBox "数据提取完成！"
    
33. End Sub

复制代码

abc123281

决算报表abc123.rar (318.89 KB, 下载次数: 121)

2018-4-4 22:00 上传

点击文件名下载附件

hnycy001

duquancai 发表于 2018-4-4 21:35
这么一丁点儿困难，所以就不写了？

不是不写，是真的不会写~

LMY123

常规法合并多薄多表指定单元格

hnycy001

abc123281 发表于 2018-4-4 21:59

1000多条数据终于搞定了，真的很好用。太谢谢啦，

linfeng123321

abc123281 发表于 2018-4-4 22:00

@abc123281，高手也帮我的解决一下好吗，我初学者，非常感谢！！！求助！！！多个工作簿汇总问题
http://club.excelhome.net/thread-1406256-1-1.html
(出处: ExcelHome技术论坛)

linfeng123321

abc123281 发表于 2018-4-4 22:00

@abc123281，高手也帮我的解决一下好吗，我初学者，非常感谢！！！求助！！！多个工作簿汇总问题
http://club.excelhome.net/thread-1406256-1-1.html
(出处: ExcelHome技术论坛)

jjmysjg

再多几张表也可以吗