rassembler des fichiers excel en un seul fichier excel

Version imprimable

01/04/2019, 20h04
stephane.nguessan

rassembler des fichiers excel en un seul fichier excel

Bonjour a Tous,

jai des fichiers ecxel, d'une feuille de calcul excel chacun, je voudrais rassembler ces fichiers dans un nouveau classeur excel (les fichiers excel deviendront des feuilles de calcul excel dans ce nouveau classeur). comment puis le faire avec R ?

merci d'avance

bonjour , tu peux faire comme ça

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
library(dplyr)
library(purrr) 
library(readxl) 
library(openxlsx) 
 
## on suppose que tous les fichiers xl sont dans 1 dossier , il n'y a que des fichiers xl et le dossier est le répertoire courant
liste_xl <- dir("dossier")  
 
## fonction qui crée une nouvelle feuille  dans l'objet wx et ajoute les données ( x la feuille, y le fichier excel , source des données à intégrer dans la nouvelle feuille)
 
ajouter <-function(x,y,wx){
 addWorksheet(wx,x) 
  writeData(wx,x,read_excel(y))
}
 
wx <- createWorkbook() ## création du fichier final xlsx
 
## fonction walk2 (voir doc du package purrr)
## on crée les feuilles et on les remplit
## premier argument nombres de 1 jusau'au  nombre de fichiers excel de départ , servira pour nommer les feuilles
## deuxième argument liste des fichiers excel
## troisième argument la fonction 
## quatrième argument le fichier final 
## la fonction parcourt les 2 premiers arguments et les appliquent à la fonction ajouter, wx étant identique
 
walk2(1:length(liste_xl),liste_xl,ajouter,wx = wx)
 
saveWorkbook(wx,'fichier_final.xlsx') ## enregistrement du fichier final

un peu mieux

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
library(stringr)
#...
wx <- createWorkbook()
## les feuilles ajoutées auront pour nom le nom du fichier moins l'extension (attention le nom du fichier ne doit pas excéder une trentaine de caractères)
ajouter <-function(x,wx){
  feuille=str_remove(x,"\\.[^\\.]+$")
  addWorksheet(wx,feuille) 
  writeData(wx,feuille,read_excel(x))
}
## maintenant on utilise la  fonction walk car il n'y a plus qu'une liste à parcourir
  walk(liste_xl,ajouter,wx = wx)
  saveWorkbook(wx,'fichier_final2.xlsx')