R - Autofit Excel列寬

Question

如何使用openxlsx自動設置列寬？

我的一個列有一個日期變量（例如。21-08-2017），且如果使用ctrl+c從Excel中複製，通常粘貼到其他地方，它示出了像#######（如果列寬被增加到顯示在Excel中的內容，其通常粘貼）。我想將重複性任務整合到我的代碼中。這裏是我現在正在使用的：

WB <- loadWorkbook(File) 
addWorksheet(WB, Sheet) 
writeDataTable(WB, Sheet, DF, withFilter=F, bandedRows=F, firstColumn=T) 
saveWorkbook(WB, File, overwrite =TRUE) 

我已經在這裏附加了整個相關的代碼，我也做了基於表值的條件格式。 請在這裏建議一種將autofit列寬整合的方法。

編輯： 默認情況下，選自R XLSX輸出具有默認8.43 columnWidth時，我想要麼將它設置爲自動調整將每個細胞的內容，或手動設置爲每一列。

To Mod：這是一個問題，我正在嘗試使用openxlsx在R中解決。無論如何，感謝您的關注。

Answer 1

好的，我在文檔中進行了大量的搜索之後得到了它。似乎很少有人真正從在線解決方案的缺乏使用...

setColWidths(WB, Sheet, cols = 1:ncol(DF), widths = "auto") 

但是，這仍然沒有得到期望的結果，日期欄還是有點短，顯示########;而列標題也不合適（因爲它們的格式爲加粗）。

編輯：

最後，選擇添加c(7.5, 10, "auto", ...)僅更換"auto"，它不是完全動態的，但解決問題的現在。希望看到更好的答案。