我想导出一个大表（类似于下图所示）到Excel中的字符串部分突出显示在几列。
目前，我使用datatable显示表列，使用rowCallback函数突出显示子字符串。然后将表导出到Excel，我手动将行从显示的datatable复制到Excel工作表。
datatable
rowCallback
我无法使用openxlsx或其他库完成这个特殊的挑战。请告诉我如何克服这个挑战！
openxlsx
q8l4jmvw1#
我已经能够用下面的代码改变一些特定字符的颜色。这种方法只适用于Windows。
library(RDOMClient) path_Excel_File <- "D:/empty_Excel_File.xlsx" xlApp <- COMCreate("Excel.Application") xlApp[["Visible"]] <- TRUE xlWbk <- xlApp$Workbooks()$Open(path_Excel_File) Sheets <- xlWbk$Sheets() cell1 <- Sheets[[1]]$Cells(1,1) cell1[["Value"]] <- "A" cell2 <- Sheets[[1]]$Cells(2,1) cell2[["Value"]] <- "B" cell3 <- Sheets[[1]]$Cells(1,2) cell3[["Value"]] <- paste0(LETTERS, collapse = "") cell4 <- Sheets[[1]]$Cells(2,2) cell4[["Value"]] <- paste0(LETTERS, collapse = "") obj_Chars_11_To_14 <- Sheets[[1]]$Range("B2")$Characters(10, 4)$Font() obj_Chars_11_To_14[["ColorIndex"]] <- 8
有关ColorIndex值，请参见https://www.automateexcel.com/excel-formatting/color-reference-for-color-index/。
1条答案
按热度按时间q8l4jmvw1#
我已经能够用下面的代码改变一些特定字符的颜色。这种方法只适用于Windows。
有关ColorIndex值，请参见https://www.automateexcel.com/excel-formatting/color-reference-for-color-index/。