使用openxlsx将R数据框写入XLSX并实现跨工作表单元格引用

我来帮你完善并整理这段实现跨工作表数据引用的代码，用openxlsx包就能轻松实现你的需求——一个存数据的"database"工作表，一个用公式调用数据的"formula"工作表。

完整代码示例 #

require(openxlsx) 

# 创建工作簿
wb <- createWorkbook() 

# 添加两个目标工作表
addWorksheet(wb, sheetName = "database")
addWorksheet(wb, sheetName = "formula")

# 1. 往database工作表写入数据
# 这里用示例数据框，你可以替换成自己的真实数据
db_data <- data.frame(
  序号 = 1:5,
  数值 = c(15, 25, 35, 45, 55)
)
# 将数据写入database表的A1起始位置
writeData(wb, sheet = "database", x = db_data, startCol = 1, startRow = 1)

# 2. 在formula工作表设置跨表引用公式
# 单个单元格引用：比如在formula表的A1单元格调用database表的B2单元格
writeFormula(wb, sheet = "formula", x = "=database!B2", startCol = 1, startRow = 1)

# 批量引用：比如在formula表的A2:A6批量引用database表的B2:B6
batch_formulas <- paste0("=database!B", 2:6)
writeFormula(wb, sheet = "formula", x = batch_formulas, startCol = 1, startRow = 2)

# 3. 保存工作簿到本地
saveWorkbook(wb, file = "跨表引用示例.xlsx", overwrite = TRUE)

关键细节说明 #

• 如果你的工作表名称包含空格或者特殊字符，公式里需要用单引号包裹工作表名，比如='Data Base'!B2
• writeFormula函数支持批量写入公式，非常适合批量引用数据库表的整列/整行数据
• 建议确保你的openxlsx包是最新版本，避免出现公式解析的兼容性问题

内容的提问来源于stack exchange，提问作者larnsce