多表格数据自动统计

dorrila

请各位大侠帮忙，每轮核酸都要统计这些数据，能否每个采样点数据输入以后，自动进行统计，万分感谢各位帮忙！
采样点物资领取统计.rar (25.02 KB, 下载次数: 11)

2022-6-23 12:12 上传

点击文件名下载附件

高

不知道你想下发怎样的表，例如给每个采样点都下发同样的含有各个采样点工作表的文件吗？

dorrila

高 发表于 2022-6-23 13:06
不知道你想下发怎样的表，例如给每个采样点都下发同样的含有各个采样点工作表的文件吗？

表格不下发，做统计用的，每个采样点填好电子版，然后我们统一汇总。

eennoo

11

dorrila

eennoo 发表于 2022-6-23 15:18
11

高手，感谢大佬！
另外，再请教一下，如果把采样点1、采样点2.。。。修改成具体的小区名称，需要在哪里修改一下呢？

eennoo

For Each s In Worksheets
    If s.Name Like "采样点*" Then
        szSql = szSql + "select [物资名称],[单位],[数量] from [" + s.Name + "$B3:E20] union all "
    End If
Next
这里就是szSql =
select [物资名称],[单位],[数量] from [采样点1$B3:E20] union all
select [物资名称],[单位],[数量] from [采样点2$B3:E20] union all
select [物资名称],[单位],[数量] from [采样点3$B3:E20]
你要把 [采样点1$B3:E20] 这里改成自己的表格
或者可以把worksheet.id改成自己的ID来引用，就算表格名称改变了也没事