r - 将工作簿的所有工作表复制到另一个文件

Question

我想对我所有的 .xlsx 执行以下步骤:

复制第一张

将复制的工作表粘贴到另一个文件

将粘贴的工作表重命名为文件名

重复步骤 1 并在步骤 2 的同一文件中复制工作表重复步骤 3

我可以用 R 做这个步骤吗？我的 .xlsx contein img 和单元格已格式化。

谢谢

Answer 1

这是另一种基于 RDCOMClient 的方法:

library(RDCOMClient)
xlApp <- COMCreate("Excel.Application")
path_Excel_File1 <- "C:\\...\\File1.xlsx"
path_Excel_File2 <- "C:\\...\\File2.xlsx"
xlWbk1 <- xlApp$Workbooks()$Open(path_Excel_File1)
xlWbk2 <- xlApp$Workbooks()$Open(path_Excel_File2)
nb_Sheets <- xlWbk1$Sheets()$Count()

for(l in 1 : nb_Sheets)
{
  wbSheet <- xlWbk1$Worksheets(l)$Copy(after = xlWbk2$Worksheets(l))
}

xlWbk2$SaveAs("C:\\...\\FileMerged12.xlsx")
xlWbk2$Close()
xlApp$Quit()