VBA汇总同一文件夹下 所有工作簿 同一工作表名的 指定区域 数据汇总

夜空星辰

.

VBA汇总同一文件夹下 所有工作簿 同一工作表名的 指定区域 数据汇总



感谢诶GVNTW版主的分享 ^_^



Sub gvntw()
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("C638").Copy
ThisWorkbook.Activate
Range("C6").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
wb.Close False
End If
MyFiles = Dir
Loop
Application.ScreenUpdating = True
End Sub2009-6/200962415255829188.rar

[此贴子已经被作者于2009-6-24 15:26:01编辑过]

huangy970

留个影子，一直对VBA似懂非懂，但比较有兴趣，继续学习

xiaowu1011

不怎么懂VBA，期待夜空什么时候能讲解VBA就好了，学习了

夜空星辰

以下是引用xiaowu1011在2010-2-3 8:45:00的发言：

不怎么懂VBA，期待夜空什么时候能讲解VBA就好了，学习了

好的，这两天我把这个案例做成视频和大家分享，多多交流。

xiaowu1011

太好了，跟着你学了不少东西。很感谢