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

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

1. 复印第一张纸

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

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

   4. 重复步骤 1，并将工作表复制到步骤 2 的同一文件中，重复步骤 3

我可以用 R 执行此步骤吗？我的 .xlsx contein img 和单元格已格式化。

THANKS

这是另一种基于 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()