求租提取所有文件夹中同一列数据生成一张汇总报表

dagal · 发表于 2018-7-17 15:05

lsc900707 发表于 2018-7-17 10:37
自己在分开放置测试看看：

之前傻傻的还把所有部门的B表复制到一个文件夹内进行汇总，这会才发现原来可以选择文件夹来查找，但我试着按这个代码把前面的部分改了后啥也没汇总到，求助好心版主再帮我看看。就是比如：文件夹6月\A文件夹，B文件夹\文件。谢谢~~~~~

lsc900707 · 发表于 2018-7-17 19:31

本帖最后由 lsc900707 于 2018-7-17 21:02 编辑

dagal 发表于 2018-7-17 15:05
之前傻傻的还把所有部门的B表复制到一个文件夹内进行汇总，这会才发现原来可以选择文件夹来查找，但我试 ...

你不把原始数据文件夹打包上来，我怎么测试你的代码呀？

dagal · 发表于 2018-7-17 22:25

lsc900707 发表于 2018-7-17 19:31
你不把原始数据文件夹打包上来，我怎么测试你的代码呀？

B表汇总.rar (644.96 KB, 下载次数: 3)

已可以选择文件夹了，不知能否现实汇总后弹出另存为窗口，文件名自定义，但不包含操作表及宏模块，再次感谢版主帮忙看下。。。

dagal · 发表于 2018-7-19 12:46

lsc900707 发表于 2018-7-17 19:31
你不把原始数据文件夹打包上来，我怎么测试你的代码呀？

师傅，附件上传了，有空帮忙再看看~谢谢了！

dagal · 发表于 2018-7-19 22:58

有人帮忙看看么，能否实现另存为的时候不包含操作表和宏代码，其他所有表存为一个工作簿，不是网上的那种一个表一个工作簿。。。谢谢！！！

lsc900707 · 发表于 2018-7-20 07:56

dagal 发表于 2018-7-17 22:25
已可以选择文件夹了，不知能否现实汇总后弹出另存为窗口，文件名自定义，但不包含操作表及宏模块，再 ...

Sub 导出()
If MsgBox("这是在各项操作完成后生成结果文件！是否继续?", 36, "询问") = 7 Then Exit Sub
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each sht In Sheets
      If sht.Name <> "操作表" Then
         m = m + 1
         If m = 1 Then sht.Select Else sht.Select False
      End If
Next
ActiveWindow.SelectedSheets.Copy
c = InputBox("请输入生成的文件名:")
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & c
ActiveWorkbook.Close True
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox "保存成功！"
End Sub

lsc900707 · 发表于 2018-7-20 08:00

dagal 发表于 2018-7-17 22:25
已可以选择文件夹了，不知能否现实汇总后弹出另存为窗口，文件名自定义，但不包含操作表及宏模块，再 ...

附件供测试参考：

不笑猫-v · 发表于 2018-7-20 08:06

dagal 发表于 2018-7-13 15:08
我是win7 office 2016版的。不知为何就是出错了。。。

动图是怎么录的?

		自动登录	找回密码
密码			免费注册

[求助] 求租提取所有文件夹中同一列数据生成一张汇总报表

评分

评分