有没有办法能匹配对外投资企业名录与中国工业企业数据库的数据

木易斑芝 发表于 2018-9-24 11:59
你好，你有到那一年的企业名录？能分享一下吗？论坛币和现金都可以

到2018年8月31日的

liu980303562 发表于 2018-7-3 17:15
QQ980303562，企业名录有，求分享工业企业数据，匹配方法有些头绪

最近有人问我关于名录的处理，这里给出自己写的一个小程序，希望有用，另外，有工业企业数据库的，求分享。

1. cd D:\stata14\ado\mydata
   
2. import excel "D:\stata14\ado\mydata\List_of_overseas.xlsx", ///
   
3. sheet("sheet1") firstrow clear
   
4. compress
   
5. foreach x of varlist * {               //首行做标签
   
6.               local vlabel = `x'[1]
   
7.               label var `x' "`vlabel'"
   
8. }
   
9. drop in 1
   
10. split date,parse(/) destring ignore("/")
    
11. drop date2 date1
    
12. drop if missing(date3)
    
13. egen date4=min(date3),by(name)
    
14. duplicates drop name, force
    
15. merge m:m name
    
16. 
    
17. 
    
18. save List_of_overseas.dta,replace
    
19. 
    
20. use List_of_overseas.dta,clear
    
21.   gen v1982=0
    
22. forvalues i=1983/2015{       //处理成面板
    
23. gen date`i'=`i'-date3
    
24. gen F_firm_num`i' = cond(date`i'>0, 1, 0, .)
    
25. egen value`i'=total(F_firm_num`i'),by(name)
    
26. egen v`i'=max(value`i'),by(name)
    
27. drop date`i'
    
28. drop F_firm_num`i'
    
29. drop value`i'
    
30. }
    
31. sort name
    
32. duplicates drop name, force   //删去相同的公司名称
    
33.    encode name,gen(id)
    
34. sum id
    
35. replace name = subinstr(name, "?", "", .)
    
36. replace name = subinstr(name, ",", "", .)
    
37. replace name = subinstr(name, "i", "", .)
    
38. replace name = subinstr(name, " ", "", .)
    
39. replace name = subinstr(name, "1", "", .)
    
40. replace name = subinstr(name, "。", "", .)
    
41.   
    
42. 
    
43. drop date3
    
44. save overseas_firm.dta,replace
    
45. reshape long v ,i(name)j(year)
    
46. xtset id year
    
47. bys id:gen num=v-L.v
    
48. drop if num==.
    
49. label var year "年份"
    
50. label var num "子公司数目"
    
51. keep name year num
    
52. sort name year num
    
53. save overseas_list.dta,replace
    
54. /*export excel name year num using ///
    
55. "D:\stata14\ado\mydata\境外投资企业名录面板.xlsx", ///
    
56. firstrow(varlabels)*/

复制代码

liu980303562 发表于 2018-12-19 19:21
最近有人问我关于名录的处理，这里给出自己写的一个小程序，希望有用，另外，有工业企业数据库的，求分享 ...

我有数据库，加我扣扣850697355，可以分享给你

请问您是怎么匹配的呢，方便向您请教吗

sweetydr 发表于 2017-4-21 07:44
已匹配

请问您怎么匹配的？

请问大家有没有匹配成功的 继续匹配~~~