XLconnectとreadWorksheetを使用してexcel xlsxデータをインポートすると、不正な書式が発生する

Question

Sheet1とSheetに18:20、10:10（列A、行1：2）が含まれているxlsxという拡張子のExcelファイルがあります。 Rにインポートしようとすると、期待通りの結果が得られません。

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)