如何使用 R 使用 Excel 工作表创建 PDF 文件？

Question

我正在寻找一种使用 R 自动创建 PDF 文件的方法。我看到有人建议使用 RDCOMClient 选项，但它不适用于我的电脑。

如何在 R 中使用 Excel 工作表创建 pdf 文件？

输入文件：file.xlsx

输出文件：file.pdf

输入：

预期输出：

我想使用数据框的 pdf() 函数创建一个 pdf 文件，但我只能通过 grid.table() 函数保存表格，但它并没有创建精确的 pdf 文件。

pdf("file.pdf")
grid.table(df)
dev.off()

有没有人有更好的解决方案？

Answer 1

您可以考虑以下两个功能：

library(RDCOMClient)

save_Excel_As_PDF <- function(path_To_Excel_File,
                              path_To_PDF_File)
{
  xlApp <- COMCreate("Excel.Application")
  xlWbk <- xlApp$Workbooks()$Open(path_To_Excel_File)
  xlWbk$ExportAsFixedFormat(Type = 0, FileName = path_To_PDF_File)
  xlWbk$Close()
  xlApp$Quit()
}

save_Excel_Sheet_As_PDF <- function(path_To_Excel_File,
                                    path_To_PDF_File,
                                    sheet_Id)
{
  xlApp <- COMCreate("Excel.Application")
  xlWbk <- xlApp$Workbooks()$Open(path_To_Excel_File)
  sheet <- xlWbk $Worksheets()$Item(sheet_Id)
  sheet$Select()

  # Type = 0 => PDF, Type = 1 => XPS
  xlWbk[["ActiveSheet"]]$ExportAsFixedFormat(Type = 0, Filename = path_To_PDF_File,
                                             IgnorePrintAreas = FALSE)

  xlWbk$Close()
  xlApp$Quit()
}

我在工作中使用这些功能，而且效果很好。