在 R 中将 Excel 文件批量转换为 PDF

Question

我有一个 Excel (xlsx) 工作表文件夹，我想在 R 中将其转换为 PDF。我尝试将工作表直接读入 R（使用几乎所有包），但数据从未正确读取。我正在处理来自几个不同人的 excel 电子表格，因此假设这是因为从每个人的计算机保存文件之间存在差异。

我认为将这些文件转换为 PDF 意味着它们的格式都相同，因此更易于使用。

是否可以使用 R 将文件从 excel 工作表转换为 PDF，而无需打开文件/将它们读入 R，因为这是发生错误的地方？

Answer 1

这应该适用于 R 3.6.2：

# install RDCOMClient for 3.6.2
url <- "http://www.omegahat.net/R/bin/windows/contrib/3.5.1/RDCOMClient_0.93-0.zip"
install.packages(url, repos=NULL, type="binary")

# install R.utils
install.packages("R.utils")

library(RDCOMClient)
library(R.utils)

# make a list of the folder with your excel files
# replace "Path to your folder" with the path to your folder
list.files("Path to your folder",full.names=TRUE) -> list

# Batch convert (replace "Path to your folder" with the path to your folder)
lapply(list, function(x) {

file <- x                             # path to Excel file
ex <- COMCreate("Excel.Application")  # create COM object
file <- getAbsolutePath(file)         # convert to absolute path
book <- ex$workbooks()$Open(file)     # open Excel file
sheet <- book$Worksheets()$Item(1)    # pointer to first worksheet
sheet$Select()                        # select first worksheet
ex[["ActiveSheet"]]$ExportAsFixedFormat(Type=0,    # export as PDF
                                        Filename=paste0("Path to your folder",gsub(pattern = "\\.xlsx$", "", basename(x)),".pdf"), 
                                        IgnorePrintAreas=FALSE)
ex[["ActiveWorkbook"]]$Save()         # save workbook
ex$Quit()                             # close Excel
})