如何解决如何在Excel工作簿中导入多个工作表
我想从一个Excel文件导入八张纸并将它们另存为单独的对象。出于这篇文章的目的,让我们调用excel文件Test.xlsx和工作表Q1,HH5,L9,P9,TOO4,GG1,JQ1,HJ0,BM6,VT8。请注意,所有工作表都有不同的命名约定。
我非常习惯于SAS,您可以在其中构建宏并动态更改变量以遍历工作表名称。我应该如何在R中解决这个问题?
谢谢
解决方法
每张纸都保存为data.frame(因此也保存为单独的对象):
sheet_names <-c("Q1","HH5","L9","P9","TOO4","GG1","JQ1","HJ0","BM6","VT8")
for (i in 1:(length(sheet_names))) {
excel_sheet <- read_excel("Test.xlsx",sheet = paste0(sheet_names[i]))
assign(paste0(sheet_names[i]),excel_sheet)
rm(excel_sheet)
}
让我们知道是否有帮助。
,尝试一下。
library("readxl")
library("openxlsx")
setwd("C:\\...")
filenames <- list.files()
data <- list()
for(i in 1:length(filenames)){
data[[i]] <- read.xlsx(filenames[i])
}
这应该可以解决您的问题。在文件名功能中,您可以使用recursive = T
打开te目录上的文件夹内的文件,和/或pattern = ".xlsx"
仅打开目录下的.xlsx文件。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。