![]() #dataValidation(wb = Workbook4Export, sheet = "Tab_1", rows = 1, col = 1, type = "list", value = "\",2016, 2017, 2018, 2019\"") # Warning KO on Windows 10 and Excel 2007 No warning OK on Ubuntu 20 and OpenOffice Calc 5.3 #dataValidation(wb = Workbook4Export, sheet = "Tab_1", rows = 1, col = 1, type = "list", value = paste0('"', paste0(v, collapse = ","), '"')) # Warning KO on Windows 10 and Excel 2007 No warning OK on Ubuntu 20 and OpenOffice Calc 5.3 #dataValidation(wb = Workbook4Export, sheet = "Tab_1", rows = 1, col = 1, type = "list", value = '"2016, 2017, 2018, 2019"') # Warning KO on Windows 10 and Excel 2007 No warning OK on Ubuntu 20 and OpenOffice Calc 5.3 #dataValidation(wb = Workbook4Export, sheet = "Tab_1", rows = 1, col = 1, type = "list", value = '"2016,2017,2018,2019"') # Warning KO on Windows 10 and Excel 2007 No warning OK on Ubuntu 20 and OpenOffice Calc 5.3 #dataValidation(wb = Workbook4Export, sheet = "Tab_1", rows = 1, col = 1, type = "list", value = "2016, 2017, 2018, 2019") # Warning KO ( corrupted/damaged file) on Windows 10 and Excel 2007 No warning KO on Ubuntu 20 and OpenOffice Calc 5.3 (Err:509) #dataValidation(wb = Workbook4Export, sheet = "Tab_1", rows = 1, col = 1, type = "list", value = "2016,2017,2018,2019") # Warning KO ( corrupted/damaged file) on Windows 10 and Excel 2007 No warning KO on Ubuntu 20 and OpenOffice Calc 5.3 (Err:509) ![]() WriteData(wb = Workbook4Export, sheet = "Tab_1", x = 2019, startRow = 1, startCol = 6)ĭataValidation(wb = Workbook4Export, sheet = "Tab_1", rows = 1, col = 1, type = "list", value = "'Tab_1'!C1:F1") # Warning KO on Windows 10 and Excel 2007 No warning OK on Ubuntu 20 and OpenOffice Calc 5.3 WriteData(wb = Workbook4Export, sheet = "Tab_1", x = 2018, startRow = 1, startCol = 5) WriteData(wb = Workbook4Export, sheet = "Tab_1", x = 2017, startRow = 1, startCol = 4) ![]() WriteData(wb = Workbook4Export, sheet = "Tab_1", x = 2016, startRow = 1, startCol = 3) ![]() OutputFile <- file.path(OutputFolder, "Reprex_Openxlsx_dataValidation_list.xlsx")ĪddWorksheet(wb = Workbook4Export, sheetName = "Tab_1", zoom = 80, gridLines = FALSE) If(!dir.exists(OutputFolder)) dir.create(OutputFolder) #remotes::install_github("ycphs/openxlsx", lib = "G:/Programmation/R/R-4.2.1/library") # Latest 'stable' development version (4.) ![]() #install.packages(c("Rcpp", "remotes"), dependencies = TRUE, lib = "G:/Programmation/R/R-4.2.1/library") ![]()
0 Comments
Leave a Reply. |