R write.xlsx具有覆盖

编程问答 2022-07-09

问题描述

如果我有此工作表，我想覆盖Excel文件，可以更改此功能。我尝试在该库中使用openxlsx，但是在使用第一张表后为空。如果我覆盖了表或更新了数据而没有清除我用于写数据的第一张表，可以重写代码

 library(dplyr)
    library(xlsx)
    library(openxlsx)
    require(readxl)
    fname <- file.choose()
    basetable<- read_xlsx(fname)
    readxl:::xlsx_sheets("file.xlsx")
    result_table<-basetable %>% 
      group_by(`Industry`,`Mark`,`Dens.`,`Format`,`Cons`,`Date`,`Company`)%>% 
      summarise(`Sum` = sum(`Weight`),`Count`=sum(`Cons`==0))
    if ("List 5" %in% openxlsx::getSheetNames("file.xlsx")) {
      wb <- loadWorkbook("file.xlsx")
      writeData(wb,sheet = "List 5",result_table,colNames = F)
      saveWorkbook(wb,"file.xlsx",overwrite = T)
    } else {
      xlsx::write.xlsx(as.data.frame(result_table),'file.xlsx',sheetName="List 5",append=TRUE,showNA = FALSE)
    }

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

excelexceloverwriterrxlsx