Question

如何复制所有格式（颜色，数字格式，列宽，条件格式等），并可能从 Excel 工作表中冻结窗格并将其粘贴到其他工作表中，请使用 R ？

例如，如何将样式从工作表“ A”复制到该文件中的工作表“ B”和“ C”：CopyStyles.xlsx

Answer 1

您在这里：

require(XLConnect)
file.copy(from ="r-xlsx-report-example.xlsx", to= "r-xlsx-report-example3.xlsx" ) ## copy
wb <- loadWorkbook("r-xlsx-report-example3.xlsx") ## read
imena <- getSheets(wb) #sheetsname
df <-  readWorksheet(wb, 
                     sheet = 1
                     ,startRow = 3)
df$Sepal.Length[df$Sepal.Length < 6] <- "my new data"  #change

writeWorksheetToFile("r-xlsx-report-example3.xlsx",df, sheet = imena[1],styleAction = XLC$STYLE_ACTION.NONE,header=T,startRow=3)
saveWorkbook(wb,"r-xlsx-report-example3.xlsx") ## save

使用R复制Excel工作表格式

1 个答案: