#单个文件的操作（把表格中某个元素提取，作为新的一列添加到原表格中）
project1<- read_excel(D:\1.xls,skip = 2)                              #提取表格中数据部分
N<- read_excel(D:\1.xls,col_names = FALSE)               
name=N[1,1]                                                                       #提取元素name
project1$"姓名"=name                                                        #把name作为新一列添加到表格projcet1
rm(N,name0)

有30个文件，文件名是1.xls, 2.xls, 3.xls......
要这些文件都执行上面的操作，生成数据框project1,project2,project3....，请问这个循环该怎么写呢？