1

我正在尝试上传 Excel 文件并将其转换为 Google 表格。但是，如果没有先与单元格交互，该公式将不会在 Google 表格中进行计算。例如，在下面的示例代码中，只需在公式后的单元格内添加一个空格（通过表格 Web UI）将产生所需的输出（即单元格 A2 和 A3 中的“Hola”和“adios”）。

library(googledrive)
library(openxlsx)

df <- structure(list(english.to.spanish = c("=GOOGLETRANSLATE(\"hello\", \"en\", \"es\")", 
                                      "=GOOGLETRANSLATE(\"goodbye\", \"en\", \"es\")")), row.names = c(NA, 
                                                                                                  -2L), class = c("tbl_df", "tbl", "data.frame"))
df

  english.to.spanish                             
  <chr>                                          
1 "=GOOGLETRANSLATE(\"hello\", \"en\", \"es\")"  
2 "=GOOGLETRANSLATE(\"goodbye\", \"en\", \"es\")"

wb <- createWorkbook()
addWorksheet(wb, sheetName = "eng_to_span")

writeData(wb,sheet = "eng_to_span",
          x = df)

saveWorkbook(wb,  "eng_to_spanish.xlsx", overwrite = TRUE)

progress.sheet <- drive_upload(media = "eng_to_spanish.xlsx", 
                              type = "spreadsheet")

browseURL(drive_link(as_id(progress.sheet$id)))

我需要在 100 个电子表格中执行此操作，因此我正在寻找一种编程/脚本解决方案。

4

0 回答 0