0

我正在尝试将公式从 R 数据帧写入 XLSX 文件。我想使用单元格引用在另一个工作表中引用数据。一个工作表应该是一个“数据库”，然后另一个工作表应该具有引用“数据库”工作表中数据的“公式”。

R代码：

require(openxlsx)

# create workbook ---------------------------------------------------------

wb <- createWorkbook()

# add worksheets ----------------------------------------------------------

addWorksheet(wb, "database")
addWorksheet(wb, "database space")
addWorksheet(wb, "reference")

# make database -----------------------------------------------------------

df1 <- data.frame(
    a = 1,
    b = 2,
    formula_1 = "A2 + B2"
)

## change class to formula
class(df1$formula_1) <- c(class(df1$formula_1), "formula")

# prepare formula ---------------------------------------------------------

df2 <- data.frame(
    formula_2 = "$database.A2",
    formula_3 = "$'database space'.B2"
)

# change class to formula
class(df2$formula_2) <- c(class(df2$formula_2), "formula")
class(df2$formula_3) <- c(class(df2$formula_3), "formula")

# write to XLSX file ------------------------------------------------------

writeData(wb, sheet = "database", x = df1)
writeData(wb, sheet = "database space", x = df1)
writeData(wb, sheet = "reference", x = df2)

# open XLSX file ----------------------------------------------------------

openXL(wb)

添加公式的常用方法有效。在 openend XLSX 文件中，这在工作表的单元格 C3database和database space. 但是，当打开工作表时formula，我的问题就出现了（见截图 1）。单元格 A2 和 B2 都显示#NAME?而不是其他工作表的值。

截图 1

但是，当我手动添加单元格引用时，它可以工作（参见屏幕截图 2）。

截图 2

openxlsx版本

> packageVersion("openxlsx")
[1] ‘4.0.17’

我怎么解决这个问题？

4

1 回答 1

0

这里的问题是传递给df2. 该问题的解决方案是删除$并将 替换.为!。

df2用以下作品替换上面的代码：

df2 <- data.frame(
    formula_2 = "database!A2",
    formula_3 = "'database space'!B2"
)

字符串现在被评估为公式并正确引用其他工作表中的单元格。我通过研究XLConnectR 包找到了解决方案，其中帮助文件中的示例setCellFormula-methods包含一个公式作为对单独工作表的引用。

于 2018-05-04T10:17:10.717 回答