对同一文件夹下所有excel表进行相同操作（数据填充、删除、合并）

• 背景引入：如图所示，笔者需要对数十个表格的银行日记账工作簿合并成一个工作簿，以便与本月银行流水进行核对。
  
• 为了方便银行日记账与银行流水进行核对，需要再每个村或小组的表格中，将村或小组的名称放在J列。
  

clear
cd C:\Users\Administrator\Desktop\8月份对账
*1. 将文件夹下所有excel文件变成dta格式
xls2dta,replace recursive : import excel using 8月各村社银行日记账* 2.对文件夹下所有dta文件进行同样操作
clear
local w:dir . files "*.dta"foreach j  in `w'{use "`j'",cleardrop in 1drop in -2/-1gen k = Areplace k = substr(A,16,30)replace k= k[_n-1] if k==""drop in 1/3save "`j'",replace
}* 3.对处理的单个dta文件进行合并
clear
local w:dir . files "*.dta"
foreach j  in `w'{append using "`j'"}* 4.导出为excel表格
export excel using "C:\Users\Administrator\Desktop\8月份对账\8月银行日记账表.xls"