---

前言

在工作當中，為了方便統計單項資料，經常會遇上同一格式的幾百份資料項需要提取到同一個表格的情況，博主非計算機專業，R語言程式碼不一定規範，但是經驗證能使用，故記錄下來

---

步驟

程式碼如下：

##本地執行環境：R for windows 3.6.1

#安裝並載入匯入資料的包
install.packages("readxl")
library(readxl)
#安裝並載入匯出資料的包
install.packages("openxlsx")
library(openxlsx)

setwd("C:\\Users\\0\\Desktop\\資料") #設定讀取資料路徑
path<-"data" #待提取資料所在資料夾
 
mat = matrix(data=c('專案','收款單位','製表時間','金額'), nrow=1) #提取項名稱

files <- list.files(path, pattern = "*.xls$", full.names = TRUE)#讀取xls檔名 

for(i in 1:length(files)) {
   #讀取Excel檔案並新增到矩陣當中
   dat<-read_xls(files[[i]],sheet = 1,col_names = F)  
   mat <-rbind(mat,c(dat[4,2],dat[5,2],dat[32,4],dat[10,2]))#dat中的數字為需提取項在表格中的對應的行和列

}
#匯出資料至彙總表格當中
data0 = write.xlsx(mat,'彙總.xlsx',colNames =F)

總結

以上就是使用r語言批量提取excel資料的內容，本文待提取的excel檔案是xls格式，xlsx等其它檔案在匯入資料時會有一點點小差別，其它部分基本一樣。