有R函数可以将excel文件导出/转换为文本文件吗？

Question

我正在尝试找到将 Excel 文件转换为文本文件的代码。

这是Excel工作簿的代码。我想将其转换为文本文件。

template <- loadWorkbook('V:/rcode/template.xlsx')

writeData(template,'sheet1',finaloutput, startRow =1,startCol = 3, colNames = FALSE)

workbook<- paste0("V:/rcode/", 'template', ".xlsx")

saveWorkbook(template, workbook, overwrite = TRUE)

Answer 1

使用

readxl::read_excel()

将 Excel 文件读取到数据框（技术上是 tibble），写入纯文本文件。

library(tidyverse)   
library(readxl)

finaloutput <- read_excel("V:/rcode/template.xlsx", sheet=1, skip=0, range = cell_cols(c(3, NA)), col_names=FALSE)

read_xlsx 也可以工作，因为你知道扩展名是 .xlsx

write.table(finaloutput,"path",...) 

Answer 2

这对我有用。

library(readxl)
mydata <- read_excel("C:\\your_path\\Desktop\\File1.xlsx", 1)

write.csv(data, "C:\\your_path\\Desktop\\my_results.txt")
write.table(data, "C:\\your_path\\OneDrive\\Desktop\\my_results.txt")

Answer 3

您可以考虑以下方法：

library(RDCOMClient)

path1 <- "D:\\excel_File.xlsx"
path2 <- "D:\\excel_File.txt"

xlApp <- COMCreate("Excel.Application")
xlWbk <- xlApp$Workbooks()$Open(path1)
xlApp[['Visible']] <- TRUE

xlWbk$SaveAs(path2, FileFormat = 20)