时间戳

首页 > 解决方案 > 如何使用 R 和 COM (RDCOMClient) 为 Excel 指定 UTF-8 单元格值和文件名？

r - 如何使用 R 和 COM (RDCOMClient) 为 Excel 指定 UTF-8 单元格值和文件名？

问题描述

我正在使用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

由reprex 包（v0.3.0）于 2020-05-10 创建

两者都似乎没有任何效果Encoding(path2) <- "UTF-8"。Sys.setlocale(category = "LC_ALL", locale = "en_US.UTF-8")（“操作系统报告将语言环境设置为“en_US.UTF-8”的请求无法接受”。）

我无法弄清楚 Excel COM 如何处理文档中的 Unicode 。 这个与 Visual Basic 相关的问题可能是相关的，但我不知道如何将其应用于我的问题。

编辑：我通过打开/保存临时副本来解决文件名问题，通过按数字而不是名称引用它们来解决工作表名问题，并通过改写事物来解决单元格值。仍然对适当的解决方案感兴趣 8-)

标签： rexcelcom

解决方案

stringi::stri_enc_tonative()是我需要的。

我有 UTF-8 字符串并由 and 返回text，所以这是“UTF-8”，而 Excel 在我的系统上显然需要“latin1”。替换为解决了我的所有问题：文件名、工作表名和值。sheetsreadxl::read_excel()readxl::excel_sheets()Encoding(text)textstringi::stri_enc_tonative(text)xlApp$Open()wb$Open()rng[["Value"]] <-

推荐阅读