保存 XLS 文件的格式错误：自动转换为数字

Question

我有一个字符串需要按原样保存为 XLS 格式，但 WriteXLS 函数似乎总是转换为数字。手动打开 xls 时也会出现该错误。我该如何解决这个问题？

nb <- data.frame("92343E102", stringsAsFactors = F)
WriteXLS::WriteXLS(nb, "testdf.xls")
readxl::read_xls("testdf.xls")
> read_xls("testdf.xls")
# A tibble: 1 x 1
  X.92343E102.
         <dbl>
1     9.23e106

预期结果：92343E102

如果可能的话，我需要在没有安装 python 的情况下这样做，所以 dataframes2xls 对我来说不是一个选择 - 无论如何感谢您的尝试

Answer 1

我建议您改用 dataframes2xls::write.xls()：

# Make a sample dataframe:
nb <- data.frame(A = "92343E102", B = 92343E102, stringsAsFactors = F)
WriteXLS::WriteXLS(nb, "testdf.xls") # Write out using WriteXLS() ...
readxl::read_xls("testdf.xls") # Doesn't work, per your post
#> # A tibble: 1 x 2
#>          A        B
#>      <dbl>    <dbl>
#> 1 9.23e106 9.23e106
# Maybe we can specify what kind of column it is when reading in the data?
readxl::read_xls("testdf.xls", col_types = "text")
# Still doesn't work, it must be the writer
#> # A tibble: 1 x 2
#>   A           B          
#>   <chr>       <chr>      
#> 1 -2147483648 -2147483648
dataframes2xls::write.xls(nb, "testdf2.xls") # So, try a different writer
readxl::read_xls("testdf2.xls")#, col_types = "text") # Works!
#> # A tibble: 1 x 2
#>   A                      B
#>   <chr>              <dbl>
#> 1 "\"92343E102\"" 9.23e106

^{由 reprex package (v0.2.1)}

创建于 2018-11-02

Answer 2

如果您可以将其保存为 csv，然后在 Excel 中打开它。一种选择是使用数据选项卡上的从文本向导获取外部数据。然后 select 您的 csv 文件，配置适当的选项，然后在向导的第三步 select 在包含文本的列上导入为文本，如下图所示。然后您可以将其另存为 .xls 并再次打开它，而无需 Excel 将数据类型更改为科学。

Answer 3

安装 writexl 包：

 install.packages("devtools", dependencies=TRUE)
# devtools has a _lot_ of dependencies
# it also has a bunch of system tool requirements
 devtools::install_github("ropensci/writexl")
#make a copy of iris
 tmp <- iris
# set [1,1] to your string:
 tmp[1,1] <- "92343E102"  # makes that column 'character'
 tmp2 <- writexl::write_xlsx(tmp)
 readxl::read_xlsx(tmp2)

# A tibble: 150 x 5
   Sepal.Length Sepal.Width Petal.Length Petal.Width Species
   <chr>              <dbl>        <dbl>       <dbl> <chr>  
 1 92343E102            3.5          1.4         0.2 setosa 
 2 4.9                  3            1.4         0.2 setosa 
 3 4.7                  3.2          1.3         0.2 setosa 
 4 4.6                  3.1          1.5         0.2 setosa 
 5 5                    3.6          1.4         0.2 setosa 
 6 5.4                  3.9          1.7         0.4 setosa 
 7 4.6                  3.4          1.4         0.3 setosa 
 8 5                    3.4          1.5         0.2 setosa 
 9 4.4                  2.9          1.4         0.2 setosa 
10 4.9                  3.1          1.5         0.1 setosa 
# ... with 140 more rows

Answer 4

好吧，我终于找到了一种方法来避免将“12E123”之类的字符串 XLS 转换为科学双精度数，这不需要使用 XLConnect

的 excel 交互

nb <- data.frame(as.character('92343E102'), stringsAsFactors = F)
WriteXLS::WriteXLS(nb, "testdf.xls")
readxl::read_xls("testdf.xls")
wb <- XLConnect::loadWorkbook("testdf.xls")
XLConnect::createSheet(wb, name="newsheet")
XLConnect::writeWorksheet(wb, nb, sheet = "newsheet")
XLConnect::saveWorkbook(wb)
readxl::read_xls("testdf.xls", sheet=1) #converted string to wrong number
readxl::read_xls("testdf.xls", sheet=2) # success! string stays string

结果：

> readxl::read_xls("testdf.xls", sheet=1)
# A tibble: 1 x 1
  as.character..92343E102..
                      <dbl>
1                  9.23e106
> readxl::read_xls("testdf.xls", sheet=2)
# A tibble: 1 x 1
  as.character..92343E102..
  <chr>                    
1 92343E102

当然，因为我只有 32 位 JAVA 在工作，所以我可能必须为此切换到 R32，或者编写 32 位-R 例程以正确保存我的 XLS 文件..

一次一件事...希望这对某人有所帮助

保存 XLS 文件的格式错误：自动转换为数字

Wrong format saving XLS files: automatic conversion to numbers

xls

r

xlsx