如何在R中使用超链接打开工作表答案

【问题标题】：how to open sheet using hyperlink in R如何在R中使用超链接打开工作表
【发布时间】：2016-09-13 03:05:20
【问题描述】：

我在 Excel 文件中有销售数据，必须在 sheet3 中打开。我尝试了下面的代码，但无法提供指向 sheet3 的超链接。

library(xlsx)
wb <- createWorkbook()
sheet1 <- createSheet(wb, "Sheet1")
rows <- createRow(sheet1)
cells <- createCell(rows)
links <- c("[D://r datasets/sales data.xlsx]sheet3!")
names(links) <- c("link1")
for (row in 1:length(links)) {
setCellValue(cells[[row,1]], names(links)[row])
addHyperlink(cells[[row,1]], links[row])
}
saveWorkbook(wb, "hyperlinks to file.xlsx")
shell.exec("hyperlinks to file.xlsx")

任何人都可以在这方面提供帮助吗？

【问题讨论】：

也问here

标签： r r-xlsx

【解决方案1】：

你可以的

library(xlsx) 

wb1 <- createWorkbook() 
createSheet(wb1, "Sheet1")
createSheet(wb1, "Sheet2")
createSheet(wb1, "Sheet3")
saveWorkbook(wb1, tf1 <- tempfile(fileext = ".xlsx"))

wb2 <- createWorkbook() 
sheet2 <- createSheet(wb2, "Sheet2")
rows <- createRow(sheet2) 
cells <- createCell(rows) 
setCellValue(cells[[1,1]], "To Other File") 
addHyperlink(cells[[1,1]],sprintf("file:///%s#%s!%s", normalizePath(tf1, "/"), names(getSheets(wb1))[2], "B2"), "FILE") 
saveWorkbook(wb2, tf2 <- tempfile(fileext = ".xlsx"))
shell.exec(tf2)

【讨论】：