对同一文件夹下所有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"