读写带有注释的excel文件

Question

问:我正在寻找一种在阅读和操作后保留 Excel 文件注释的方法。

0.我的excel文件:(不能分享给你!)



1. 我想这样读: (将 excel 中的 col 注释作为 R 中的 col 注释)

(使用任何库。openxlsx 最好)

df<- data.frame(a=1:3,b=4:6,c=7:9)
comment(df$a) <- "Random comment" #is there a better practice to preserve the excel comment?

2. 随机操作数据:

df[2:3] <- df[2:3] * 2
df$d    <- "funny"

3. 保存数据 (它应该看起来像这样:)


编辑:

library(openxlsx)

wb <- loadWorkbook("commented.xlsx")
df <- readWorkbook(wb)

df[2:3] <- df[2:3] * 2
df$d    <- "funny"
df <- rev(df)
df <- df[order(df$a,decreasing = T),]

writeData(wb, 1, df)
saveWorkbook(wb, "modified.xlsx")

到目前为止，一个很棒的解决方案!

正如这个小例子所见，评论保持静止。

I̶ ̶g̶e̶t̶ ̶a̶n̶ ̶a̶d̶d̶i̶t̶i̶o̶n̶a̶l̶ ̶e̶m̶p̶t̶y̶ ̶"̶c̶o̶m̶m̶e̶n̶t̶ ̶p̶o̶p̶ ̶u̶p̶ ̶w̶i̶n̶d̶o̶w̶"̶ ̶i̶n̶ ̶m̶y̶ ̶r̶e̶s̶u̶l̶t̶i̶n̶g̶ ̶f̶i̶l̶e̶.̶ ̶I̶s̶ ̶i̶t̶ ̶j̶u̶s̶t̶ ̶m̶e̶?̶ (workaround available!)

Answer 1

您可以使用 openxlsx : 使用 loadWorkbook()读入原始文件，修改你想要的数据，最后得到saveWorkbook() .评论将被保留:

library(openxlsx)

wb <- loadWorkbook("commented.xlsx")
df <- readWorkbook(wb)

df[2:3] <- df[2:3] * 2
df$d    <- "funny"

writeData(wb, 1, df)
saveWorkbook(wb, "modified.xlsx")

unlink(c("commented.xlsx", "modified.xlsx"))

样本数据 :

library(openxlsx)

wb <- createWorkbook("unknown")
addWorksheet(wb, "Sheet 1")

df <- data.frame(a = 1:3, b = 4:6, c = 7:9)
writeData(wb, 1, df)

comment <- createComment("Random comment")
writeComment(wb, 1, 1, 1, comment)

saveWorkbook(wb, "commented.xlsx")