我试图借助R代码覆盖包含表格的现有excel工作表。
我的excel看起来像: Sheet1是数据表 sheet2是数据透视表1 sheet3是数据透视表2
.xlsx文件(不应更改)
我阅读了表格并进行了一些数据修改,现在我想覆盖同一张纸。
它也有数据透视表。因此,在覆盖时,我不希望数据透视表消失
File_read <- read.xlsx("tmp_pvt_copy.xlsx","test")
File_read[3,2] = 45
colnames(File_read)
File_read = rbind(File_read,data.frame("Sepal.Length" = 10.0 ,
"Sepal.Width" = 6.0 ,
"Petal.Length" = 1.2 ,
"Petal.Width" = 3.4 ,
"Species" = "Test_3"))
write.table(File_read,file = "tmp_pvt_copy.xlsx")
install.packages("XLConnect")
library(XLConnect)
wb <- loadWorkbook("tmp_pvt_copy.xlsx", create=TRUE)
output <- as.table(output)
writeWorksheet(wb, output, sheet="Test")
saveWorkbook(wb)
我只希望Excel表格被覆盖