对同一文件夹下所有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'",clear
	drop in 1
	drop in -2/-1
	gen k = A
	replace k = substr(A,16,30)
	replace k= k[_n-1] if k==""
	drop in 1/3
	save "`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"