R-XLSX : Add one value to an existing excel table

Question

我有一个非常直接的问题，我认为这是相当标准的。不幸的是，我在找到正确的语法来解决它时遇到了一些困难。我只想将数据(此处:一个简单的整数)写入现有的 Excel 表。

我发现，一个好方法是使用包“xlsx”。

require(xlsx)      # Load the xlsx package

接下来我必须加载文件，并加载所有工作表。

wb <- loadWorkbook("test.excelfile.xls")    # Load the xls file
sheets <- getSheets(wb)                     # load all sheet objects

然后我输入值。这些是产生错误的行。

addDataFrame(data.frame(123), sheets[1])    # Error in addDataFrame(data.frame(123), sheets[1]) :   attempt to apply non-function
addDataFrame(123, sheets[1])                # alternative try, same error

最后我保存工作簿。

saveWorkbook(wb, "test.excelfile.xls")   # not checked yet because error occurs in line above

对我来说重要的是，已经存在的 xls 文件不会被破坏。我想保留所有工作表、VBA 宏和表单元素。仅应从 R 内部更改某些单元格。

非常感谢您的帮助，

马蒂亚斯

Answer 1

我终于做到了我一直在寻找的事情。我在 google 上搜索了更多“Excel 连接工具”(请参阅​​ Carl Witthoft 的推荐)，发现 XLConnect 是一个很好用的软件包。

以下命令将一个简单的数字写入一个单元格。它们还完好无损地保留了 VBA 宏。

require(XLConnect)

# Load workbook; create if not existing
wb <- loadWorkbook("MC_Auswertung.xls", create = TRUE)

# write to the workbook
writeWorksheet(wb, 750, sheet="Auswertung",   # write '750' to sheet 'Auswertung' in workbook 'wb' 
           startRow=8, startCol=4,            # specify the cell to write to
           header=FALSE)                      # do not write a header row

# Save workbook
saveWorkbook(wb)

只有一件事让我印象深刻。在操作之前，xls 文件有 32.953 字节。经过上述操作后，它只有 28.958 字节。因此大量“数据”消失了。我不知道发生了什么？细胞内容物仍然存在。图表、背景和边框样式也是如此，...

期待您的命令;-)