使用XLconnect和readWorksheet導入Excel xlsx數據會導致格式錯誤

Question

我有一個擴展名為xlsx的Excel文件，其中Sheet1和Sheet包含以下內容：18：20、10：10（A列，行1：2）。 當我嘗試將它們導入RI時不會得到預期的結果。

library(XLConnect)

setwd("...")
my_book <- loadWorkbook("test.xlsx")

xlsx_import <- lapply(getSheets(my_book), readWorksheet, object = my_book) 
xlsx_import


# Returns some kind of date format

xlsx_import <- lapply(getSheets(my_book), readWorksheet, object = my_book, colTypes = "character")
xlsx_import


# Same as above

是否可以以某種方式在R中修復此問題？ 因為我有很多工作要做。

Answer 1

Try This.

wb=loadWorkbook("Test.xlsx", create = TRUE)

setStyleAction(wb, XLC$"STYLE_ACTION.DATATYPE")
cs = createCellStyle(wb, name = "myDateStyle")
setDataFormat(cs, format = "dd-mm-yyyy")
setCellStyleForType(wb, style = cs, type = XLC$"DATA_TYPE.DATETIME")



s<-readWorksheet(wb,sheet = "Sheet1")

***Operations which you wanna do***

writeWorksheet(wb, wq, sheet = "Sheet1")
setForceFormulaRecalculation(wb,"*",TRUE)
saveWorkbook(wb)