使用R复制Excel工作表格式

使用R复制Excel工作表格式,r,excel,R,Excel,如何从Excel工作表中复制所有格式颜色、数字格式、列宽、条件格式等,以及可能的窗格冻结,并使用R将其粘贴到其他工作表中 例如,如何在此文件中将样式从图纸A复制到图纸B和C:给您: require(XLConnect) file.copy(from ="r-xlsx-report-example.xlsx", to= "r-xlsx-report-example3.xlsx" ) ## copy wb <- loadWorkbook("r-xlsx-report-example3.xlsx

如何从Excel工作表中复制所有格式颜色、数字格式、列宽、条件格式等,以及可能的窗格冻结,并使用R将其粘贴到其他工作表中

例如,如何在此文件中将样式从图纸A复制到图纸B和C:

给您:

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

可能openxlsx包的getStyles和replaceStyle函数就是您想要的。你能举个例子说明在这种情况下如何使用这些函数吗?几乎没有研究成果。