功能:读入C:\fin\data\test中的多个excel文件,并生成对应dta文件,最后把所有的dta文件合并为一个 注意:空的excel文件需要删除,否则报错,可以自行添加是否为空判断
cd C:\fin\data\test
local myfilelist: dir . files "*.xlsx"
foreach filename of local myfilelist {
import excel using `"`filename'"',clear sheet("Sheet1") firstrow
drop in 1 //以下为个人处理
tostring A, force replace usedisplayformat
gen year=real(substr(A,6,4))
bysort code year: egen m_bdindex = mean(baidu_index)
gen day= substr(A,1,5)
drop if day!= "31dec"
drop A day baidu_index
//save codeindex0.dta,replace //个人功能处理完毕
local filenm = subinstr(`"`filename'"', ".xlsx", ".dta", .)//存为dta文件
save `"`filenm'"', replace
}
//合成一个dta文件
clear
cd C:\fin\data\test
use 0_wise.dta
local myfilelist1: dir . files "*.dta"
foreach filename of local myfilelist1 {
append using `"`filename'"'
duplicates drop code year ,force //删除重复的行
}
save code_wise.dta,replace
|