如何在保留R格式的同时从XLSX文件中删除数据

我有3个xlsx文件，每个7张。 每天早上，我必须删除每张纸的内容，以准备导入新的数据。

我想使用R自动化进程。我可以用Excelmacros来做到这一点，但R脚本是我想要的（这样我不需要等待更长的时间，因为启用macros的文件更慢）。

我只想在保留表单名称的同时获得空白表格，并且所有格式（我已将所有单元格格式化为文本，并且单元格具有特定的宽度）。 使用openxlsx包的解决scheme更受赞赏。

编辑：

纸张包含大约15列和最多200行。 还是非vector化的解决scheme有点慢。

Answer 1

这看起来像是一个黑客，但你可以简单地写一个空string到正在使用的每个单元格，然后保存生成的工作簿。

 library(openxlsx) wb = loadWorkbook("Test.xlsx") for(ss in 1:length(wb$worksheets)) { Rows = wb$worksheets[[ss]]$sheet_data$rows Cols = wb$worksheets[[ss]]$sheet_data$cols for(i in 1:length(Rows)) { writeData(wb,ss,"", startCol = Cols[i], startRow = Rows[i]) } } saveWorkbook(wb, "Test2.xlsx", overwrite = TRUE) 

但是，为什么您不能只将空白的电子表格作为模板，然后在每次需要使用时复制它？