R xlsx Excel数字格式

Question

我已经创建了一个工作簿(createWorkbook(并格式化了标题，但是我如何格式化数值，以便在写入/保存到Excel时得到以下内容：

对于第一个字段，例如。3615变为3615

对于后续字段，例如。70.658变为70.7

注意，我仍然希望Excel将这些值识别为双精度。

谢谢！

Answer 1

这里有一种可以考虑的方法。这种方法只能在Windows上使用。

library(RDCOMClient)
path_Excel_File <- "D:/Dropbox/Reponses_Stackoverflow/stackoverflow_346/empty_Excel_File.xlsx"
xlApp <- COMCreate("Excel.Application")
xlApp[["Visible"]] <- TRUE
xlApp[["UseSystemSeparators"]] <- FALSE 
xlApp[["DecimalSeparator"]] <- "."
xlApp[["ThousandsSeparator"]] <- ","
xlWbk <- xlApp$Workbooks()$Open(path_Excel_File)
Sheets <- xlWbk$Sheets()
vector_Val <- c(3615, 70.658)
vector_Format <- c("#,##0", "0.0")
nb_Val <- length(vector_Val)
for(i in 1 : nb_Val)
{
cell_Obj <- Sheets[[1]]$Cells(1, i)
cell_Obj[["Value"]] <- vector_Val[i]
cell_Obj[["NumberFormat"]] <- vector_Format[i]
}