我已成功地使用R和COM(RDCOMClient)修改多个Excel文件。library(RDCOMClient).然而，将单元格值设置为非ascii字符串，结果会导致 å 成为 Ã¥ 等，我也不能将UTF-8文件名传给Excel的Open()和Save()方法，希望有一个单一的方法可以解决这两个问题。
下面是一个使用Save()方法的简单可重复的例子：创建一个空工作簿，并尝试将其保存为 å.xlsx 导致 Ã¥.xlsx.同样的操作也适用于 a.xlsx.
# install.packages("RDCOMServer", repos = "http://www.omegahat.net/R")
library(RDCOMClient)
xlApp <- COMCreate("Excel.Application")
wb <- xlApp$Workbooks()$Add()
path1 <- normalizePath("a.xlsx", mustWork = FALSE)
path2 <- normalizePath("å.xlsx", mustWork = FALSE)
wb$SaveAs(path1)
#> [1] TRUE
wb$SaveAs(path2)
#> [1] TRUE
wb$Close()
#> [1] TRUE
xlApp$Quit()
#> NULL
dir(pattern = "xlsx")
#> [1] "a.xlsx" "Ã¥.xlsx"
devtools::session_info()
#> - Session info ---------------------------------------------------------------
#> setting value
#> version R version 4.0.0 (2020-04-24)
#> os Windows 10 x64
#> system x86_64, mingw32
#> ui RTerm
#> language (EN)
#> collate English_United States.1252
#> ctype English_United States.1252
#> tz Europe/Berlin
#> date 2020-05-10
#>
#> - Packages -------------------------------------------------------------------
#> package * version date lib source
#> assertthat 0.2.1 2019-03-21 [1] CRAN (R 4.0.0)
#> backports 1.1.6 2020-04-05 [1] CRAN (R 4.0.0)
#> callr 3.4.3 2020-03-28 [1] CRAN (R 4.0.0)
#> cli 2.0.2 2020-02-28 [1] CRAN (R 4.0.0)
#> crayon 1.3.4 2017-09-16 [1] CRAN (R 4.0.0)
#> desc 1.2.0 2018-05-01 [1] CRAN (R 4.0.0)
#> devtools 2.3.0 2020-04-10 [1] CRAN (R 4.0.0)
#> digest 0.6.25 2020-02-23 [1] CRAN (R 4.0.0)
#> ellipsis 0.3.0 2019-09-20 [1] CRAN (R 4.0.0)
#> evaluate 0.14 2019-05-28 [1] CRAN (R 4.0.0)
#> fansi 0.4.1 2020-01-08 [1] CRAN (R 4.0.0)
#> fs 1.4.1 2020-04-04 [1] CRAN (R 4.0.0)
#> glue 1.4.0 2020-04-03 [1] CRAN (R 4.0.0)
#> highr 0.8 2019-03-20 [1] CRAN (R 4.0.0)
#> htmltools 0.4.0 2019-10-04 [1] CRAN (R 4.0.0)
#> knitr 1.28 2020-02-06 [1] CRAN (R 4.0.0)
#> magrittr 1.5 2014-11-22 [1] CRAN (R 4.0.0)
#> memoise 1.1.0 2017-04-21 [1] CRAN (R 4.0.0)
#> pkgbuild 1.0.7 2020-04-25 [1] CRAN (R 4.0.0)
#> pkgload 1.0.2 2018-10-29 [1] CRAN (R 4.0.0)
#> prettyunits 1.1.1 2020-01-24 [1] CRAN (R 4.0.0)
#> processx 3.4.2 2020-02-09 [1] CRAN (R 4.0.0)
#> ps 1.3.2 2020-02-13 [1] CRAN (R 4.0.0)
#> R6 2.4.1 2019-11-12 [1] CRAN (R 4.0.0)
#> Rcpp 1.0.4.6 2020-04-09 [1] CRAN (R 4.0.0)
#> RDCOMClient * 0.94-0 2020-04-13 [1] local
#> remotes 2.1.1 2020-02-15 [1] CRAN (R 4.0.0)
#> rlang 0.4.5 2020-03-01 [1] CRAN (R 4.0.0)
#> rmarkdown 2.1 2020-01-20 [1] CRAN (R 4.0.0)
#> rprojroot 1.3-2 2018-01-03 [1] CRAN (R 4.0.0)
#> sessioninfo 1.1.1 2018-11-05 [1] CRAN (R 4.0.0)
#> stringi 1.4.6 2020-02-17 [1] CRAN (R 4.0.0)
#> stringr 1.4.0 2019-02-10 [1] CRAN (R 4.0.0)
#> testthat 2.3.2 2020-03-02 [1] CRAN (R 4.0.0)
#> usethis 1.6.1 2020-04-29 [1] CRAN (R 4.0.0)
#> withr 2.2.0 2020-04-20 [1] CRAN (R 4.0.0)
#> xfun 0.13 2020-04-13 [1] CRAN (R 4.0.0)
#> yaml 2.2.1 2020-02-01 [1] CRAN (R 4.0.0)
#>
#> [1] C:/R-library
#> [2] C:/Program Files/R/R-4.0.0/library
创建于2020-05-10，由 重读包 (v0.3.0)
既不是 Encoding(path2) <- "UTF-8" 也不 Sys.setlocale(category = "LC_ALL", locale = "en_US.UTF-8") 似乎有任何影响。("OS报告说，不能接受将locale设置为 "en_US.UTF-8 "的请求")。
我不知道Excel COM是如何处理Unicode的。文件.这个Visual Basic相关问题 也许是相关的，但我不知道如何将其应用于我的问题。
EDIT：我通过打开保存一个临时副本来解决文件名问题，通过用数字而不是名称来引用表名问题，以及通过重新表述单元格值来解决。还是很感兴趣的，希望能有一个合适的解决方案8-)
stringi::stri_enc_tonative() 是我所需要的。
我有UTF-8字符串 text 和 sheets 所回 readxl::read_excel() 和 readxl::excel_sheets()所以 Encoding(text) 是 "UTF-8"，而Excel在我的系统中显然需要 "latin1"。text 与 stringi::stri_enc_tonative(text) 解决了我所有的问题：文件名为 xlApp$Open()，表名为 wb$Open()和数值 rng[["Value"]] <-.