r - 编辑 Excel 工作表的特定单元格

Question

我有一个 Excel 工作簿，我想使用 R 编辑/填充一些特定的单元格，而不更改任何格式。

到目前为止，我已经尝试了 XLConnect 包，它似乎可以做我正在寻找的东西，我只是没有找到办法。

我对这个问题的直截了当的方法:

wb <- loadWorkbook("file1.xls")
data1 <- readWorksheet(wb, "Sheet1", header=TRUE)

## adding a value to a particular cell:
data1[11,12] <- 3.2 

## rewriting old data:
writeWorksheet(wb, data1, "Sheet1")
saveWorkbook(wb, "new_file1.xls")

但是，这样新工作簿会丢失所有以前的格式(合并的单元格、公式等)。

有没有办法在不丢失剩余工作表的任何格式的情况下更改某些单元格中的值？

Answer 1

这是一个使用 R 自动化 Excel 的示例。

library(RDCOMClient)
xlApp <- COMCreate("Excel.Application")
wb    <- xlApp[["Workbooks"]]$Open("file.1.xls")
sheet <- wb$Worksheets("Sheet1")

# change the value of a single cell
cell  <- sheet$Cells(11,12)
cell[["Value"]] <- 3.1

# change the value of a range
range <- sheet$Range("A1:F1")
range[["Value"]] <- paste("Col",1:6,sep="-")

wb$Save()                  # save the workbook
wb$SaveAS("new.file.xls")  # save as a new workbook
xlApp$Quit()               # close Excel