设为首页收藏本站

开启辅助访问

Excel精英培训网»论坛 › Excel 求助区 › Excel 函数公式 › 如何将同一个文件夹内所有工作薄内指定工作表汇总

数据透视表40+个常用小技巧，让你一次学会！

发新帖

查看: 2307|回复: 6

[已解决]如何将同一个文件夹内所有工作薄内指定工作表汇总

华北程海涛

发表于 2014-3-24 13:04 | 显示全部楼层 |阅读模式

工作中常用的Excel函数公式，全印在一张超大鼠标垫上

如何将同一个文件夹内所有工作薄内指定工作表汇总

最佳答案

月排行榜 / 总排行榜

xdragon

2014-3-24 14:24

本帖最后由 xdragon 于 2014-3-24 15:36 编辑

Sub 合并报表()
Application.EnableEvents = False
Application.DisplayAlerts = False
Dim FStr As String, FName As String
Dim FGO As Object
Dim irow As Long
Dim arr, i&
FStr = Dir(ThisWorkbook.Path & "\*.xls")
Do Until FStr = ""
If ThisWorkbook.Path & "" & FStr <> ThisWorkbook.FullName Then
Set FGO = GetObject(ThisWorkbook.Path & "" & FStr)
With FGO.Sheets("登记表")
arr = .Range("A4").CurrentRegion.Value
For i = 1 To UBound(arr)
If arr(i, 1) = "" Then Exit For
Next
.Range("A4:V" & 1 + i).Copy Cells(Cells(Rows.Count, 1).End(3).Row + 1, 1)
End With
FGO.Close
Set FGO = Nothing
End If
FStr = Dir
Loop
Application.EnableEvents = True
Application.DisplayAlerts = True
End Sub

复制代码

跳转到最佳答案楼层

工作表, 文件夹, 如何

313.49 KB, 下载次数: 28

相关帖子

excel精英培训的微信平台，每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程

回复

使用道具举报

工作中最常用的函数公式，全印在一张超大的鼠标垫上

发表于 2014-3-24 14:10 | 显示全部楼层

工作中常用的Excel函数公式，全印在一张超大鼠标垫上

汇总表.rar (54.46 KB, 下载次数: 19)

评分

参与人数 1	+20	金币 +20	收起理由
风林火山	+ 20	+ 20	班长加油

查看全部评分

回复

使用道具举报

发表于 2014-3-24 14:24 | 显示全部楼层本楼为最佳答案

工作中最常用的Excel函数公式，全印在一张鼠标垫上

这个最佳答案由 xdragon 给出，感谢 xdragon 的回答。

单击隐藏图章

本帖最后由 xdragon 于 2014-3-24 15:36 编辑

Sub 合并报表()
Application.EnableEvents = False
Application.DisplayAlerts = False
Dim FStr As String, FName As String
Dim FGO As Object
Dim irow As Long
Dim arr, i&
FStr = Dir(ThisWorkbook.Path & "\*.xls")
Do Until FStr = ""
If ThisWorkbook.Path & "" & FStr <> ThisWorkbook.FullName Then
Set FGO = GetObject(ThisWorkbook.Path & "" & FStr)
With FGO.Sheets("登记表")
arr = .Range("A4").CurrentRegion.Value
For i = 1 To UBound(arr)
If arr(i, 1) = "" Then Exit For
Next
.Range("A4:V" & 1 + i).Copy Cells(Cells(Rows.Count, 1).End(3).Row + 1, 1)
End With
FGO.Close
Set FGO = Nothing
End If
FStr = Dir
Loop
Application.EnableEvents = True
Application.DisplayAlerts = True
End Sub

复制代码

评分

参与人数 1	+20	金币 +20	收起理由
风林火山	+ 20	+ 20	棒，学习龙哥的用法

查看全部评分

回复

使用道具举报

发表于 2014-3-24 14:42 | 显示全部楼层

直接有效的方法就是复制粘贴，就好了！

回复

使用道具举报

华北程海涛

楼主| 发表于 2014-3-25 06:59 | 显示全部楼层

本帖最后由华北程海涛于 2014-3-25 07:03 编辑

效果很好。

回复

使用道具举报

华北程海涛

楼主| 发表于 2014-3-25 07:04 | 显示全部楼层

如果在语句后注上说明就更完美了。

回复

使用道具举报

发表于 2014-3-27 16:13 | 显示全部楼层

如果后面语句有说明就好了。

回复

使用道具举报

发新帖

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-5-26 18:44 , Processed in 0.429238 second(s), 16 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表