在通过 asCOMArray 将一些数据框写入 excel 时,大部分数据都很好。但是由于编码问题,一些像“-”这样的字符被转换为:“—;“é” 变为:“é”
这是代码示例:
xlApp <- COMCreate("Excel.Application")
xlApp[["Visible"]] <- TRUE
xlApp[["DisplayAlerts"]] <- F
xlApp[["EnableEvents"]] <- F
#add new wb
wb <- xlApp$Workbooks()$Add()
#rename first active sheet
sheet <- xlApp$ActiveSheet()
wbActiveNum <- xlApp$ActiveSheet()[['Index']]
wbSheet <- xlApp$Worksheets()[[wbActiveNum]]
wbSheet[['Name']] <- 'Data'
#save file
Filenm <- paste0(Output_path,"XXX File as Of ",format(Sys.Date() , "%B-%d-%Y"), " .xlsb")
Filenm <- suppressWarnings(normalizePath(Filenm))
wb$SaveAs(Filename = Filenm ,FileFormat = 50)
Sys.sleep(2)
sheet <- wb$Worksheets("Data")
I1 <- as.numeric(ncol(DF))%%26
I2 <- round(as.numeric(ncol(DF))/26)
LC <- toupper(paste0(letters[as.numeric(I2)], letters[as.numeric(I1)]))
SC <- toupper(letters[1])
range<-sheet$Range(paste0(SC,"14:",LC,nrow(DF)+13))
range[["Value"]] <- asCOMArray(DF)
try( range[["Borders"]][["ColorIndex"]] <- 1 , silent = T )
Font <- range$Font()
Font[["Size"]] <- 9
Font[["Name"]] <- "Calibri"
EntCol <-range$EntireColumn()
EntCol$AutoFit()
现在“DF”是我的数据框,它被成功粘贴,但在不同的地方生成了特殊字符,如上图所示。
有没有办法将编码更改为“latin9”或“latin1”以帮助克服这些特殊字符的生成。
RDCOMclient能否在将数据写入excel之前更改编码类型。
(上面是一个随机代码块,用于向excel表格写入数据)