自动化Excel数据整合：一键提取销售统计表关键信息 点击使用AI助手 了解更多
AI 智能搜索
在处理大量销售数据时，手动整合信息既耗时又容易出错。本文将向您展示如何利用WPS宏功能，通过简单的代码实现自动化数据提取，从而快速准确地完成销售统计表的整合工作。
⭐【案例描述】
下面文件夹中有很多个销售统计表，D列最后一行为合计金额，但每个表格的行数不一样，现在需要将每张表的公司名称与合计金额提取到一个表格中，如下图所示。
⭐【操作效果】
⭐【JSA代码】
按ALT+F11打开WPS宏编辑器，复制下方代码粘贴到编辑器中。
function 批量获取Excel文件指定内容(){
p = ThisWorkbook.Path +/销售统计表/ //获取表格路径
f = Dir(p+'*.xlsx') //获取excel文件名
let tsh=ActiveSheet //将当前工作表定义为tsh
i=2 //从第2行开始写入
while(f){ //循环直到文件名不为空
let wb = Workbooks.Open(p + f) //打开工作簿
let sh=wb.Sheets.Item(1) //将打开的第一张工作表定义为sh
let rg=sh.Range("d65535").End(3) //将D列的合计金额赋值给对象rg
gs=f.replace('.xlsx','') //将文件名后缀替换掉，得到公司名称
tsh.Cells.Item(i,'a').Value2=gs //将公司名称写入A列
tsh.Cells.Item(i,'b').Value2=rg.Value2 //将合计金额写入B列
wb.Close(false) //关闭工作簿，false为不保存
f=Dir()
i++ //每循环一次，行号+1
}
}
⭐【往期内容】
⭐【素材下载】
https://kdocs.cn/l/ci002POBr2Kv
通过本文介绍的自动化技术，用户可以轻松地将分散在多个Excel文件中的关键销售数据汇总到一个表格中，极大提高了工作效率并减少了人为错误。掌握这一技能，将使您在数据管理方面更加得心应手。
原文链接：https://bbs.wps.cn/topic/9888
