合并一个文件夹中的多个excel

在一个文件夹中有多个excel文件，分别命名为“导出1”、“导出2”、“导出3”......“导出n”，每个excel都具有一样的变量名。如图，每个excel表格中第一、二行都需要删除，第三行都是变量名，下面的行是不同公司的信息。我需要删除每个表格中的第一二三行，在最上面保留一行变量名，然后对所有表格按文件名依次进行纵向合并。

我想应该可以用 (ssc install) xls2dta，将所有档案叫进 Stata，然后再一起删除你所谓的前两行。

cd "C:\Users\chen\Desktop\新建文件夹"   你的路径
ssc install nrow

forvalues i=1/n{
import excel 导出`i'.xlsx, sheet("Sheet1")
drop in 1/2
nrow
save 导出`i'.dta,replace
clear
}

use 导出1.dta,replace
forvalues i=2/n{
append using 导出`i'.dta

save zonghe.dta,replace
use zonghe.dta,replace
}

wdlbcj 发表于 2021-6-25 22:28
cd "C:\Users\chen\Desktop\新建文件夹"   你的路径
ssc install nrow

. 你好，在执行你的命令时出现这样的错误，能再帮忙看看嘛？
forvalues i == 1/n {
  2.  import excel 导出`i'.xlsx, sheet("Sheet1")
  3.  drop in 1/2
  4.  nrow
  5.  save 导出`i'.dta,replace
  6.  clear
  7.  }
invalid syntax
r(198);

end of do-file

r(198);

木牛流马0 发表于 2021-6-26 18:01
. 你好，在执行你的命令时出现这样的错误，能再帮忙看看嘛？
forvalues i == 1/n {
  2.  import excel ...

第一行 你多写了一个等号

哦哦，这个等号是出现了这样的问题后，我瞎改的，你原有的命令输入也会出现一样的错误

黃河泉 发表于 2021-6-26 19:37
我想应该可以用 (ssc install) xls2dta，将所有档案叫进 Stata，然后再一起删除你所谓的前两行。

感谢黄老师，命令很简单可以实现。具体大家可以参看https://bbs.pinggu.org/thread-3785223-1-1.html 及https://stata-club.github.io/%E6%8E%A8%E6%96%87/20170209/

木牛流马0 发表于 2021-6-26 18:57
哦哦，这个等号是出现了这样的问题后，我瞎改的，你原有的命令输入也会出现一样的错误

你好 这个命令我自己检验过应该是可以的，你可以发一下你的错误汇报截图 我看一下问题在哪里。

可以使用  回复   不然我不能及时看到消息

**如何把excel数据批量转为stata数据

1. cap prog drop sblexcel
   
2. prog define sblexcel
   
3.         version 14
   
4.         syntax [anything] [, FIRSTROW REPLACE]
   
5. 
   
6. qui{
   
7.     local a=1
   
8.     local e=1
   
9.     local files: dir "." file "*.xlsx", respectcase
   
10.     foreach file in `files' {
    
11.         cap import excel using "`file'", describe
    
12.                 if _rc!=0{
    
13.                     local e`e'="`file'"
    
14.                     local e=`e'+1
    
15.                     continue           
    
16.                 }  
    
17.         forvalues i = 1/`r(N_worksheet)' {
    
18.            
    
19.            import excel using "`file'", describe
    
20.             cap import excel using "`file'" ,   ///
    
21.             sheet(`r(worksheet_`i')')       ///
    
22.             cellrange(`r(range_`i')')      ///   
    
23.             `firstrow'  clear
    
24.             
    
25.             import excel using "`file'", describe
    
26.             local name=subinstr("`file'--`r(worksheet_`i')'",".xlsx","",.)                 
    
27.             if `r(N_worksheet)'==1 | "`r(range_2)'"==""{
    
28.                 local name=subinstr("`file'",".xlsx","",.)
    
29.             }            
    
30.             save "`name'.dta",`replace'               
    
31.             
    
32.             local j=`i'+1
    
33.             if "`r(range_`j')'"==""{
    
34.                 continue, break
    
35.             }        
    
36.         }  
    
37.         n dis "." _c     
    
38.         local a=`a'+1   
    
39.     }
    
40.    
    
41.     local files: dir "." file "*.xls", respectcase
    
42.     foreach file in `files' {
    
43.         cap import excel using "`file'", describe
    
44.                 if _rc!=0{
    
45.                     local e`e'="`file'"
    
46.                     local e=`e'+1
    
47.                     *erase "`file'"
    
48.                     continue           
    
49.                 }  
    
50.         forvalues i = 1/`r(N_worksheet)' {
    
51.             
    
52.             import excel using "`file'", describe  
    
53.             cap import excel using "`file'" ,   ///
    
54.             sheet(`r(worksheet_`i')')       ///
    
55.             cellrange(`r(range_`i')')      ///   
    
56.             `firstrow'  clear
    
57. 
    
58.             import excel using "`file'", describe
    
59.             local name=subinstr("`file'--`r(worksheet_`i')'",".xls","",.)      
    
60.             if `r(N_worksheet)'==1 | "`r(range_2)'"==""{
    
61.                 local name=subinstr("`file'",".xls","",.)
    
62.             }
    
63.             save "`name'.dta",`replace'
    
64. 
    
65.             local j=`i'+1
    
66.             if "`r(range_`j')'"==""{
    
67.                 continue, break
    
68.             }        
    
69.         }  
    
70.         n dis "." _c     
    
71.         local a=`a'+1
    
72.     }
    
73. 
    
74.     if `e'!=1{
    
75.         n dis "" _n
    
76.         n dis as err "The following `e' sets of data could not be loaded into STATA"
    
77.         forvalues i =1/`e'{
    
78.             n dis as err "`e`i''"
    
79.         }
    
80.     }
    
81. }
    
82. end

复制代码

wdlbcj 发表于 2021-6-27 21:00
你好 这个命令我自己检验过应该是可以的，你可以发一下你的错误汇报截图 我看一下问题在哪里。

可以使 ...

您好，问题已解决，可以用xls2dta命令将excel转换成stata格式然后合并，最后删除不需要的即可，感谢您的回复