使用 XLConnect 将数据写入 excel 模板会出现空单元格错误

Question

我正在使用 R 包 XLConnect 将数据帧写入现有工作簿中的现有 excel 工作表。 excel 工作簿有一个原始数据工作表，我在 R 中使用 writeWorksheet() 填充它，还有另一个格式化数据工作表，它引用原始数据工作表并执行计算。但是，当我将数据写入 R 中的原始数据工作表时，格式化数据工作表不会更新并给出错误 "Formula refers to empty cell"，即使这些单元格中包含数据。我不确定此错误是由于 R 和 XLConnect 还是我的工作簿中的某些内容引起的。当我简单地将数据直接复制并粘贴到原始数据导入工作表的单元格中时，我没有收到错误消息。请看下面的例子，感谢您的帮助：

在 R 中：

library(XLConnect)

# Creating first data frame
L3 <- LETTERS[1:3]
fac <- sample(L3, 10, replace = TRUE)
(d <- data.frame(x = 1, y = 1:10, fac = fac))
df.1<-data.frame(1, 1:10, sample(L3, 10, replace = TRUE))

# Creating second data frame
L4 <- LETTERS[4:7]
fac <- sample(L4, 10, replace = TRUE)
(d <- data.frame(x = 1, y = 1:10, fac = fac))
df.2<-data.frame(1, 1:10, sample(L4, 10, replace = TRUE))

# Reading in workbook
wb      <- loadWorkbook(xlname)
wbnames <- as.vector(getSheets(wb)) # where wbnames is of length two
[1] "Raw Data Import"  [2] "Formatted Data"

# Writing df.1 and df.2 to specific locations in Raw Data Import worksheet
writeWorksheet(wb,df.1,sheet=wbnames[1],startRow=3,header=F)
writeWorksheet(wb,df.2,sheet=wbnames[1],startRow=15,header=F)

# Saving workbook
saveWorkbook(wb)

Answer 1

我没有成功，直到我为每个 sheet 添加了一个 createSheet 操作。如果您想使用现有的 sheet 信息，请查看 getSheets 和 ?getSheetPos。

> wb      <- loadWorkbook('~/test.xls')
> wbnames <- as.vector(getSheets(wb)) 
> createSheet(wb, "test1"); createSheet(wb, 'test2')
> writeWorksheet(wb,df.1,sheet='test1',startRow=3,header=F)
> writeWorksheet(wb,df.2,sheet='test2',startRow=15,header=F)
> saveWorkbook(wb,'~/test.xls')

当我稍后运行你的代码时，我看到两个数据帧都写入了 Sheet1。如果我插入一个 saveWorkbook 操作，我会在不同的 sheets:

上获得数据

> writeWorksheet(wb,df.1,sheet='Sheet1',startRow=3,header=F); saveWorkbook(wb,'~/test.xls')
> writeWorksheet(wb,df.2,sheet='Sheet2',startRow=15,header=F)
> saveWorkbook(wb,'~/test.xls')

XLConnect 是一种准商业产品，我认为他们不鼓励向 SO 提问，因此您可能需要联系 Mirai Solutions, GMBH。

Answer 2

您可以使用 XLConnect 函数 setForceFormulaRecalculation()。这会强制 Excel 在打开作品时重新计算公式值 sheet。第二个参数允许您指定一个 sheet 来重新计算。如果设置为“*”，将重新计算工作簿中的所有公式。

wb      <- loadWorkbook(xlname)
wbnames <- as.vector(getSheets(wb))
writeWorksheet(wb,df.1,sheet=wbnames[1],startRow=3,header=F)
writeWorksheet(wb,df.2,sheet=wbnames[1],startRow=15,header=F)
setForceFormulaRecalculation(wb,"*",TRUE)
saveWorkbook(wb,'~/test.xls')

使用 XLConnect 将数据写入 excel 模板会出现空单元格错误

Using XLConnect to write data to excel template gives empty cell error

excel

r

xlconnect