2

我正在尝试锁定一系列 Excel 文件中的单元格块，保护每个文件，并将它们保存在原始位置。我的代码以各种方式工作，除了锁定列会删除所有格式的单元格。我无法在 xlsx 包中手动重新创建格式，因为每个文件都略有不同。

我知道如何在不使用 XLConnect 格式化的情况下将数据输出到 Excel，但我无法让 XLConnect 锁定单元格/保护工作簿。所以我要么寻求使用 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)
4

1 回答 1

1

我想我可能最终通过 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()
于 2017-12-21T14:44:41.063 回答