求助多文件中指定工作表数据汇总到汇总文件中

zyf19890315

是只需要粘贴早餐和大厅的数据吗

dagal

lsc900707 发表于 2018-6-5 10:13
不客气，如果解决了问题就评个分吧：点击右下角“评分”按提示操作即可。

谢谢啦。给你好评！我加你扣扣了，不过我在想能否再加多个判断，就是当分表中没有餐饮的时候，在汇总中客房收入显示为代码+A，例如JACD06，就没有餐饮，但是在汇总表中变成JZCD06B了，正常情况下是要显示为JZCD06A。

dagal

lsc900707 发表于 2018-6-4 17:27
自己看看清楚附件再说。一开始就要把附件做好，便于寻找规律。
代码已修改，详见附件：

师傅，再次打扰你下，之前的汇总表，我事后测试多加3个场所代码，JZ09、JZCD08、JZX02、JZX03看看是否能正常，可是现在发现JX02、JZX03不能正常提取代码，而是变成以下图片，烦请帮忙下，谢谢。



各场所.rar (1.36 MB, 下载次数: 1)

2018-6-10 10:56 上传

点击文件名下载附件

lsc900707

dagal 发表于 2018-6-10 10:55
师傅，再次打扰你下，之前的汇总表，我事后测试多加3个场所代码，JZ09、JZCD08、JZX02、JZX03看看是否能 ...

原代码确实存在BUG,修改一下就好:

dagal

lsc900707 发表于 2018-6-10 17:15
原代码确实存在BUG,修改一下就好:

嗯嗯，谢谢。好像还有个BUG，就是如JZCD06、JZCD07、JZCD08、JZX01这些文件中无餐饮的时候，在汇总表为变成了B，正常应该是显示A才可以的。。。

dagal

lsc900707 发表于 2018-6-10 17:15
原代码确实存在BUG,修改一下就好:

您好，我在原来基础上加了以下判断后，可以实现当文件中只有客房收入的时候汇总表显示为A：
For i = 1 To ws.Worksheets.Count
                If Trim(ws.Worksheets(i).Name) = "客房收入" Then
                    ws.Sheets("客房收入").Copy after:=wk.Sheets(wk.Sheets.Count)
                    ActiveSheet.Name = Replace(Split(Split(f, ".")(0), "-")(1), "营业额", "") & "A"
                End If
                If Trim(ws.Worksheets(i).Name) = "餐饮" Then
                    ws.Sheets("餐饮").Copy after:=wk.Sheets(wk.Sheets.Count)
                    ActiveSheet.Name = Replace(Split(Split(f, ".")(0), "-")(1), "营业额", "") & "B"
                End If


另外，我在源代码中发现有一个表名为（餐饮）的表名，但在生成的汇总表中是没有的。而且不知是不是因为这个原因，导致JZX01显示出来的还是B而不是A。

请师傅再指教，谢谢。

lsc900707

dagal 发表于 2018-6-10 18:21
嗯嗯，谢谢。好像还有个BUG，就是如JZCD06、JZCD07、JZCD08、JZX01这些文件中无餐饮的时候，在汇总表为变 ...

你那个JZX01表有问题。改过之后用新代码测试OK.
结果请再测试：

dagal

lsc900707 发表于 2018-6-10 19:37
你那个JZX01表有问题。改过之后用新代码测试OK.
结果请再测试：

好的，不知我那JZX01的表有什么问题，能具体说明一下吗？另外，在你回复这条之前，我已上传了一段我自己修改的，但在审核中。。。此时你看不到

lsc900707

dagal 发表于 2018-6-10 19:43
好的，不知我那JZX01的表有什么问题，能具体说明一下吗？另外，在你回复这条之前，我已上传了一段我自己 ...

不知道，反正测试时名称都是B,后来我复制一个JZX02工作簿文件修改名称后测试就OK了。

dagal

lsc900707 发表于 2018-6-10 19:46
不知道，反正测试时名称都是B,后来我复制一个JZX02工作簿文件修改名称后测试就OK了。

哦，好的，谢谢了。。。