Kopieren Sie alle Blatt einer Arbeitsmappe in einer anderen Datei

Question

Sie mag würde die folgenden Schritte aus, um alle meine .xlsx tun:

1. Kopieren erstes Blatt

2. das kopierte Blatt in einer anderen Datei einfügen

3. Benennen sie die eingefügten Blatt wie der Name der Datei

   1. Wiederholen sie Schritt 1 und kopieren sie Blatt in der gleichen Datei von ste p 2 Wiederholen Sie Schritt 3

Kann ich das mit R Schritte? meine .xlsx contein img und die Zellen sind formatiert.

DANK

Answer 1

Ihre Antwort liegt das xlsx Paket in Verwendung.

Dieser Link gibt eine gute Anleitung

http://www.sthda.com/english/wiki/r-xlsx-package-a-quick-start-guide-to-manipulate-excel-files-in-r

Answer 2

Mit dem gdata Paket (das Perl erfordert). Die Dateien werden hier in .csv -Dateien geschrieben. Von gdata verwenden wir die Funktion sheetNames, um alle Blattnamen zu erhalten und sie mit read.xls zu extrahieren. Die Dateien werden im Arbeitsverzeichnis erstellt.

file <- "Book1.xlsx" ## File to extract from 

# install.packages("gdata") 
library(gdata) 
sheetnames <- sheetNames(file) 

sheets <- lapply(setNames(sheetnames,sheetnames),read.xls,xls = file) 

for(x in sheetnames){ 
    write.csv(sheets[[x]],paste0(x,".csv"),row.names = FALSE) 
} 

Answer 3

Verwenden Sie das XLConnect Paket (das Java benötigt). Diese Antwort ist motiviert by the method in another answer on this site.

file <- "Book1.xlsx" 

# install.packages("XLConnect") 
library(XLConnect) 

wb <- loadWorkbook(file)  
sheets <- readWorksheet(wb,getSheets(wb)) 

for(x in getSheets(wb)){ 
    path <- paste0(x,".xlsx") 
    out <- loadWorkbook(path,create = TRUE) 
    createSheet(out,x) 
    writeWorksheet(out,sheets[[x]],x) 
    saveWorkbook(out) 
}