Question

openxlsx::write.xlsx函数将覆盖电子表格，而不是添加另一个标签。

我尝试遵循Stackoverflow的某些方向，但是没有成功。

dt.escrita <- format(Sys.time(), '%Y%m%d%H%M%S')

write.xlsx( tbl.messages
           ,file = paste('.\\2_Datasets\\messages_',dt.escrita,'.xlsx')
           ,sheetName = format(Sys.time(), '%d-%m-%y')
           ,append = FALSE)

write.xlsx( tbl.dic.dados
            ,file = paste('.\\2_Datasets\\messages_',dt.escrita,'.xlsx')
            ,sheetName = 'Dicionario_Dados'
            ,append = TRUE)

一个电子表格，其中包含两个标签：30-07-19和Dicionario_Dados。

Answer 1

不确定我是否理解正确，是否要创建一个带有两个标签/工作表的xlsx文件？然后，我通常首先创建工作表，然后分别写入每个工作表（这与通过追加将数据添加到同一工作表不同）。

library("openxlsx")
mtcars1 <- mtcars %>% filter(cyl == 4)
mtcars2 <- mtcars %>% filter(cyl == 6)

wb <- createWorkbook()
addWorksheet(wb, "mtcars1")
addWorksheet(wb, "mtcars2")

writeData(wb, "mtcars1", mtcars1, startRow = 1, startCol = 1)
writeData(wb, "mtcars2", mtcars2, startRow = 1, startCol = 1)

saveWorkbook(wb, file = "excel_test.xlsx", overwrite = TRUE)

更新：只是想知道为什么我从来没有在append（这是我用于读取/写入excel的标准程序包）中使用openxlsx参数的原因。似乎三个函数write.xlsx()，writeData()，writeDataTable()都没有这样的论点。至少它不在文档中。

使用未知参数调用该函数时似乎不会引发错误，例如下面的调用不存在somearg，但不会返回错误。

write.xlsx(mtcars2,
           file = "excel_test.xlsx",
           sheetName = "mtcars1",
           somearg = TRUE)

更新2 要将数据追加到现有表中，您可以读取现有工作表的行数，添加+1并将此值用作startRow：

wb2 <- loadWorkbook(file = "excel_test.xlsx")

writeData(wb2,
          "mtcars1",
          mtcars2,
          colNames = FALSE,
          startRow = ncol(readWorkbook("excel_test.xlsx"))+1)

saveWorkbook(wb2, file = "excel_test.xlsx", overwrite = TRUE)

Answer 2

将不同的数据框写入不同的工作表。

library(xlsx)
write.xlsx(dataframe1, file="filename.xlsx", sheetName="sheet1")
write.xlsx(dataframe2, file="filename.xlsx", sheetName="sheet2", append=TRUE)

Answer 3

您可以简单地使用数据框的命名列表：

library(openxlsx)

df_lst <- setNames(list(tbl.messages, tbl.dic.dados), as.list(c(format(Sys.time(), '%d-%m-%y'), 'Dicionario_Dados')))

write.xlsx( df_lst, file = paste0('.\\2_Datasets\\messages_',dt.escrita,'.xlsx') )

openxlsx :: write.xlsx覆盖现有工作表，而不是追加

3 个答案: