setwd("D:/Consolidate/Final Split")
a <- list.files(path = ".", pattern = ".*$")
b <- sprintf("%.1d.xlsx", seq(a))
file.rename(a, b)
library(readxl)
keep=c("Approval Status","Branch Name","Branch ID","Name of Officer","Designation of Officer","ID of Officer")
data_remove=function(x){x[x$X__1 %in% keep,]}
myfiles = sapply(list.files(pattern="*.xlsx"), function(x) data.frame(read_excel(x, col_names = FALSE)))
new_values=lapply(myfiles,data_remove)
final1=data.frame(Title=keep)
unformatted_data=lapply(new_values,function(x) nrow(x))
d <- data.frame(unformatted_data)
d <- t(d)
write.csv(d, "chk.csv")
#Change counter to number of files
for (i in 1:2673){final1=cbind(final1,new_values[[i]][,2:length(new_values[[i]])])}
write.csv(t(final1),"Final1.csv",row.names = F)
getwd()
Привет всем, у меня есть около 2500 нечетных файлов Excel в форматах xls и xlsx с небольшим изменением форматирования их данных.Я использую этот код, чтобы сначала переименовать все файлы Excel, присутствующие в папке, а затем я хочу извлечь данные из определенных строк из всех моих файлов Excel и перенести их в один лист Excel.Но я получаю предупреждение под названием:
Новые имена: * -> `..1`
* -> ..2 * -> `..3`
* -> ..4 * -> `..5`
* ... and 1 more
New names:
* -> ..1 * -> `..2`
* ->..3 * -> `..4`
* -> ..5 * ... и еще 10 новых имен: * -> `..1`
* -> ..2 * -> `..3`
* -> ..4 * `` -> ..5 "
И я не могу извлечь отдельные данные.
Мои данные на каждом листе выглядят примерно так: Данные Excel
Я хочу извлечьстроки: «Статус одобрения, название филиала, идентификатор филиала, название офиса, назначение сотрудника, идентификатор сотрудника» и поместите их в виде столбцов и их значений в строках. Окончательный результат будет выглядеть следующим образом: Требуемый результат