ExcelVBA汇总文件夹中的所有文件指定工作表到一个文件中并进行求和

ExcelVBA汇总文件夹中的所有文件指定工作表到一个文件中并进行求和

【问题】：有一个格式固定的表格，我们下发给下面的单位做，上交上来有很多个文件，想要做的是汇总下面各学校交上来的表格并求和

1.许多个文件

2.文件中表格格式一样，并且都在Sheet1工作表

3.想要汇总到这个表

【解决问题】分两步走

1.先把各表格汇总到一个文件一个一个表放置

2.再用公式=sum('*'!B5)进行所有工作指定单元格求和

===第一步用以下代码===============

Sub 汇总指定文件指定工作表()

WithApplication.FileDialog(msoFileDialogFolderPicker)

'--------取得用户选择的文件夹路径

.InitialFileName = ThisWorkbook.Path

If .ShowThen strPath = .SelectedItems(1) Else Exit Sub

End With

IfRight(strPath, 1) <> "\" Then strPath = strPath &"\"

' MsgBox"选择了：" &Chr(10) & strPath

strKey =InputBox("请输入工作表名称所包含的关键词。" & vbCr & "关键词可以为空，如为空，则默认选择符合条件工作簿的全部工作表")

IfStrPtr(strKey) = 0 Then Exit Sub

'如果按取消就退出

i = 0

mfile =Dir(strPath & "*.xls*")

Do Whilemfile <> ""

If mfile<> ThisWorkbook.Name Then

WithGetObject(strPath & mfile)

For Each mysht In .Worksheets

If InStr(1, mysht.Name, strKey, vbTextCompare) Then

If Application.CountIf(mysht.UsedRange, "<>") Then

mysht.Copyafter:=ThisWorkbook.Worksheets(Sheets.Count)

End If

End If

Next

.Close False

EndWith

End If

mfile = Dir

Loop

End Sub

运行，可以得到所有的文件的指定工作表汇总到一个文件中，并一个一个表放置好了，

====第二步有公式sum(‘*’!B6)把所有工作表中是B6单元格求和=

在b6输入= sum(‘*’!B6),Enter, 把所有工作表中是B6单元格求和，再右拉，再下拉，就可以啦