如何同一文件夹里多个excel工作表数据汇总到一个工作表中

dg子非鱼

各位大侠，如何同一文件夹里多个excel工作表（格式一样）数据汇总到一个新工作表，请各位大侠赐教，十分感谢！

736433303

汇总表为什么会有”每日统计“字段？

山菊花

供参考。

dg子非鱼

谢谢大神的帮忙！！

dg子非鱼

大侠，本人菜鸟一名，想问一下，如何使用，我下载了放入文件夹里，按：汇总，没反应的？

山菊花

dg子非鱼 发表于 2015-9-19 17:08
大侠，本人菜鸟一名，想问一下，如何使用，我下载了放入文件夹里，按：汇总，没反应的？

点击汇总按钮，没反应的原因可能是文件名不匹配。

dg子非鱼

明白，谢谢

Ricky_zhaoo

学习中！留记～

maplezy

山菊花 发表于 2015-9-19 16:33
供参考。

初学者，帮忙看一下，我想对同一文件夹下多个相同格式中某一个工作表进行数据累加，累加区域为F16：FW1083，您看看编码哪里不对
Sub 汇总()
Dim cFile$, cPath$, nL%
Application.ScreenUpdating = False
Application.EnableEvents = False
nL = 5
cPath = ThisWorkbook.Path & "\上报文件\"
cFile = Dir(cPath & "*.*")
Do While cFile <> ""
    nL = nL + 174
    Cells(16, nL).Resize(1068, 174).Formula = "='" & cPath & "[" & cFile & "]数量输入'!f16:$fw1083"
    cFile = Dir
Loop
Range("f16:f1083").Formula = "=sum(f4:iv4)"
Range("f16:f1083").Value = Range("f16:f1083").Value
Range("f4:iv49").ClearContents
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

山菊花

看是不是这里：
Cells(16, nL).Resize(1068, 174).Formula = "='" & cPath & "[" & cFile & "]数量输入'!f16"

把后面的“:$fw1083”删去。