Astuces Excel
  1. Astuces Excel
  3. Comment puis-je écrire R pour get des données de chaque feuille de travail de tous les classurs
Intereting Posts
Modifiez le button LinkedCell de rotation à la sélection actuelle? Vérification des valeurs laissées par une cellule dans une rangée particulière Python – Obtenir max ou min de deux colonnes en fonction de la valeur dans une autre colonne? Comment faire reference à la colonne nommée dans Excel VBA Pourquoi l'événement SelectionChange au niveau de l'application ne fonctionne-t-il pas? supprimer toutes les autres colonnes Excel, Déterminer où datatables prennent une plongée J'essaie de prendre la consortingbution d'une colonne Excel à une list, mais dans datatables de la colonne, la valeur "T500 et 7500C" Menu contextuel personnalisé non visible dans Excel (VSTO C #) countr les valeurs de text uniques en fonction d'une autre colonne entre les critères de date excel – supprime les lignes où existe l'input en double dans le champ Vous voulez remplir automatiquement les colonnes dans Excel afin que le numéro de colonne saute 2 à chaque fois r1c1 et Excel forment une erreur de rendement Recharger datatables sur le changement de feuille de calcul C # vsto excel plugin plusieurs windows

Comment puis-je écrire R pour get des données de chaque feuille de travail de tous les classurs

J'ai travaillé pour get une donnée de chaque feuille de chaque file dans le directory de travail. Voici mon code. Je pense que j'ai réussi à charger toutes les feuilles de travail dans tous les classurs dans R, maintenant il s'agit de la partie d'écrire un data.frame et d'exporter vers csv.

Il s'est avéré que seules datatables dans toutes les feuilles du LAST WORKBOOK R ont été chargées ont été écrites en .csv, pas toutes les feuilles dans CHAQUE classur, mais uniquement le classur DERNIÈRE. Le problème doit passer de la partie où je suis dans DF [ws,] <-c (shts1 [ws], P). Mais dans la mesure où j'ai vérifié, f <- length (shts1) devrait être la sum du nombre de feuilles de travail de chaque workboooks, mais f n'est que le nombre de feuilles du dernier classur dans le dossier.

Quelqu'un peut-il vous aider?

Je vous remercie 

library(XLConnect) setwd("D:\\R test\\") files <- (Sys.glob("*.xls")) #for (i in 1:length(filenames)){ for (i in 1:length(files)){ wb1 <- loadWorkbook(file.path(files[i],sep="")) shts1 <- getSheets(wb1) #shts1 f<- length(shts1) DF <- data.frame(txt=rep("", f),num=rep(NA, f),ssortingngsAsFactors=FALSE) for (ws in 1:f) { dat <- readWorksheet(wb1, ws) B<-as.data.frame.masortingx(dat) P<-B[which(apply(B, 1, function(x) any(grepl("P", x)))),which(apply(B, 2, function(x) any(grepl("P", x))))+4] DF[ws, ] <-c(shts1[ws],P) } } write.csv(DF, "prices.csv", row.names=FALSE)