提取文件夹内多个工作簿同一名称工作表到同一个工作簿内

22inin

求助各位大侠

我需要提取文件夹内很多个文件包含资金日报表字段的 工作表，名称为"上坤集团“
我通过宏录制取得了一段代码，但是我有如下问题：
1.文件夹内包含"资金日报表"有很多（如资金日报表160105、资金日报表160114），这个代码如何模糊匹配？
2.文件必须打开，能否指定取得文件夹内的文件数据字段，无需打开所有文件？提取
附加在下面6楼

Sub Macro1()
'
' Macro1 Macro
'
' 快捷键: Ctrl+l
'
    Windows("资金日报表160104.xlsx").Activate
    Sheets("上坤集团").Select
    Sheets("上坤集团").Copy Before:=Workbooks("资金日报表1601 汇总.xlsm").Sheets(3)
    Sheets("上坤集团 (2)").Select
    Range("E3").Select
    Sheets("上坤集团").Select
End Sub

22inin

附件

爱疯

http://www.excelpx.com/thread-340220-1-1.html

可以发附件，请参考

22inin

爱疯 发表于 2016-2-2 12:00
http://www.excelpx.com/thread-340220-1-1.html

可以发附件，请参考

附件已经删减的不能再删减了，还是一个597K 压缩后588K 无语了，500K附件限制

爱疯

http://www.excelpx.com/thread-152349-1-1.html
可参考其中的一个帖子："附件过大时，如何分卷压缩"


另外以下建议，也可使工作簿变小：
1）保留部分数据
2）清除工作簿中的对象、格式

22inin

附件来了