从 R 锁定 Excel 文件中的特定单元格,同时保留格式
Lock specific cells in an Excel file from R while preserving formatting
我正在尝试锁定一系列 Excel 文件中的单元格块,保护每个文件,并将它们保存在它们的原始位置。我让代码以各种方式工作,除了锁定列会去除所有格式的单元格。我无法在 xlsx 包中手动重新创建格式,因为每个文件都略有不同。
我知道如何在不使用 XLConnect 格式化的情况下将数据输出到 Excel,但我无法让 XLConnect 锁定 cells/protect 工作簿。所以我要么寻求使用 XLConnect 锁定单元格的帮助,要么寻求帮助使用 xlsx 锁定单元格而不覆盖格式。
这是我当前的代码(使用 xlsx 包):
wb <- loadWorkbook(file.path)
sheets <- getSheets(wb)
sh <- sheets[[1]]
lock <- CellStyle(wb, cellProtection = CellProtection(locked = TRUE))
rows <- getRows(sh, rowIndex = 9:50)
cells <- getCells(rows, colIndex = 5:6)
lapply(names(cells), function(ii) setCellStyle(cells[[ii]], lock))
.jcall(sh, "V", "protectSheet", "p@ssword")
saveWorkbook(wb, file.path)
我想我可能最终通过绕过 xlsx 和 XLConnect 找到了自己的答案。相反,我写了一个 VBA 宏:
ActiveSheet.Unprotect ("p@ssword")
Range("E8:F50").Locked = True
ActiveSheet.Protect ("p@ssword")
然后调用 R 中的宏(使用 RDCOMClient),循环遍历不同的工作表
xlApp <- COMCreate("Excel.Application")
xlWbk <- xlApp$Workbooks()$Open(paste0(temp.path))
xlApp$Run("LockColumns")
xlWbk$Close(TRUE)
xlApp$Quit()
我正在尝试锁定一系列 Excel 文件中的单元格块,保护每个文件,并将它们保存在它们的原始位置。我让代码以各种方式工作,除了锁定列会去除所有格式的单元格。我无法在 xlsx 包中手动重新创建格式,因为每个文件都略有不同。
我知道如何在不使用 XLConnect 格式化的情况下将数据输出到 Excel,但我无法让 XLConnect 锁定 cells/protect 工作簿。所以我要么寻求使用 XLConnect 锁定单元格的帮助,要么寻求帮助使用 xlsx 锁定单元格而不覆盖格式。
这是我当前的代码(使用 xlsx 包):
wb <- loadWorkbook(file.path)
sheets <- getSheets(wb)
sh <- sheets[[1]]
lock <- CellStyle(wb, cellProtection = CellProtection(locked = TRUE))
rows <- getRows(sh, rowIndex = 9:50)
cells <- getCells(rows, colIndex = 5:6)
lapply(names(cells), function(ii) setCellStyle(cells[[ii]], lock))
.jcall(sh, "V", "protectSheet", "p@ssword")
saveWorkbook(wb, file.path)
我想我可能最终通过绕过 xlsx 和 XLConnect 找到了自己的答案。相反,我写了一个 VBA 宏:
ActiveSheet.Unprotect ("p@ssword")
Range("E8:F50").Locked = True
ActiveSheet.Protect ("p@ssword")
然后调用 R 中的宏(使用 RDCOMClient),循环遍历不同的工作表
xlApp <- COMCreate("Excel.Application")
xlWbk <- xlApp$Workbooks()$Open(paste0(temp.path))
xlApp$Run("LockColumns")
xlWbk$Close(TRUE)
xlApp$Quit()