多个相同工作簿的汇总

txlgq · 发表于 2003-6-5 13:28

多个相同格式的工作簿中的数据汇总成一个相同格式的工作簿，怎么办？求教各位高手！

jydd · 发表于 2003-6-5 16:51

多工作簿须同时打开，然后用sum函数

txlgq · 发表于 2003-6-6 08:38

3楼的合并计算功能，具体如何操作？

whwufanqi · 发表于 2003-6-7 20:12

到 http://www.sf.gov.cn/gkgl/gkgl.htm 下一个，财政部门专用的，很好

hzg7818 · 发表于 2003-6-5 21:30

用合并计算功能

夜空星辰 · 发表于 2010-2-9 11:36

Sub yhy()
Dim MyFiles, MyPath, wb As Object
MyPath = ThisWorkbook.Path
MyFiles = Dir(MyPath & "\*.xls")

Application.ScreenUpdating = False
Do While MyFiles <> ""
      If MyFiles <> ThisWorkbook.Name Then
         Set wb = GetObject(MyPath & "/" & MyFiles)
         wb.Sheets(1).Range("G6:H38").Copy
         ThisWorkbook.Activate
         Range("G6").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
         wb.Sheets(1).Range("C6:D38").Copy
         ThisWorkbook.Activate
         Range("C6").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
         wb.Close False
      End If
      MyFiles = Dir
Loop
Application.ScreenUpdating = True
End Sub

imzy1975 · 发表于 2010-3-7 23:12

需要中，已下载，谢谢

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

[讨论] 多个相同工作簿的汇总

用VBA解决【多个相同工作簿的汇总】