怎么用VBA把多张EXCEL固定表格的数据读取到一张EXCEL汇总表中？

xiexiaogang1224 · 发表于 2018-8-27 11:52

RT,附件有2个表格做例子，实际可能有几十张，需要运行后直接读取所有表格汇总到一张表
本人新手，不太会用VBA，跪求大神帮忙！

小花鹿 · 发表于 2018-8-27 12:17

这样的例子很多，遍历工作薄，打开，对应填写，关闭

abc123281 · 发表于 2018-8-27 13:25

初学同学要完成这个可能还不容易
可以实现只是麻烦一点

liujialin0o0 · 发表于 2018-8-27 13:42

就是麻烦了点

Sub tt()
Application.ScreenUpdating = False
pt = ThisWorkbook.Path
fn = Dir(pt & "\*.xlsx")
Do While fn <> ""
If fn <> ThisWorkbook.Name Then
Workbooks.Open pt & "" & fn
ThisWorkbook.Activate
n = Cells(Rows.Count, 1).End(3).Row + 1
With Workbooks(fn).Sheets(1)
Cells(n, 1) = .[C2]
Cells(n, 2) = .[G2]
Cells(n, 3) = .[C3]
Cells(n, 4) = .[G3]
Cells(n, 5) = .[C4]
Cells(n, 6) = .[C5]
Cells(n, 7) = .[C6]
Cells(n, 8) = .[G5]
Cells(n, 9) = .[E6]
Cells(n, 10) = .[C7]
Cells(n, 11) = .[E7]
Cells(n, 12) = .[G7]
Cells(n, 13) = .[E5]
Workbooks(fn).Close False
End With
End If
fn = Dir
Loop
Application.ScreenUpdating = True
End Sub

复制代码

LMY123 · 发表于 2018-8-27 13:44

多薄指定表不连续单元格合并

魂断蓝桥 · 发表于 2018-8-27 13:45

Sub a()
Dim arr, brr(1 To 9999, 1 To 13), i%, j%, f$, a
f = Dir(ThisWorkbook.Path & "\*.xlsx")
arr = Array("c2", "g2", "c3", "g3", "c4", "c5", "c6", "g5", "e6", "c7", "e7", "g7", "e5")
Application.ScreenUpdating = False
Do While f <> ""
i = i + 1
j = 0
Workbooks.Open f
      For Each a In arr
         j = j + 1
         brr(i, j) = Sheets(1).Range(a)
      Next
         Workbooks(f).Close SaveChanges:=False
f = Dir()
Loop
[a2:m9999] = ""
[a2].Resize(i, 13) = brr
Application.ScreenUpdating = True
End Sub

刘伶醉0 · 发表于 2018-8-27 15:14

思路：打开文件夹下所有表-复制提取数据-关闭所有表

iwangyi · 发表于 2018-8-27 15:25

学习-------

opiona · 发表于 2018-8-27 16:58

http://club.excelhome.net/thread-1409141-1-1.html

xiexiaogang1224 · 发表于 2018-8-28 11:51

liujialin0o0 发表于 2018-8-27 13:42
就是麻烦了点

代码复制进去保存就报错了，宏我也添加了啊，啥原因啊

		自动登录	找回密码
密码			免费注册

[已解决] 怎么用VBA把多张EXCEL固定表格的数据读取到一张EXCEL汇总表中？