求助高手！！！

niqing_16 · 发表于 2016-2-18 09:03

说明：
1、统计文件夹下的所有上报文件格式一致为xlsx
2、要求把上报的excel文件中填报的分值数据求平均值（保留2位小数），然后自动填写到“B类汇总统计”文件中去。

山菊花 · 发表于 2016-2-18 10:01

供参考。

niqing_16 · 发表于 2016-2-19 08:46

山菊花发表于 2016-2-18 10:01
供参考。

感谢你提供帮助，可测试的数据结果不对。

要的是所有上报文件的数值的“平均值”并保留2位小数。

山菊花 · 发表于 2016-2-19 10:05

niqing_16 发表于 2016-2-19 08:46
感谢你提供帮助，可测试的数据结果不对。

要的是所有上报文件的数值的“平均值”并保留2位小数。

低级错误。
Brr(i, j) = Format(Brr(i, j) / 2, "0.00")
改为：
Brr(i, j) = Format(Brr(i, j) / s, "0.00")

niqing_16 · 发表于 2016-2-23 09:21

已经可以了，非常感谢版主的帮助。

niqing_16 · 发表于 2016-2-24 10:20

用一楼的数据没有问题，请版主看一下我这个“测试数据”为什么报400的错误。
非常感谢！

山菊花 · 发表于 2016-2-24 11:04

因为文件名中有空格，修改下面一行代码（工作表全名前后添加一半角单引号）：
.Formula = "=[" & cFile & "]调查问卷!E6"
为：
.Formula = "='[" & cFile & "]调查问卷'!E6"

（楼上附件已更新。）

niqing_16 · 发表于 2016-2-24 14:34

山菊花发表于 2016-2-24 11:04
因为文件名中有空格，修改下面一行代码（工作表全名前后添加一半角单引号）：
.Formula = "=[" & cFile & ...

真的是非常感谢！！！

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

[经验交流] 求助高手！！！