在 R 中将 .xlsm 转换为 .xlsx

Question

我想将保存为启用宏的工作簿 (Jimmy.xlsm) 的 Excel 文件（假设其名称为 "Jimmy"）转换为 Jimmy.xlsx。

我需要在编码环境中完成此操作。我不能简单地通过打开 Excel 中的文件并分配不同的文件类型来更改它。我目前正在用 R 编程。如果我使用函数

file.rename("Jimmy.xlsm", "Jimmy.xlsx")

文件损坏。

Answer 1

在您的框架中，您必须读入 sheet 并将其写回。假设您有一个名为 "testXLSM2X.xlsm" 的 XLSM 文件（我想是带有宏），其中包含一个带有表格数据列的 sheet。这将达到目的：

library(xlsx)
r <- read.xlsx("testXLSMtoX.xlsm", 1) # read the first sheet
# provides a data frame
# use the first column in the spreadsheet to create row names then delete that column from the data frame
# otherwise you will get an extra column of row index numbers in the first column
r2w<-data.frame(r[-1],row.names=r[,1])
w <- write.xlsx(r2w,"testXLSMtoX.xlsx") # write the sheet

当然，宏会被删除。

这是一个答案，但我会质疑您要完成的任务。一般来说，从 Excel 控制 R 比从 R 控制 Excel 更容易。我使用 http://rcom.univie.ac.at/ 的 REXCEL，它不是开源的，但非常强大。

Answer 2

这是一个使用 R 包 RDCOMClient 将 XLSM 文件转换为 XLSX 文件的函数：

convert_XLSM_File_To_XLSX <- function(path_XLSM_File, path_XLSX_File)
{
  xlApp <- COMCreate("Excel.Application")
  xlApp[['Visible']] <- FALSE
  xlApp[["DisplayAlerts"]] <- FALSE
  xlWbk <- xlApp$Workbooks()$Open(path_XLSM_File)
  xlWbk$SaveAs(path_XLSX_File, 51)
  xlWbk$Close()
  xlApp$Quit()
}

library(RDCOMClient)
convert_XLSM_File_To_XLSX(path_XLSM_File, path_XLSX_File)

在 R 中将 .xlsm 转换为 .xlsx

Convert .xlsm to .xlsx in R

excel

r

xlsx

xlsm